Không sử dụng worksheet events có thể tạo được sự kiện double click lên cell không? (2 người xem)

[Hamedanger]

Câu hỏi như tiêu đề ạ?
Giả sử tại ô A1 double click thì làm việc gì đó , ví dụ như :
Msgbox "Hello"

Có thể không ạ?

 

[excel_lv1.5]

------Xin lỗi do có chút nhầm lẫn!!!

 

[phulien1902]

Trong sự kiện SheetBeforeDoubleClick của Workbook, bạn nhập code này:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("a1")) Is Nothing Then MsgBox "Hello World!"
End Sub

Ý chủ Topic muốn hỏi, nếu không dùng dòng dưới đây:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

thì.......

 

[ndu96081631]

Trong sự kiện SheetBeforeDoubleClick của Workbook, bạn nhập code này:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("a1")) Is Nothing Then MsgBox "Hello World!"
End Sub

Người ta đã nói rõ ràng là: Không sử dụng worksheet events rồi mà
----------------------------------------------------------------

Câu hỏi như tiêu đề ạ?
Giả sử tại ô A1 double click thì làm việc gì đó , ví dụ như :
Msgbox "Hello"

Có thể không ạ?

Câu trả lời là CÓ THỂ! Mượn tạm code của XL4
(trong mục Đố vui về VBA đã từng đề cập)

 

[NguyenNgocThuHien]

Hoàn toàn có thể làm được, đơn giản mà phức tạp là dùng api, hook mouse.

 

[NguyenNgocThuHien]

Bạn nên nói mục đích của mình ra. Nếu đây là câu hỏi đánh đố thì chịu, còn có mục đích cụ thể thì sẽ có cách.

 

[Hamedanger]

Cám ơn bạn đã cho mình biết là có thể dùng API .Tuy nhiên với trình độ của mình thì chưa cần cái gì đó quá lớn lao như API hay Class gì cả.
Đơn giản là tò mò thôi mà, có gì đâu, chẳng đánh đố ai cả . Hay sử dụng cái worksheet events thì tự nhiên bật câu hỏi như tiêu đề, search google thì chẳng thấy thì post lên đây.
Nhờ sự gợi ý của thầy NDU mình đã giả lập được rồi , mình tham gia GPE đã lâu rồi bị BAN nhiều ních lắm vì hồi đó không nắm được nội quy.
GPE là nơi học hỏi , giúp đỡ lẫn nhau chứ không phải nơi để chứng minh mình giỏi, mình hay ,mình hơn người khác mà đi đánh đố. Với mình thì nghĩ như vậy

 

[be_09]

Cũng có thể dùng
OnDoubleClick