Giúp thay đổi địa chỉ VBA (1 người xem)

[congnguyen88]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.OnKey "{ENTER}", "abc"
Else
Application.OnKey "{ENTER}"
End If
End Sub

đoạn code này có chức năng là khi nhấn Enter tại ô A1 thì sẽ chạy code "abc" . Nhưng tôi muốn nhấn Enter tại vùng A1:F50 chẳng hạn thì phải làm sao

 

[SA_DQ]

Đây là 1 cách:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A4:F25")) Is Nothing Then
    Target.Offset(1, 1).Interior.ColorIndex = 35
 End If
End Sub

 

[Hoàng Trọng Nghĩa]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.OnKey "{ENTER}", "abc"
Else
Application.OnKey "{ENTER}"
End If
End Sub

đoạn code này có chức năng là khi nhấn Enter tại ô A1 thì sẽ chạy code "abc" . Nhưng tôi muốn nhấn Enter tại vùng A1:F50 chẳng hạn thì phải làm sao

Thì thử như vầy đi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1:F50")) Is Nothing Then
        Application.OnKey "{ENTER}"
    Else
        Application.OnKey "{ENTER}", "abc"
    End If
End Sub