Hỏi về tự động thêm xóa dòng và copy công thức (1 người xem)

[kunhoc9x]

Dear các anh chị.
Mọi người giúp em về code tự động thêm xóa dòng và copy công thức.
Ví dụ em có 1 file đính kèm. Nhờ các cao thủ giúp em.
Em cám ơn!

 

[befaint]

Chọn vùng cần xử lý, nhấn Ctrl + T, nhấn Enter. Kết thúc.

 

[denell_tran]

Cái này cũng là một ý tưởng hay.
Mình giúp bạn được một nửa vì không dám múa rìu qua mắt thợ. Mình cũng chỉ góp nhặt linh tinh thôi.
Bạn ngâm cứu đoạn code này và tiếp tục sẽ là làm nốt nửa còn lại.
Goodluck!

Private Sub Worksheet_Change(ByVal Target As Range)

r = Target.Row

c = Target.Column

If c <> 4 Then Exit Sub

Application.EnableEvents = False

NextlineValue = Cells(r, c)

If NextlineValue <> 0 Then

Rows(r + 1).Insert

Rows(r).FillDown

Rows(r + 1).FillDown

End If

Application.EnableEvents = True



End Sub

 

[Thuhanh1611]

sao mình làm theo cách của bạn mà cũng ko dc, bạn có thể dùng hình chỉ mình cho dễ ko

 

[Thuhanh1611]

B1: Mình insert thêm 1 dòng tô màu tím
B2: mình vào Insert/ table

Rùi tới đây ko được nửa