Giúp em tự động chèn dòng trong excel

Offline Hà Nội 2014 tại Đồ Sơn-Hải Phòng



Trang 1/2 12 CuốiCuối
kết quả từ 1 tới 10 trên 11
11,155 lượt xem
  1. Thành viên Hình đại diện của mit1301
    Tham gia ngày
    Sep 2008
    Địa chỉ
    TPHCM
    Bài gửi
    1
    Post Thanks / Like
    mit1301 vẫn chưa có mặt trong diễn đàn

    Giúp em tự động chèn dòng trong excel

    Xin chào mọi người,mọi người có thể chỉ giùm em bài này với ạ...
    Giả sử em có 3 cột:A, B,C. Cột C bằng cột A chia cho B.

    Cho em hỏi có cách naò để excel tự động chèn thêm nguyên một dòng khi A chia B không phải là số nguyên và cột B của dòng chèn thêm sẽ bằng số dư của cột A chia cho cột B.
    Mong mọi người giúp đỡ.
    Em cám ơn mọi người nhiều.

    Xem thêm các bài viết mới nhất trong cùng chuyên mục này:

    thay đổi nội dung bởi: mit1301, ngày 10-09-2008 lúc 22:49

  2. Khu vực quảng cáo
    Tham gia ngày
    Always
    Địa chỉ
    Advertising world
    Bài gửi
    Many

     

  3. Over Abnormal / Crazy Hình đại diện của Bình_OverAC
    Tham gia ngày
    May 2004
    Địa chỉ
    Nha Trang
    Tuổi
    32
    Bài gửi
    824
    Post Thanks / Like
    Bình_OverAC vẫn chưa có mặt trong diễn đàn
    Về mặt bảng tính, Excel chỉ tác động đến giá trị các con số bằng các công thức chứ không tác động tới các đói tượng khác, và chèn dòng, cột như bạn đề cập là một ví dụ. Những thứ như vậy cần được thực hiện bằng công cụ lập trình của Excel (Macro). Bạn thử tìm hiểu thêm vấn đề này ở trang web www.giaiphapexcel.com

    Tôi nghĩ rằng vấn đề của bạn có thể không cần dùng tới Macro, hãy gởi đính kèm và thích công việc của bạn, mọi người sẽ giúp bạn tìm một cách làm phù hợp.

    Thân.

  4. Thành viên cấp cao Hình đại diện của SA_DQ
    Tham gia ngày
    Jun 2005
    Địa chỉ
    HCM city
    Tuổi
    56
    Bài gửi
    363
    Post Thanks / Like
    SA_DQ vẫn chưa có mặt trong diễn đàn
    26-09-2008, 17:04 #3
    Option Explicit
    Sub ThemDong()
    On Error Resume Next
    Dim lRow As Long, Wf As Long
    Dim Rng As Range

    lRow = [B65432].End(xlUp).Row * 2
    For Wf = 1 To lRow
    With Cells(Wf + 1, "C")
    If (.Value * 10) Mod 10 > 0 Then
    .Offset(1).EntireRow.Insert
    Wf = Wf + 1
    End If
    End With
    Next Wf
    For Wf = 2 To lRow
    With Cells(Wf, "B")
    If .Value = "" And .Offset(1) <> "" Then
    .Value = .Offset(-1, -1) / .Offset(-1) - _
    Int(.Offset(-1, -1) / .Offset(-1))
    End If
    End With
    Next Wf
    End Sub

  5. Thành viên cấp cao Hình đại diện của HongViet
    Tham gia ngày
    Nov 2005
    Địa chỉ
    Đà nẵng
    Bài gửi
    266
    Post Thanks / Like
    HongViet vẫn chưa có mặt trong diễn đàn
    27-09-2008, 23:35 #4
    Option Explicit
    Sub AddRowsFor()
    On Error Resume Next
    Dim Jf As Long

    Application.ScreenUpdating = False
    For Jf = 1 To [B65432].End(xlUp).Row * 2
    With Cells(Jf + 1, "C")
    If (.Value * 10) Mod 10 > 0 Then
    .Offset(1).EntireRow.Insert
    .Offset(1, -1) = .Offset(, -2) / .Offset(, -1) - _
    Int(.Offset(, -2) / .Offset(, -1))
    Jf = Jf + 1
    If .Offset(2) = "" Then Exit Sub
    End If
    End With
    Next Jf
    End Sub
    .

  6. Thành viên cấp cao Hình đại diện của QDuc
    Tham gia ngày
    Jun 2006
    Địa chỉ
    Biển khơi
    Bài gửi
    202
    Post Thanks / Like
    QDuc vẫn chưa có mặt trong diễn đàn
    28-09-2008, 06:27 #5
    Option Explicit
    Sub AddRowsOnlyOne()
    On Error Resume Next
    Dim Jf As Long

    Application.ScreenUpdating = False
    For Jf = 1 To [B65432].End(xlUp).Row * 2
    With Cells(Jf + 1, "C")
    If (.Value * 10) Mod 10 > 0 And .Offset(1) <> "" Then
    .Offset(1).EntireRow.Insert
    .Offset(1, -1) = .Offset(, -2) / .Offset(, -1) - _
    Int(.Offset(, -2) / .Offset(, -1))
    Jf = Jf + 1
    If .Offset(2) = "" Then Exit Sub
    End If
    End With
    Next Jf
    End Sub
    Excel

  7. Thành viên Hình đại diện của pitfe
    Tham gia ngày
    Sep 2007
    Địa chỉ
    vietnam
    Tuổi
    23
    Bài gửi
    4
    Post Thanks / Like
    pitfe vẫn chưa có mặt trong diễn đàn
    20-11-2008, 15:46 #6
    chèn dòng tính tổng theo từng loại mặt hàng thì làm sao? (vd: lấy cột MaHang làm chuẩn, sau khi sắp xếp thì chèn dòng tổng cuối mỗi loại mặt hàng). em đang cần cái này lắm,

  8. Thành viên cấp trung Hình đại diện của chinh2265038
    Tham gia ngày
    Nov 2008
    Địa chỉ
    Thái Thịnh - Đống Đa - Hà nội
    Tuổi
    42
    Bài gửi
    31
    Post Thanks / Like
    chinh2265038 vẫn chưa có mặt trong diễn đàn
    Em không cần chèn mà sau khi dùng data -> sort để sắp xếp loại nào vào loại đó rối bôi đen từ cột tiêu đề trở xuống (lưu ý không trộn cột và dòng)
    - Vào Data -> subtotal; trong hộp subtotal, ở dòng atchangein: chon cột mã hàng; ở dòng use function chọn lệnh sum nếu tính tổng, count nếu đếm; ở dòng add subtotal to: chọn các chỉ tiêu ở các cột cần cộng theo mã hàng đó: ví dụ: số lượng, trị giá ... rồi ok là tự động các mã được chèn tính tổng; màn hình sẽ xuất hiện cấp của tổng; nháy vào số 1 ở góc trái trên cùng thì chỉ ra tổng toàn bộ; nếu để số 3 vừa ra tổng từng mã và tổng của tất cả các mã
    xin chào và chúc thành công

  9. Thành viên Hình đại diện của pitfe
    Tham gia ngày
    Sep 2007
    Địa chỉ
    vietnam
    Tuổi
    23
    Bài gửi
    4
    Post Thanks / Like
    pitfe vẫn chưa có mặt trong diễn đàn
    21-11-2008, 12:45 #8
    cách như trên thì không ổn cho bảng data có hơn 1000 dòng, em đã tạo nút lệnh sắp xếp rồi, vậy làm thế nào tạo nút chèn dòng tính tổng cho mỗi loại mặt hàng sau khi đã sxếp . thank anh trước nhé

  10. Thành viên cấp trung Hình đại diện của chinh2265038
    Tham gia ngày
    Nov 2008
    Địa chỉ
    Thái Thịnh - Đống Đa - Hà nội
    Tuổi
    42
    Bài gửi
    31
    Post Thanks / Like
    chinh2265038 vẫn chưa có mặt trong diễn đàn
    Khi đã tạo rồi em cứ chèn đúng mặt hàng vào sau đó kiểm tra lệnh subtotal ở mối dòng cộng tính đến dòng cuối là đúng. đừng chèn vào dòng cuối cùng của mặt hàng thì lệnh sẽ cộng luôn, nếu chèn dòng cuối thì phải sửa lại công thức đến sát dòng tổng . công thức này anh làm thường xuyên và rất chuẩn. Miễn là tên mặt hàng phải đánh giống nhau. nếu còn lăn tăn thì bôi đen rồi vào lại data và remove subtotal rồi subtotal lại là ok
    chúc bạn thành công

  11. Thành viên Hình đại diện của kim sang
    Tham gia ngày
    Apr 2009
    Địa chỉ
    Từ Liêm, Hà Nội
    Bài gửi
    5
    Post Thanks / Like
    kim sang vẫn chưa có mặt trong diễn đàn
    Chào các bác! Em mới vào nghề kế toán, kiến thức Excel của em mù mờ lắm. Các bác cho em hỏi: làm thế nào để tạo một box trong excel, trong box đó chứa 1list dòng, cột mà chỉ khi click vào mới hiện list lên cho ta chọn?


Thread Information

Users Browsing this Thread

Hiện tại có 1 người đang truy cập đề tài này gồm: (0 thành viên và 1 khách)

Visitors found this page by searching for:

tự động chèn dòng trong sheet

chèn dòng trong excel

tự động thêm hàng excel

tự động thêm dòng excel

tu dong chen dong trong excel

thêm dòng tren excel

tự chèn dòng trong excel

code chen dong trong excel

tự động thêm vào mỗi hàng trong excel

cach an dong tu dong trong excel

tu dong chen them dong trong excel

Lenh chen them o trong excel

thêm hàng thêm cột cho excel

chen dong tu dong trong excel

lenh then hang them cot trong exed

insert thêm 1 dòng vào mỗi hàng trong cột

Chen them hang vao 1 o trong excel

Chen dong trong excel

tu dong chen dong excel

Chèn hàng trên Exel

dung ham cho excel tu insert dong

Chen cot excel

tu dong chen hang trong excel

cách chèn dòng trong excel 2007

cach them dong them cot trong exel