Làm sao để menu tự tạo chỉ tồn tại trong file chứa code (1 người xem)

  • Thread starter Thread starter nad582
  • Ngày gửi Ngày gửi
Elx Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
nad582

nad582

Thành viên thường trực
Tham gia
7/6/11
Bài viết
317
Được thích
48
Chào các a(c) trong GPE?
e có câu hỏi thế này:
khi e đã tạo 1 cái lệnh trong thanh manu để chạy 1 macro nào đó của 1 file excel(1), nhưng khi tắt file excel(1) đó đi rồi mở lại 1 file excel(2) mới thì cái lệnh đã tạo trong thanh công cụ vẫn còn!! vậy làm sao để khi tạo 1 lệnh trong thanh menu của 1 file excel(1) mà khi mở thêm 1 file excel(2) khác không có lệnh trong file excell(2) mới!!
View attachment 127065
màu đỏ là nút lệnh e đã tạo cho file excell(1)
tóm lại là tạo nút lệnh trên thanh menu của file excell nào thì chỉ mỗi file excell đó có thôi khi mở file mới lên thì ko có!!
e dùng excell 2003!!
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
nad582 đã viết:
tóm lại là tạo nút lệnh trên thanh menu của file excell nào thì chỉ mỗi file excell đó có thôi khi mở file mới lên thì ko có!!
e dùng excell 2003!!
Nhấp chuột vào đây để mở rộng...

Bạn biết tạo menu đương nhiên phải biết xóa?
Đặt câu lệnh xóa menu trong Sub Auto_Close là được
Mã: 
Sub Auto_Close()
  'Lệnh xóa menu menu
End Sub
Đóng file, menu sẽ được xóa
 
Upvote 0
ndu96081631 đã viết:
Bạn biết tạo menu đương nhiên phải biết xóa?
Đặt câu lệnh xóa menu trong Sub Auto_Close là được
Mã: 
Sub Auto_Close()
  'Lệnh xóa menu menu
End Sub
Đóng file, menu sẽ được xóa
Nhấp chuột vào đây để mở rộng...
cảm ơn a Ndu!!như vậy nếu khi xóa rồi mà e muốn sử dụng lại file excell đó thì phải làm lại cái menu đó sao? nhưng ý của e là:
nad582 đã viết:
khi e đã tạo 1 cái lệnh trong thanh manu để chạy 1 macro nào đó của 1 file excel(1),
nhưng khi tắt file excel(1) đó đi rồi mở 1 file excel(2) mới thì cái lệnh đã tạo trong thanh công cụ vẫn còn!!
vậy làm sao để khi tạo 1 lệnh trong thanh menu của 1 file excel(1) mà khi mở thêm 1 file excel(2) khác không có lệnh trong file excell(2) mới!!
View attachment 127065
màu đỏ là nút lệnh e đã tạo cho file excell(1)
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
nad582 đã viết:
cảm ơn a Ndu!!như vậy nếu khi xóa rồi mà e muốn sử dụng lại file excell đó thì phải làm lại cái menu đó sao? nhưng ý của e là:
Nhấp chuột vào đây để mở rộng...

Ủa gì kỳ vậy? Cái file đó bạn mở lên và nó tự tạo ra menu (chắc dùng Auto_Open hoặc sự kiện Workbook_Open). Vậy thì bây giờ bạn cứ mở file lên là menu nó tự có thôi (Code xóa menu chỉ làm việc khi đóng file)
 
