Lập trình macro đơn giản

[hatcamthao]

Em muốn làm marcro, khi ấn vào các mục thêm hàng thì nó sẽ tự động thêm hàng vào trên mục chữ "thêm hàng".
Rất đơn giản, nhưng em làm mãi mà không được,..Mong các bác chỉ bảo cặn kẽ.

 

[SA_DQ]

Bạn thử với mca1i ni xem ưng cái bụng chưa?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Columns("G:G")) Is Nothing And Left(Target.Value, 2) = "Th" Then
   Target.EntireRow.Insert
 End If
End Sub

 

[ndu96081631]

Em muốn làm marcro, khi ấn vào các mục thêm hàng thì nó sẽ tự động thêm hàng vào trên mục chữ "thêm hàng".
Rất đơn giản, nhưng em làm mãi mà không được,..Mong các bác chỉ bảo cặn kẽ.

Cho macro này vào sheet "Chi thường xuyên"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  On Error Resume Next
  If Not Intersect([G10:G1000], Target) Is Nothing And Target.Count = 1 Then
    If Target.Value = "Thêm hàng" Then Target.EntireRow.Insert
  End If
End Sub