Click chuột phải bị hiện lên "Test Routine 1/Test Routine 2" (1 người xem)

[MicrochipVMV]

Hi all,
Bạn nào giúp mình với. Sau khi load cái file Vidu_nhom_hs.xls về xài thì bây giờ cứ click chuột phải là nó hiện lên "Test Routine 1 và Test Routine 2".
Bạn nào có cách gỡ lỗi trên để Excel em về lại ban đầu không? Tức là click chuột phải sẽ ra menu Excel đó.
Hình minh họa:

 

[giangleloi]

Hi all,
Bạn nào giúp mình với. Sau khi load cái file Vidu_nhom_hs.xls về xài thì bây giờ cứ click chuột phải là nó hiện lên "Test Routine 1 và Test Routine 2".
Bạn nào có cách gỡ lỗi trên để Excel em về lại ban đầu không? Tức là click chuột phải sẽ ra menu Excel đó.
Hình minh họa:
View attachment 137264

Chắc là bạn có cài cái Add -in nào vô đó. Bạn kiểm tra xem có không rồi gỡ nó đi.

 

[giangleloi]

Có bác nào nghịch dại như em chưa. Tải file trên về thấy có 1 cái module và 1 cái Private Sub Worksheet_change để hiển thị vấn đề như chủ thớt nói. Nhưng em đã xóa file đó đi rồi mà vẫn còn bị tình trạng đó nhỉ.

 

[leonguyenz]

Có bác nào nghịch dại như em chưa. Tải file trên về thấy có 1 cái module và 1 cái Private Sub Worksheet_change để hiển thị vấn đề như chủ thớt nói. Nhưng em đã xóa file đó đi rồi mà vẫn còn bị tình trạng đó nhỉ.

Đang cài lại từng cái đây.
Chèn tạm mấy cái này:

Sub Add_Item()
    CommandBars("Cell").Controls.Add Type:=msoControlButton, _
       ID:=21, Before:=1
    CommandBars("Cell").Controls.Add Type:=msoControlButton, _
       ID:=19, Before:=2
    CommandBars("Cell").Controls.Add Type:=msoControlButton, _
       ID:=22, Before:=3
    CommandBars("Cell").Controls.Add Type:=msoControlButton, _
       ID:=755, Before:=4
    CommandBars("Cell").Controls.Add Type:=msoControlButton, _
       ID:=865, Before:=5
    CommandBars("Cell").Controls.Add Type:=msoControlButton, _
       ID:=866, Before:=6
     'CommandBars("Cell").Controls.Add Type:=msoControlButton, _
     '  ID:=478, Before:=7
End Sub
Nhầm cái ID 478, nó là Custom, không phải Delete.

Xóa 2 cái Test Routine:

Sub Del_Item()
    CommandBars("Cell").Controls("Test Routine 1").Delete
    CommandBars("Cell").Controls("Test Routine 2").Delete
End Sub

Nguồn: [h=1]Vọc chơi với Popup Menu !!![/h]

 

[MicrochipVMV]

@giangleloi ở Biên Hòa ah, mình ở Tân Phong nè, hihihi.
Vẫn chưa hiểu ý bác @leonguyenz nói, xóa chổ nào? Thông cảm, cũng vào code và thấy nhưng xóa cũng không ổn

 

[Cá ngừ F1]

@giangleloi ở Biên Hòa ah, mình ở Tân Phong nè, hihihi.
Vẫn chưa hiểu ý bác @leonguyenz nói, xóa chổ nào? Thông cảm, cũng vào code và thấy nhưng xóa cũng không ổn

Đây là sự kiện Right click trên sheet.

Từ cửa ở excel => Alt + F11 => cửa sổ VBA mở ra, bạn click đúp vào sheet1 => khung soạn thảo code hiện ra => bạn xóa sạch nó đi => save lại => trở về excel => thế là hết.

 

[giangleloi]

@giangleloi ở Biên Hòa ah, mình ở Tân Phong nè, hihihi.
Vẫn chưa hiểu ý bác @leonguyenz nói, xóa chổ nào? Thông cảm, cũng vào code và thấy nhưng xóa cũng không ổn

Chính xác. Mình ở gần cây xăng 26 nè. Bấm Alt +11=> Insert module => Bấm F5 sẽ được.

 

[MicrochipVMV]

Oạch, mình ở ngày khu dân cư Quân đoàn 4, kakaka.
Cho số fone hôm nào giao lưu coi @giangleloi

Để theo lời giang xem sao

 

[giangleloi]

Oạch, mình ở ngày khu dân cư Quân đoàn 4, kakaka.
Cho số fone hôm nào giao lưu coi @giangleloi

Để theo lời giang xem sao

Làm theo anh Cá Ngừ kìa. Rồi copy đoạn code của anh Leo vô. Mới bấm F5 chạy code.

 

[MicrochipVMV]

