MinhCong
Thành viên gắn bó



- Tham gia
- 28/5/09
- Bài viết
- 1,645
- Được thích
- 1,806
- Nghề nghiệp
- Xây dựng Cầu đường
Chào các Bạn!
Mình có chép cái add-in tableGPE.xla của Thầy Phạm Duy Long về và chạy thì bị lỗi báo trong hộp thoại visual basic báo lỗi là
Run-time error '9':
Subscript out of range
Và tôi mở code ra chạy thử thì trong đoạn code M_Menu đoạn code (Tôi tô màu đỏ ở dưới ) chuyển sang màu vàng hết không chạy được. Nhờ các Bạn giúp Mình với vì Mình không chèn Bảng tính lên GPE được.
............................
Select Case MenuLevel
Case 1 ' A Menu
'Add the top-level menu to the Worksheet CommandBar
PositionOrMacro = Application.MenuBars(xlWorksheet).Menus.Count + 2
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
Before:=PositionOrMacro, _
Temporary:=True)
MenuObject.Caption = Caption
Case 2 ' A Menu Item
.....................
Mình có chép cái add-in tableGPE.xla của Thầy Phạm Duy Long về và chạy thì bị lỗi báo trong hộp thoại visual basic báo lỗi là
Run-time error '9':
Subscript out of range
Và tôi mở code ra chạy thử thì trong đoạn code M_Menu đoạn code (Tôi tô màu đỏ ở dưới ) chuyển sang màu vàng hết không chạy được. Nhờ các Bạn giúp Mình với vì Mình không chèn Bảng tính lên GPE được.
............................
Select Case MenuLevel
Case 1 ' A Menu
'Add the top-level menu to the Worksheet CommandBar
PositionOrMacro = Application.MenuBars(xlWorksheet).Menus.Count + 2
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
Before:=PositionOrMacro, _
Temporary:=True)
MenuObject.Caption = Caption
Case 2 ' A Menu Item
.....................