Gán phím enter vào để chạy 1 macro

[qwertyuiopasdfghjkl]

Private Sub WorkSheet_Change(byVal Target as Range)
If Not Intersect(Target,[A1]) Is Nothing Then
'Code here
End If
End Sub

Đoạn code trên là chỉ khi nào thay đổi dữ liệu tại ô A1 hoặc nhập liệu thì nhấn Enter code mới chạy, còn mình muốn nếu điểm chọn là ô A1 mà mình chỉ cần nhấn enter là chạy code (không có sự thay đổi dữ liệu nào tại ô mình chọn). Ai rành VBA giúp mình với đang cần gấp

 

[SA_DQ]

[thongbao]Còn "nhỡ" thì họ chịu chứ sao nữa .[/thongbao]

Cái ni dân 'Nam' gọi là chơi ác! Khì, khì,. . . .

 

[Ngoai Thanh]

[thongbao]Còn "nhỡ" thì họ chịu chứ sao nữa .[/thongbao]

Cái ni dân 'Nam' gọi là chơi ác! Khì, khì,. . . .

code bài #3 tôi giúp bạn ấy thế này :
Private Sub WorkSheet_selectionChange(byVal Target as Range)
If Not Intersect(Target,[A2]) Is Nothing Then
'Code here
End If
End Sub
tức là chọn ô A2 để chạy code ( dù ta chọn bằng chuột, bằng phím mũi tên ... ) đều được kể cả bằng phím Enter . riêng phím enter thì phải đưa chuột về A1( đây chính là yêu cầu của ngưòi cần giúp). Thế mà gọi là "chơi ác" , hay thật đấy !

 

[phavaphu]

Đặt nó vào sự kiện Worksheet_Change của bạn và kiểm tra xem ô Q3 là ô được chỉnh sửa duy nhất.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$Q$3" Then
        Call GoToAccount
    End If
End Sub