cách viết Phương thức Application.On Chuột ?

[phamvandunghp84]

Nhờ mọi người giúp đỡ:

Application.OnKey "{F1}", "hoctap1"
Application.OnKey "{F2}", "hoctap2"

đây là phương thức với bàn phím.
vậy còn phương thức với chuột thì mình phải viết như nào mới đúng?

em thử như này mà không đúng :
Application.OnClick "{F1}", "hoctap1"
Application.OnDclick "{F2}", "hoctap2"

 

[tigertiger]

Nhờ mọi người giúp đỡ:

Application.OnKey "{F1}", "hoctap1"
Application.OnKey "{F2}", "hoctap2"

đây là phương thức với bàn phím.
vậy còn phương thức với chuột thì mình phải viết như nào mới đúng?

em thử như này mà không đúng :
Application.OnClick "{F1}", "hoctap1"
Application.OnDclick "{F2}", "hoctap2"

Không đúng là chuẩn rồi
Vì chuột thì còn phải Click vào đâu - vì bản chất chuột là thiết bị nhập điểm (đồ họa) trên màn hình --> phải biết nó đang click vào đâu? thì tác vụ tương đương

 

[phamvandunghp84]

Không đúng là chuẩn rồi
Vì chuột thì còn phải Click vào đâu - vì bản chất chuột là thiết bị nhập điểm (đồ họa) trên màn hình --> phải biết nó đang click vào đâu? thì tác vụ tương đương

bạn ơi vậy có cách nào gán một biến nhận biết trạng thái của chuột trái đang nhấn hay nhả không bạn?

Bài đã được tự động gộp: 19/9/20

bạn ơi vậy có cách nào gán một biến nhận biết trạng thái của chuột trái đang nhấn hay nhả không bạn?

Mình muốn làm hiệu ứng như này: thay vì nhấn phím A. thì nhấn chuột trái VBA sẽ chuyển việc nhấn chuột trái thành nhấn phím A. mình muốn làm như vậy thì phải code như nào bạn chỉ giúp mình với !

 

[tigertiger]

bạn ơi vậy có cách nào gán một biến nhận biết trạng thái của chuột trái đang nhấn hay nhả không bạn?

Bài đã được tự động gộp: 19/9/20

Mình muốn làm hiệu ứng như này: thay vì nhấn phím A. thì nhấn chuột trái VBA sẽ chuyển việc nhấn chuột trái thành nhấn phím A. mình muốn làm như vậy thì phải code như nào bạn chỉ giúp mình với !

Vẫn quan trọng nhấn vào đâu, thì hiệu ứng tương ứng vào đó
Vì dụ sự kiện Commandbutton1_Click chẳng hạn, là bấm vào nút đó
Còn đâu phải vu vơ được
Nên bạn phải nói rõ ứng dụng vào việc gì, bấm chuột vào đâu - trên đối tượng nào

Nhìn kỹ lại mới thấy bài viết đang đặt sai chuyên mục thì phải - Nên đặt lại đúng chuyên mục

 

[thuyyeu99]

BẠN PHẢI DÙNG API HOOK SỰ KIỆN CỦA CHUỘT. TRONG DIỄN ĐÀN CÓ MÁY ANH CŨNG GIỎI VỀ API LẮM, MÀ HÌNH NHƯ CÓ BÀI NÓI VỀ HOOK CHUỘT HAY SAO ĐÓ BẠN KIẾM THỬ XEM.

WM_LBUTTONUP: NHẢ NÚT CHUỘT TRÁI
WM_RBUTTINUP: NHẢ NÚT CHUỘT PHẢI

 

[phamvandunghp84]

BẠN PHẢI DÙNG API HOOK SỰ KIỆN CỦA CHUỘT. TRONG DIỄN ĐÀN CÓ MÁY ANH CŨNG GIỎI VỀ API LẮM, MÀ HÌNH NHƯ CÓ BÀI NÓI VỀ HOOK CHUỘT HAY SAO ĐÓ BẠN KIẾM THỬ XEM.

WM_LBUTTONUP: NHẢ NÚT CHUỘT TRÁI
WM_RBUTTINUP: NHẢ NÚT CHUỘT PHẢI

Mình đã thử cách này mà nó vẫn chỉ hoạt động trên cửa sổ Excel. Mình muốn nó bắt được sự kiện nhấn chuột ở bất kỳ khi nào mình nhấn thì phải làm thế nào bạn nhỉ ?

 

[phamvandunghp84]

View attachment 245798

Xin trân trọng thông báo với bạn rằng,bạn đã vi phạm nội quy của diễn đàn điều II khoản 3:


View attachment 245797

Oh xin lỗi mình sẽ rút kinh nghiệm ! Cảm ơn bạn !

Bài đã được tự động gộp: 19/9/20

BẠN PHẢI DÙNG API HOOK SỰ KIỆN CỦA CHUỘT. TRONG DIỄN ĐÀN CÓ MÁY ANH CŨNG GIỎI VỀ API LẮM, MÀ HÌNH NHƯ CÓ BÀI NÓI VỀ HOOK CHUỘT HAY SAO ĐÓ BẠN KIẾM THỬ XEM.

WM_LBUTTONUP: NHẢ NÚT CHUỘT TRÁI
WM_RBUTTINUP: NHẢ NÚT CHUỘT PHẢI

bạn ơi cho mình hỏi mình tìm được cái này, nhưng lại là sự kiện kích đúp chuột, Vậy còn sự kiện kích chuột một kích thì mình phải viết như nào bạn ?
ThisWorkbook.Worksheets("Sheet2").OnDoubleClick = "hoctap"

mình đã thử viết như này nhưng không đúng
ThisWorkbook.Worksheets("Sheet2").OnCommand1_Click = "hoctap"