Click chuột phải đổi tên sheet trong listbox

[thaithien09]

Chào các Anh chị trên diễn đàn GPE

Hướng dẫn giúp mình đoạn code như sau: Có các tên sheet trong listbox, mình muốn đổi tên trong list box bằng cách click phải chuột rồi đổi tên. Ai biết giúp mình.

Xin cám ơn.

 

[vu_tuan_manh_linh]

Tôi tìm trong các thuộc tính của Listbox không thấy cái nào nói về click chuột phải. Trong các Private Sub cũng chỉ thấy Click và DbClick thôi. Vậy nên giải pháp có lẽ là: DbClick, hiện ra 1 Userform với 1 textbox, 1 CommandButton. Tên Sheet mới đặt trong textbox và thực hiện đổi tên bằng CommandButton.

 

[ndu96081631]

Tôi tìm trong các thuộc tính của Listbox không thấy cái nào nói về click chuột phải. Trong các Private Sub cũng chỉ thấy Click và DbClick thôi. Vậy nên giải pháp có lẽ là: DbClick, hiện ra 1 Userform với 1 textbox, 1 CommandButton. Tên Sheet mới đặt trong textbox và thực hiện đổi tên bằng CommandButton.

Cũng có thể được đấy! Dùng sự kiện MouseDown

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Button = 2 Then
    ''Làm cái gì đó, có thể là Show 1 Popup để rename sheet chẳng hạn
  End If
End Sub