Thanks @giangleloi, đã làm theo và thành công
Tuy nhiên menu nó vẫn thiếu
Xem hình nha

 

[giangleloi]

Thanks @giangleloi, đã làm theo và thành công
Tuy nhiên menu nó vẫn thiếu

Thiếu những cái gì bạn hãy liệt kê ra. Add thêm vô là được thôi.

 

[MicrochipVMV]

Đã làm theo bác Cá Ngừ.
Copy code của bác leonguyenz.
Và kết quả là nó hiện lặp menu 3 lần
Các bạn tham khảo file đính kèm nha.
Còn bạn nào sửa dùm cái file gửi lại cho mình được không, mở ra quất luôn, hihihi

 

[giangleloi]

Đã làm theo bác Cá Ngừ.
Copy code của bác leonguyenz.
Và kết quả là nó hiện lặp menu 3 lần
Các bạn tham khảo file đính kèm nha.
Còn bạn nào sửa dùm cái file gửi lại cho mình được không, mở ra quất luôn, hihihi

Cho chạy 2 lần thôi nha. Chạy quá 3 là mất hết đấy.

Sub Del_Item()
    CommandBars("Cell").Controls("Paste Special...").Delete
    CommandBars("Cell").Controls("Paste").Delete
    CommandBars("Cell").Controls("Copy").Delete
    CommandBars("Cell").Controls("Hide").Delete
    CommandBars("Cell").Controls("Unhide...").Delete
    CommandBars("Cell").Controls("Cut").Delete
End Sub

 

[Cá ngừ F1]

Đã làm theo bác Cá Ngừ.
Copy code của bác leonguyenz.
Và kết quả là nó hiện lặp menu 3 lần
Các bạn tham khảo file đính kèm nha.
Còn bạn nào sửa dùm cái file gửi lại cho mình được không, mở ra quất luôn, hihihi

Tôi chưa hiểu ý bạn muốn gì?
Bạn muốn menu click phải chuột như mặc định của excel? Nếu thế chỉ cần xóa sự kiện right click trong sheet như tôi đã nói là OK rồi mà.

 

[giangleloi]

Tôi chưa hiểu ý bạn muốn gì?
Bạn muốn menu click phải chuột như mặc định của excel? Nếu thế chỉ cần xóa sự kiện right click trong sheet như tôi đã nói là OK rồi mà.

Không được anh ơi. Xóa hết. Xóa luôn File đó. Tắt máy mở lại những file excel khác vẫn bị y như vậy à. Phải làm như anh leo ấy rồi add lại mới được. Hay là anh không cần làm như vậy. Thấy cũng lạ. Híc Híc

 

[giola]

Không được anh ơi. Xóa hết. Xóa luôn File đó. Tắt máy mở lại những file excel khác vẫn bị y như vậy à. Phải làm như anh leo ấy rồi add lại mới được. Hay là anh không cần làm như vậy. Thấy cũng lạ. Híc Híc

Các bạn thử dụng cái này

application.CommandBars("Cell").Reset

Vào cửa sổ Immediately, ​

 

[ndu96081631]

Chính xác. Mình ở gần cây xăng 26 nè.

Gần vậy mà hổng thấy tham gia uống cafe gì với bọn này hết vậy ta?
(cây xăng 75 nè!)

 

[giangleloi]

Gần vậy mà hổng thấy tham gia uống cafe gì với bọn này hết vậy ta?
(cây xăng 75 nè!)

Híc. Gần quá luôn ta. Em có biết nhưng em thấy em còn trẻ người non dạ sợ không hợp gu với mấy anh nên hổng dám đăng ký. A đã chủ động nói như vậy thì những lần sau có hội họp em sẽ cố gắng hết sức nhiệt tình tham gia.

 

[MicrochipVMV]

Híc. Gần quá luôn ta. Em có biết nhưng em thấy em còn trẻ người non dạ sợ không hợp gu với mấy anh nên hổng dám đăng ký. A đã chủ động nói như vậy thì những lần sau có hội họp em sẽ cố gắng hết sức nhiệt tình tham gia.

Ở gần toàn cao nhân mà không biết, kakaka, thôi thứ 7 3 anh em mình làm cái cafe Thành Phát đi

 

[leonguyenz]

Ở gần toàn cao nhân mà không biết, kakaka, thôi thứ 7 3 anh em mình làm cái cafe Thành Phát đi

Cả giangleloi, MicrochipVMV và Thầy ndu96081631 về Box Liên Lạc Địa Phương để tiếp tục giao lưu và còn nhiều anh em ở Biên Hòa muốn gặp gỡ (Admin mở thêm Box Biên Hòa và nhờ Mod/sMod di chuyển dùm). Bạn MicrochipVMV tham gia GPE từ năm 2006, đến nay đã 9 năm rồi, vậy cố gắng tham gia viết bài để GPE Biên Hòa ngày càng đông thành viên, vững mạnh hơn.