tự điền công thức khi chèn dòng

[lacquan1]

Bác nào biết chỉ giúp:
VD:Tôi có 2 dòng và 5 cột trong đó có 2 cột có công thức và 3 cột ko có công thức, làm sao khi chèn 1 dòng vào giữa 2 dòng thì ô nào thuộc cột có công thức thì tự động có công thức , ô nào ko có thì ko điền công thức
thank

 

[huuthang_bd]

Bác nào biết chỉ giúp:
VD:Tôi có 2 dòng và 5 cột trong đó có 2 cột có công thức và 3 cột ko có công thức, làm sao khi chèn 1 dòng vào giữa 2 dòng thì ô nào thuộc cột có công thức thì tự động có công thức , ô nào ko có thì ko điền công thức
thank

Cái này làm bằng tay thì cũng đâu có lâu đâu ta. Vận động tay chân một chút cho giãn gân giãn cốt đi bạn

 

[rollover79]

Bạn thử sử dụng cái List này xem sao.

 

[hong gam]

cho mình hỏi chút nha, sử dụng list này, về cơ bản có khác gì với lập bảng không sử dụng list ngoài việc công thức tự động copy khi chèn dòng

 

[TKT]

cho mình hỏi chút nha, sử dụng list này, về cơ bản có khác gì với lập bảng không sử dụng list ngoài việc công thức tự động copy khi chèn dòng

Hong gam thử đặt tên cho list đó thì sẽ biết mà (nhớ chọn cả dấu * nữa), rồi thêm dữ liệu vào dòng cuối thử xem, nó gần giống name động vậy

 

[hoangdanh282vn]

Bác nào biết chỉ giúp:
VD:Tôi có 2 dòng và 5 cột trong đó có 2 cột có công thức và 3 cột ko có công thức, làm sao khi chèn 1 dòng vào giữa 2 dòng thì ô nào thuộc cột có công thức thì tự động có công thức , ô nào ko có thì ko điền công thức
thank

Bạn thử code này xem

Sub worksheet_change(ByVal target As Range)
Dim Col As Byte, Rl As Long, Rf As Long
Dim Cel, Rng As Range
Application.ScreenUpdating = False
On Error GoTo thoat
Col = target.Column
Rl = Cells(65536, Col + 1).End(xlUp).Row
Set Rng = Range(Cells(1, Col), Cells(Rl, Col))
If target <> "" Then
    Exit Sub
Else: For i = 1 To Rl
        If Cells(i, Col - 1).HasFormula = True And Cells(i, Col + 1).HasFormula = True Then
        Cells(i, Col + 1).Copy
        Cells(i, Col).PasteSpecial Paste:=xlPasteFormulas
        End If
    Next
End If: Set Rng = Nothing
thoat:
Application.ScreenUpdating = True: Application.CutCopyMode = False
End Sub