Vấn đề không hiển thị Cell Menu khi Right Click.

[Hoàng Trọng Nghĩa]

Xin các bạn cho mình biết nguyên do và cách khắc phục tình trạng không thể Right Click để hiện thị Menu trên Cell. Mình đang xài Excel 2007, mở một file mới toanh cũng bị như vậy, những file mình tạo ra chép qua máy khác lại không có vấn đề; mình đã gỡ bỏ bộ Office và cài lại, nó vẫn không thể hiện Cell Menu.

Phải chăng máy bị virus hay ai đó vọc gì đó nên không thể thực hiện được chức năng này?

Xin được giúp đỡ. Cảm ơn rất nhiều!

 

[sealand]

Hi, kiểm tra lại chuột đi (Cả Drive của nó nữa), thường những cái này tự động nên dễ mua chuột mới lắm.

 

[PhanTuHuong]

Kiểm tra chuột như anh sealand nói ở trên xem thế nào và anh thử test đoạn code này xem sao:

Sub Test()
    Dim Ctr As CommandBarControl
    
    For Each Ctr In Application.CommandBars("Cell").Controls
        MsgBox Ctr.Caption
    Next
End Sub

Hoặc thiết lập lại:

Application.CommandBars("Cell").Reset

 

[Hoàng Trọng Nghĩa]

Cám ơn Anh Sealand, cám ơn Thầy Hướng!

Mình chẳng hiểu sao, mọi chương trình khác như Word, Power Point, Notepad ... đều xổ menu khi click chuột phải (mình đang xài laptop). Riêng Excel thì chỉ cho xổ menu khi click chuột vào column & row header, Sheet tab, Ribbon. Còn trên Cells thì bó tay.

Với Sub Test của Thầy Hướng thì các caption như Cut, Copy, Paste... hiện ra trên msgbox, nhưng chả thấy gì cả! Reset lại CommandBars("Cells") cũng chẳng ăn thua!!!

Thật tình chẳng hiểu nổi!!!!

 

[sealand]

Còn có 1 lý do nữa dẫn đến vấn đề này: Đó là Add-In. Các Add-In chiếm quyền rightclick thì nó cũng vô hiệu chuột phải. bạn kiểm tra lại xem sao

 

[Hoàng Trọng Nghĩa]

Còn có 1 lý do nữa dẫn đến vấn đề này: Đó là Add-In. Các Add-In chiếm quyền rightclick thì nó cũng vô hiệu chuột phải. bạn kiểm tra lại xem sao

Hic, hic, hic... Anh nhìn xem, chẳng có Addins nào được chọn hết! Chắc cài lại Window quá!

 

[rollover79]

Bạn có thể check thử như sau:
- Viết sự kiện cho WorkBook như sau:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
MsgBox 1
End Sub
- Viết sự kiện cho WorkSheet hiện hành(sheet dùng để test) như sau:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox 2
End Sub
- Thử click phải xem có xảy ra hay không?
- Còn 1 cách nữa là viết thử 1 sub đơn giản như sau
Sub test()
CommandBars("Cell").Enabled = True
End Sub
Chạy thử sub trên rồi thử click phải lại xem sao.

 

[truong ngoc an]

Quá hay! máy của mình cũng bị trường hợp tương tự như trên, sau khi thực hiện như các bạn hướng dẫn máy mình đã hiển thị trở lại Cell Menu khi Right Click. Cám ơn các bạn nhiều

 

[phibonaxi]

Laptop của tôi cũng bị lỗi tương tự về Right-click, nhưng hơi bị ngược với Trọng Nghĩa!
Tôi có thể chọn Right Click của cell, nhưng khi chọn Right-click cho cả dòng hay cột thì không hiện ra gì cả.
Đã thử cài lại Office nhưng vẫn vậy. Hi vọng sẽ tìm được giải pháp từ các thầy cô.

 

[phibonaxi]

Khi tôi chạy sub dưới đây (sau khi tham khảo từ http://www.mrexcel.com/forum/excel-questions/320304-right-click-doesnt-work-anymore.html), thì tôi có thể sử dụng Right-click.

Sub Show()
'Show Command Bars
Dim c As CommandBar
For Each c In CommandBars
c.Enabled = True
Next
Application.DisplayFormulaBar = True
End Sub