Nhờ xem Code tạo menu theo 1 cell bat kỳ

[thanhnhanubnd]

Mình tạo 1 menu và mình muốn lấy tên Menu đó là giá trị trong ô nào đó, ví vụ : cell(5,6) thì phải sữa code thế nào, mình đã thử, nhờ bạn xem :

Set NewMenu = NewMenuBar.Controls.Add _
(Type:=msoControlPopup)
NewMenu.Caption = .Cell(5, 6).Value (lỗi).

 

[voda]

Bạn chỉnh lại như sau:

Set NewMenuBar = CommandBars.ActiveMenuBar
Set NewMenu = NewMenuBar.Controls.Add _
(Type:=msoControlPopup)
NewMenu.Caption = [B]Cells[/B](5, 6).Value

 

[doilangthang]

mình vẫn chưa hiểu lắm code này, bạn có thể làm thêm ví dụ minh họa rõ hơn không. Thanks bạn nhiều

 

[voda]

Bạn nhập vào cells(5,6) một chuỗi bất kỳ.
Copy đoạn code vào module:

Sub TaoMenu()
Set NewMenuBar = CommandBars.ActiveMenuBar
Set NewMenu = NewMenuBar.Controls.Add _
(Type:=msoControlPopup)
NewMenu.Caption = Cells(5, 6).Value
End sub

Chạy code, một Menu mới sẽ được tạo ra trên thanh MenuBar.

 

[thanhnhanubnd]

Nếu giá trị là 6, nhưng có hậu tố. Ví dụ : #&" van ban" thì menu làm không được