Upvote 0
ndu96081631 đã viết:
Ủa gì kỳ vậy? Cái file đó bạn mở lên và nó tự tạo ra menu (chắc dùng Auto_Open hoặc sự kiện Workbook_Open). Vậy thì bây giờ bạn cứ mở file lên là menu nó tự có thôi (Code xóa menu chỉ làm việc khi đóng file)
Nhấp chuột vào đây để mở rộng...
Căng quá e ko biết diễn tả sao đây!!
e nói chi tiết lần nữa xem sao!! e dùng Excell 2003
1. e mở file excell mới lên (e lưu đặt tên là AAA), sau đó e tạo ra 1 cái menu mới (tên About) trên menu thanh (e thực hiện theo mục 3.3 http://www.giaiphapexcel.com/forum/...cơ-bản-về-Visual-Basic-for-Applications-(VBA))
2. e mở mới hoàn toàn file excell khác lên (có tên mặt định là book2), thì nó mặc định trên menu thanh cũng có menu tên About mà e đã tạo ở file excell AAA.
Tình hình là như vậy đó!! vậy làm sao khi mở file AAA lên thì vẫn có menu About trên menu thanh (vì file AAA đã tạo rồi), khi mở file excell khác thì ko có menu About trên menu thanh (vì file khác chưa tạo menu).....
e cảm ơn
 
Upvote 0
nad582 đã viết:
Căng quá e ko biết diễn tả sao đây!!
e nói chi tiết lần nữa xem sao!! e dùng Excell 2003
1. e mở file excell mới lên (e lưu đặt tên là AAA), sau đó e tạo ra 1 cái menu mới (tên About) trên menu thanh (e thực hiện theo mục 3.3 http://www.giaiphapexcel.com/forum/...cơ-bản-về-Visual-Basic-for-Applications-(VBA))
2. e mở mới hoàn toàn file excell khác lên (có tên mặt định là book2), thì nó mặc định trên menu thanh cũng có menu tên About mà e đã tạo ở file excell AAA.
Tình hình là như vậy đó!! vậy làm sao khi mở file AAA lên thì vẫn có menu About trên menu thanh (vì file AAA đã tạo rồi), khi mở file excell khác thì ko có menu About trên menu thanh (vì file khác chưa tạo menu).....
e cảm ơn
Nhấp chuột vào đây để mở rộng...

Hiểu rồi!
Vậy thì
- Dùng sự kiện Workbook_Deactivate để xóa menu
- Dùng sự kiện Workbook_Activate để tạo menu
 
Upvote 0
ndu96081631 đã viết:
Hiểu rồi!
Vậy thì
- Dùng sự kiện Workbook_Deactivate để xóa menu
- Dùng sự kiện Workbook_Activate để tạo menu
Nhấp chuột vào đây để mở rộng...
e tưởng chỉ cần điều chỉnh trong excell thôi chứ!! vì tạo 1 menu mới nó luôn mặc định!!
Nhờ a giải thích giúp e luôn được ko?
đề bài là:
-tạo 1 file excel tên thutuc
-tạo 1 menu trên menu thanh có tên là About
-trong menu About có 3 mục con là one, true, three
vậy nhờ a viết code khi mở file thutuc len thi có menu đã tạo còn mở file khác thì ko có!!
xin cảm ơn a!!mong hồi âm
 
Upvote 0
nad582 đã viết:
e tưởng chỉ cần điều chỉnh trong excell thôi chứ!! vì tạo 1 menu mới nó luôn mặc định!!
Nhờ a giải thích giúp e luôn được ko?
đề bài là:
-tạo 1 file excel tên thutuc
-tạo 1 menu trên menu thanh có tên là About
-trong menu About có 3 mục con là one, true, three
vậy nhờ a viết code khi mở file thutuc len thi có menu đã tạo còn mở file khác thì ko có!!
xin cảm ơn a!!mong hồi âm
Nhấp chuột vào đây để mở rộng...
Bạn có file đó thì đưa lên đây rồi người ta sửa cho chứ chẳng lẽ làm từ A đến Z sao?
 
Upvote 0
ndu96081631 đã viết:
Bạn có file đó thì đưa lên đây rồi người ta sửa cho chứ chẳng lẽ làm từ A đến Z sao?
Nhấp chuột vào đây để mở rộng...
E tham khảo đoạn code trên diễn đàn (e quên tên người viết rồi), e đã điều chỉnh cho bài e rồi!! vậy nhờ a xem lại rồi sửa giúp em!! e cảm ơn!!
View attachment 127121
đây là file e đã tạo, khi bấm vào new hay mở file khác thì
View attachment 127122
nó vẫn mặc định vẫn còn hiện thị menu đã tạo!!
vậy làm sao khi bấm vào new hay mở file khác thì ko còn menu file nữa????????
 
Upvote 0
nad582 đã viết:
vậy làm sao khi bấm vào new hay mở file khác thì ko còn menu file nữa????????
Nhấp chuột vào đây để mở rộng...

Trong module có code:
Mã: 
[COLOR=#0000cd]Private [/COLOR]Sub CreatMenu()
  Dim MenuName As Object, iMenu As Integer
  iMenu = Application.MenuBars(xlWorksheet).Menus.Count + 1
  MenuBars(xlWorksheet).Menus.Add "About", iMenu
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="One", Before:=1, OnAction:="Menu1"
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="True", Before:=2, OnAction:="Menu2"
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="Three", Before:=3, OnAction:="Menu3"
End Sub
[COLOR=#0000cd]Private [/COLOR]Sub DeleteMenu()
  Dim MenuName As Object
  For Each MenuName In MenuBars(xlWorksheet).Menus
    If MenuName.Caption = "About" Then MenuName.Delete
  Next
End Sub
Bạn hãy sửa thành:

Mã: 
Sub CreatMenu()
  Dim MenuName As Object, iMenu As Integer
  [COLOR=#ff0000]DeleteMenu[/COLOR]
  iMenu = Application.MenuBars(xlWorksheet).Menus.Count + 1
  MenuBars(xlWorksheet).Menus.Add "About", iMenu
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="One", Before:=1, OnAction:="Menu1"
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="True", Before:=2, OnAction:="Menu2"
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="Three", Before:=3, OnAction:="Menu3"
End Sub
Sub DeleteMenu()
  Dim MenuName As Object
  For Each MenuName In MenuBars(xlWorksheet).Menus
    If MenuName.Caption = "About" Then MenuName.Delete
  Next
End Sub
Tức xóa chỗ màu xanh và thêm vào chỗ màu đỏ
Tiếp theo, trong Thisworkbook, bạn thêm 2 đoạn này vào:
Mã: 
Private Sub Workbook_Activate()
  CreatMenu
End Sub
Private Sub Workbook_Deactivate()
  DeleteMenu
End Sub
 

File đính kèm

Upvote 0
ndu96081631 đã viết:
Trong module có code:
Mã: 
[COLOR=#0000cd]Private [/COLOR]Sub CreatMenu()
  Dim MenuName As Object, iMenu As Integer
  iMenu = Application.MenuBars(xlWorksheet).Menus.Count + 1
  MenuBars(xlWorksheet).Menus.Add "About", iMenu
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="One", Before:=1, OnAction:="Menu1"
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="True", Before:=2, OnAction:="Menu2"
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="Three", Before:=3, OnAction:="Menu3"
End Sub
[COLOR=#0000cd]Private [/COLOR]Sub DeleteMenu()
  Dim MenuName As Object
  For Each MenuName In MenuBars(xlWorksheet).Menus
    If MenuName.Caption = "About" Then MenuName.Delete
  Next
End Sub
Bạn hãy sửa thành:

Mã: 
Sub CreatMenu()
  Dim MenuName As Object, iMenu As Integer
  [COLOR=#ff0000]DeleteMenu[/COLOR]
  iMenu = Application.MenuBars(xlWorksheet).Menus.Count + 1
  MenuBars(xlWorksheet).Menus.Add "About", iMenu
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="One", Before:=1, OnAction:="Menu1"
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="True", Before:=2, OnAction:="Menu2"
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="Three", Before:=3, OnAction:="Menu3"
End Sub
Sub DeleteMenu()
  Dim MenuName As Object
  For Each MenuName In MenuBars(xlWorksheet).Menus
    If MenuName.Caption = "About" Then MenuName.Delete
  Next
End Sub
Tức xóa chỗ màu xanh và thêm vào chỗ màu đỏ
Tiếp theo, trong Thisworkbook, bạn thêm 2 đoạn này vào:
Mã: 
Private Sub Workbook_Activate()
  CreatMenu
End Sub
Private Sub Workbook_Deactivate()
  DeleteMenu
End Sub
Nhấp chuột vào đây để mở rộng...
Em cảm ơn a
ndu96081631 đã viết:
.
e hỏi thêm chút:
Đó là đối với file excell 2003, nhưng khi e dùng excell 2007, 2010 mở file đó thi ko có tác dụng?
Vậy có cách nào vẫn cách thức đó mà khi dùng excell 2007, 2010 vẫn được ko a?
Tóm lại là đối với file trên, code trên mà dùng excell 2007, 2010 để mở thì vẫn cho kết quả như trên!! hoặc cách nào khác để khi dùng excell 2003 trở lên đều thực hiện được bài trên!!
e chân thành cảm ơn!! mong, a hồi âm!!
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
nad582 đã viết:
e hỏi thêm chút:
Đó là đối với file excell 2003, nhưng khi e dùng excell 2007, 2010 mở file đó thi ko có tác dụng?
Vậy có cách nào vẫn cách thức đó mà khi dùng excell 2007, 2010 vẫn được ko a?
Tóm lại là đối với file trên, code trên mà dùng excell 2007, 2010 để mở thì vẫn cho kết quả như trên!! hoặc cách nào khác để khi dùng excell 2003 trở lên đều thực hiện được bài trên!!
e chân thành cảm ơn!! mong, a hồi âm!!
Nhấp chuột vào đây để mở rộng...

Bây giờ thì chắc phải làm từ A đến Z rồi --=0
1> Code trong Module:
Mã: 
Private Sub Auto_Open()
  BuildBar
End Sub
Private Sub Auto_Close()
  DelBar
End Sub
Sub BuildBar()
  Dim cBar As CommandBar
  Dim ctlPop As CommandBarPopup, ctlBtt As CommandBarButton
  DelBar
  Set cBar = Application.CommandBars.Add("nad582")
  With cBar
    .Position = msoBarTop
    .Visible = True
    Set ctlPop = .Controls.Add(msoControlPopup)
    With ctlPop
      .Caption = "About"
      With .Controls.Add(msoControlButton)
        .Caption = "One"
        .Style = msoButtonIconAndCaption
        .OnAction = "Menu1"
        .FaceId = 39
      End With
      With .Controls.Add(msoControlButton)
        .Caption = "Two"
        .Style = msoButtonIconAndCaption
        .OnAction = "Menu2"
        .FaceId = 40
      End With
      With .Controls.Add(msoControlButton)
        .Caption = "Three"
        .Style = msoButtonIconAndCaption
        .OnAction = "Menu3"
        .FaceId = 41
      End With
    End With
  End With
End Sub
Sub DelBar()
  On Error Resume Next
  Application.CommandBars("nad582").Delete
End Sub
Private Sub Menu1()
  MsgBox "Chon Menu 1"
End Sub
Private Sub Menu2()
  MsgBox "Chon Menu 2"
End Sub
Private Sub Menu3()
  MsgBox "Chon Menu 3"
End Sub
2> Code trong Thisworkbook:
Mã: 
Private Sub Workbook_Activate()
  BuildBar
End Sub
Private Sub Workbook_Deactivate()
  DelBar
End Sub
Xong!
Lưu ý: Cái này là tạo CommandBar chứ không phải Menu, như thế mới hiển thị được trên Excel 2003 và 2007. Tuy nhiên ta sẽ cố làm CommandBar dạng Popup để cho hình dáng nó gần giống với menu
-----------------------
Giao diện khi mở trên Excel 2003:

Untitled_1.jpg




























Giao diện khi mở trên Excel 2010


Untitled_2.jpg
 

File đính kèm

Upvote 0
ndu96081631 đã viết:
Bạn hãy sửa thành:
Mã: 
Sub CreatMenu()
  Dim MenuName As Object, iMenu As Integer
  [COLOR=#ff0000]DeleteMenu[/COLOR]
  iMenu = Application.MenuBars(xlWorksheet).Menus.Count + 1
  MenuBars(xlWorksheet).Menus.Add "About", iMenu
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="One",Before:=1,OnAction:="Menu1"
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="True", Before:=2, OnAction:="Menu2"
  MenuBars(xlWorksheet).Menus(iMenu).MenuItems.Add Caption:="Three", Before:=3, OnAction:="Menu3"
End Sub
Sub DeleteMenu()
  Dim MenuName As Object
  For Each MenuName In MenuBars(xlWorksheet).Menus
    If MenuName.Caption = "About" Then MenuName.Delete
  Next
End Sub
Nhấp chuột vào đây để mở rộng...
code trên nếu ta thêm cái icon vào (menu con "one", "true", "three") nữa thì code viết thế nào a?
cảm ơn a
 
Upvote 0
nad582 đã viết:
code trên nếu ta thêm cái icon vào (menu con "one", "true", "three") nữa thì code viết thế nào a?
cảm ơn a
Nhấp chuột vào đây để mở rộng...

Vậy thì bạn phải viết kiểu khác mới được:
Mã: 
Sub CreatMenu()
  Dim mObj As CommandBarPopup
  DeleteMenu
  Set mObj = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
  mObj.Caption = "About"
  With mObj.Controls.Add(msoControlButton, , , , True)
    .Caption = "One"
    .OnAction = "Menu1"
    [COLOR=#ff0000].FaceId = 39[/COLOR]
  End With
  With mObj.Controls.Add(msoControlButton, , , , True)
    .Caption = "Two"
    .OnAction = "Menu2"
   [COLOR=#ff0000] .FaceId = 40[/COLOR]
  End With
  With mObj.Controls.Add(msoControlButton, , , , True)
    .Caption = "Three"
    .OnAction = "Menu3"
   [COLOR=#ff0000] .FaceId = 41[/COLOR]
  End With
End Sub
Sub DeleteMenu()
  On Error Resume Next
  Application.CommandBars(1).Controls("About").Delete
End Sub
Private Sub Menu1()
  MsgBox "Chon menu 1"
End Sub
Private Sub Menu2()
  MsgBox "Chon menu 2"
End Sub
Private Sub Menu3()
  MsgBox "Chon menu 3"
End Sub
Chỗ màu đỏ chính là chỗ thêm Icon
Lưu ý: Dạng này không xài được trên Excel 2007
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

P
Hyperlink_Cách chuyển cả thư mục và file tổng hợp sang máy khác không bị lỗi (1 người xem)
Trả lời
6
Đọc
113
tieutuvodanh192
tieutuvodanh192
ptm0412
Quá tin tưởng vào AI các thể loại (3 người xem)
    • Cười
Trả lời
5
Đọc
227
tieutuvodanh192
tieutuvodanh192
P
Lấy dữ liệu, theo điều kiện ngày và cấu trúc 2 bảng tính khác nhau.
Trả lời
0
Đọc
21
Phamthong0712
P
L
Tính thời gian làm việc thực tế (1 người xem)
Trả lời
66
Đọc
14K
YenTon
Y
H
Chia sẻ file in Phiếu điều tra PCGD
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
13
Đọc
639
Phuong7686
P
GPE-Trợ Lý
  • Dán lên cao
[KHẨN] HƯỚNG VỀ ĐỒNG BÀO CHỊU ẢNH HƯỞNG CỦA BÃO YAGI - BẢO YÊN, LÀO CAI
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
91
Đọc
14K
SA_DQ
SA_DQ
SA_DQ
Copilot bình luận về một ván cờ vua
    • Thích
Trả lời
6
Đọc
413
SA_DQ
SA_DQ
92nguyenthanh
  • Question Question
Vba cho file nhập xuất kho
Trả lời
4
Đọc
121
HUONGHCKT
H
C
Fix lỗi Application.InputBox Type:=8 (1 người xem)
    • Cười
Trả lời
25
Đọc
618
ptm0412
ptm0412
GPE-Trợ Lý
[GPE] TALK SHOW 08: GIẢI QUYẾT VẤN ĐỀ TỐI ƯU HÓA TRONG EXCEL VỚI CÔNG CỤ SOLVER (1 người xem)
    • Thích
    • Cảm ơn
Trả lời
4
Đọc
3K
DuongLeHung
D
Gà Công Nghệ
Chế độ chính sách cho giáo viên mầm non giữ trẻ khuyết tật
Trả lời
1
Đọc
64
vanle33
vanle33
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
56
Đọc
22K
dunghtgiga
dunghtgiga
L
  • Question Question
Viết code tìm kiếm các file trong Folder
Trả lời
40
Đọc
12K
lan nguyen0987
L
HeSanbi
Tiện ích Web: Tự động nhấn nút "Bỏ qua" quảng cáo Youtube
    • Thích
    • Yêu thích
Trả lời
14
Đọc
1K
ongke0711
ongke0711
A
  • Question Question
Không tìm được lỗi code (1 người xem)
Trả lời
6
Đọc
161
ptm0412
ptm0412
W
Tham chiếu theo chuỗi ký tự
Trả lời
8
Đọc
317
dungpham01
D
tritv.dad
Lấy dữ liệu từ folder các tờ khai thông quan để theo dõi hiệu suất công việc.
Trả lời
8
Đọc
291
BlueSphere
B
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11 (1 người xem)
    • Thích
Trả lời
0
Đọc
3K
GPE-Trợ Lý
GPE-Trợ Lý
SA_DQ
Xin chúc mừng các thầy cô giáo trên cộng đồng nhân 20/11
    • Thích
    • Yêu thích
Trả lời
1
Đọc
138
BuiQuangThuan
B
M
chuyển đổi số thành chữ
Trả lời
15
Đọc
373
dungpham01
D
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom