Sửa giùm code: Gắn Form lên nút phải chuột. (1 người xem)

[dongducnhiem]

Chào các bạn thành viên!
Tôi có áp dụng code để gắn Form này lên nút fải chuột nhưng chưa được
Vị trí để Right Click hiện Form là Sheet TH, Từ K9:K12000
Short cut là: Ctrl+t
Rất mong các bạn xem và chỉnh sửa giúp
Xin cảm ơn
------------

 

[ndu96081631]

Chào các bạn thành viên!
Tôi có áp dụng code để gắn Form này lên nút fải chuột nhưng chưa được
Vị trí để Right Click hiện Form là Sheet TH, Từ K9:K12000
Short cut là: Ctrl+t
Rất mong các bạn xem và chỉnh sửa giúp
Xin cảm ơn
------------

Đoạn code này:

Private Sub BuildPopupMenu()
  With Application.CommandBars("Cell").Controls.Add(1, , , 1)
    .Caption = "FormDMHH"
    .OnAction = "[COLOR=#ff0000][B]Test1[/B][/COLOR]"
  End With
End Sub

Bạn sửa .OnAction = "Test1" thành .OnAction = "ShowDMHH" là được rồi

 

[paulsteigel]

Hic - mình đang giả nhời thì đã có bác ndu giả nhời mất rồi. Nhưng mà không xóa được bài - đâm ra phải để vậy...
Thành thật xin lỗi vì spam.
Ý bạn là thêm 1 mục vào thực đơn hay là khi nhấn phải chuột tại vùng đó thì form sẽ hiện ra? Tôi thấy thủ tục của bạn chạy và thêm được 1 mục vào thực đơn mà. Còn việc kích hoạt form thì chỉ cần sửa lại thủ tục này như thế này
Private Sub Test1()
FormDMMH.Show
End Sub
Túm lại, tôi chưa rõ ý bạn lắm. Nếu chỉ để lựa chọn mã hàng sao bạn không sử dụng phím nóng dạng Ctrl+T hoặc F3, đâu cần phức tạp nhỉ?
Bạn xem qua ví dụ này, nhập vào một số thông tin ví dụ về xã, chuyển qua biểu II.5.B hoặc II.5.A, vào cột Lĩnh vực hoặc ban ngành, chọn F3 bạn sẽ thấy form lựa chọn hiện ra.

 

[dongducnhiem]

Túm lại, tôi chưa rõ ý bạn lắm. Nếu chỉ để lựa chọn mã hàng sao bạn không sử dụng phím nóng dạng Ctrl+T hoặc F3, đâu cần phức tạp nhỉ?

Mỗi ngày bạn fải mở Form vài trăm lần, có fím chơi fím, có chuột chơi chuột. KHÔNG SƯỚNG À!
----------
Cũng cảm ơn bạn góp ý tưởng

 

[dongducnhiem]

Đoạn code này:

Private Sub BuildPopupMenu()
  With Application.CommandBars("Cell").Controls.Add(1, , , 1)
    .Caption = "FormDMHH"
    .OnAction = "[COLOR=#ff0000][B]Test1[/B][/COLOR]"
  End With
End Sub

Bạn sửa .OnAction = "Test1" thành .OnAction = "ShowDMHH" là được rồi

Các bạn cho tôi hỏi, bây giờ tôi muốn khi Right Click thì Form trên (hoặc code nào khác) hiện lên ở tất cả mọi cell của 1 File (trong File có nhiều sheet) thì fải chỉnh code như thế nào?
------
P/s: Nếu đề tài này đã có, các bạn cho xin Link
Xin cảm ơn các bạn!

 

[ndu96081631]

Các bạn cho tôi hỏi, bây giờ tôi muốn khi Right Click thì Form trên (hoặc code nào khác) hiện lên ở tất cả mọi cell của 1 File (trong File có nhiều sheet) thì fải chỉnh code như thế nào?
------
P/s: Nếu đề tài này đã có, các bạn cho xin Link
Xin cảm ơn các bạn!

Trong file đang dùng sự kiện Worksheet_BeforeRightClick nên nó chỉ có tác dụng cho sheet đang chứa code
Giờ ta đổi thành sự kiện Workbook_SheetBeforeRightClick thì sẽ có tác dụng trên mọi sheet thôi
Mở file lên, Alt + F11 xem code và tự suy nghĩ cách sửa code đi bạn