Em có sử dụng file tạo menu trên diễn đàn.
Nhờ các bác giúp em chỉnh sửa menu này để:
- Menu này sẽ tồn tại ngay cả khi thoát excell
Thanks
Em diễn đạt chưa rõ nghĩa lắm. Chính xác là như bácHoàng Trọng Nghĩa nói.
Không delete hay reset menu, để khi mở excell là có ngay menu cá nhân do mình tạo ra.
Giúp em với.
Em diễn đạt chưa rõ nghĩa lắm. Chính xác là như bácHoàng Trọng Nghĩa nói.
Không delete hay reset menu, để khi mở excell là có ngay menu cá nhân do mình tạo ra.
Giúp em với.
Tạo menu kiểu đó thì khi mở một file khác và bấm vào menu tự tạo thì nó sẽ mở lại cái file có chứa các thủ tục đó, vì thế tôi nghĩ bạn phải tạo một addins thôi.
Tạo menu kiểu đó thì khi mở một file khác và bấm vào menu tự tạo thì nó sẽ mở lại cái file có chứa các thủ tục đó, vì thế tôi nghĩ bạn phải tạo một addins thôi.
Tạo menu kiểu đó thì khi mở một file khác và bấm vào menu tự tạo thì nó sẽ mở lại cái file có chứa các thủ tục đó, vì thế tôi nghĩ bạn phải tạo một addins thôi.
Tạo addins thì không thể chứa sheet, mà như thế không thể chứa dữ liệu nguồn để tạo menu được (vì dữ liệu này nằm trong sheet).
Đúng là chỉ có cách tạo ra file menu như anh vừa nêu: ở file khác bấm vào menu tự tạo thì mở lại cái file chứa thủ tục đó.
Thanks.
Em xin mạo mụi hỏi ké pic này 1 tí, em cũng đang vướng vào vấn đề anh Nghĩa nói, và chưa có cách khắc phục. Mong bác hướng dẫn khắc phục cho em vấn đề này với ạ.
Em có sử dụng file tạo menu trên diễn đàn.
Nhờ các bác giúp em chỉnh sửa menu này để:
- Menu này sẽ tồn tại ngay cả khi thoát excell
Thanks
Em xin mạo mụi hỏi ké pic này 1 tí, em cũng đang vướng vào vấn đề anh Nghĩa nói, và chưa có cách khắc phục. Mong bác hướng dẫn khắc phục cho em vấn đề này với ạ.
Đây là thủ tục tạo Menu, cái này chắc ai cũng đã biết làm rồi nhỉ?
Sau đây tôi sẽ hướng dẫn cụ thể để các bạn có thể tạo ra một addins một cách dễ dàng để các bạn sử dụng. File này chi để tham khảo nha các bạn.
Thủ tục tạo Menu:
Mã:
Private Sub MainMenu()
Dim TrangChu As String
Dim ThuTuc1 As String
Dim ThuTuc2 As String
Dim CSDL As String, _
QLNhap As String, _
QLXuat As String, _
QLSuDung As String, _
TaoFileMoi As String
TrangChu = "Trang Ch" & ChrW(7911)
ThuTuc1 = "Th" & ChrW(7911) & " t" & ChrW(7909) & "c 1"
ThuTuc2 = "Th" & ChrW(7911) & " t" & ChrW(7909) & "c 2"
CSDL = "C" & ChrW(417) & " S" & ChrW(7903) & " D" & ChrW(7919) & " Li" & ChrW(7879) & "u"
QLNhap = "Qu" & ChrW(7843) & "n Lý Nh" & ChrW(7853) & "p"
QLXuat = "Qu" & ChrW(7843) & "n Lý Xu" & ChrW(7845) & "t"
QLSuDung = "Qu" & ChrW(7843) & "n Lý S" & ChrW(7917) & " D" & ChrW(7909) & "ng"
TaoFileMoi = "T" & ChrW(7841) & "o File M" & ChrW(7899) & "i"
With CommandBars("Worksheet Menu Bar")
.Reset
.Controls("Help").Delete
'Trang Chu:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=10).Caption = TrangChu
With .Controls(TrangChu)
.Style = 3
.FaceId = 59
.BeginGroup = True
.OnAction = "MyHome"
End With
'Thu tuc 1:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=11).Caption = ThuTuc1
With .Controls(ThuTuc1)
.Style = 3
.FaceId = 6743
.BeginGroup = True
.OnAction = "ThuTucMot"
End With
'Thu tuc 2:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=12).Caption = ThuTuc2
With .Controls(ThuTuc2)
.Style = 3
.FaceId = 6735
.OnAction = "ThuTucHai"
.BeginGroup = True
End With
'Co So Du Lieu:
'--------------------------------------------------
.Controls.Add(Type:=10, Before:=13).Caption = CSDL
With .Controls(CSDL)
.BeginGroup = True
'Quan ly nhap:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=1).Caption = QLNhap
With .Controls(QLNhap)
.FaceId = 1087
.OnAction = "QuanLyNhap"
.BeginGroup = True
End With
'Quan ly xuat:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=2).Caption = QLXuat
With .Controls(QLXuat)
.FaceId = 1087
.OnAction = "QuanLyXuat"
.BeginGroup = True
End With
'Quan ly su dung:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=3).Caption = QLSuDung
With .Controls(QLSuDung)
.FaceId = 1087
.OnAction = "QuanLySuDung"
.BeginGroup = True
End With
'Tao file moi:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=4).Caption = TaoFileMoi
With .Controls(TaoFileMoi)
.FaceId = 23
.OnAction = "NewFile"
.BeginGroup = True
End With
End With
End With
End Sub
'*******************************************************************************************
Thủ tục tạo Popup Menu: (click phải trên sheet sẽ thấy nó)
Mã:
Private Sub MainPopUp()
Dim TrangChu As String
Dim ThuTuc1 As String
Dim ThuTuc2 As String
Dim CSDL As String, _
QLNhap As String, _
QLXuat As String, _
QLSuDung As String
TrangChu = "Trang Ch" & ChrW(7911)
ThuTuc1 = "Th" & ChrW(7911) & " t" & ChrW(7909) & "c 1"
ThuTuc2 = "Th" & ChrW(7911) & " t" & ChrW(7909) & "c 2"
CSDL = "C" & ChrW(417) & " S" & ChrW(7903) & " D" & ChrW(7919) & " Li" & ChrW(7879) & "u"
QLNhap = "Qu" & ChrW(7843) & "n Lý Nh" & ChrW(7853) & "p"
QLXuat = "Qu" & ChrW(7843) & "n Lý Xu" & ChrW(7845) & "t"
QLSuDung = "Qu" & ChrW(7843) & "n Lý S" & ChrW(7917) & " D" & ChrW(7909) & "ng"
With Application.CommandBars("Cell")
.Reset
.Controls("cut").BeginGroup = True
'Trang Chu:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=1).Caption = TrangChu
With .Controls(TrangChu)
.Style = 3
.FaceId = 59
.BeginGroup = True
.OnAction = "MyHome"
End With
'Thu tuc 1:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=2).Caption = ThuTuc1
With .Controls(ThuTuc1)
.Style = 3
.FaceId = 6743
.BeginGroup = True
.OnAction = "ThuTucMot"
End With
'Thu tuc 2:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=3).Caption = ThuTuc2
With .Controls(ThuTuc2)
.Style = 3
.FaceId = 6735
.OnAction = "ThuTucHai"
End With
'Co So Du Lieu:
'--------------------------------------------------
.Controls.Add(Type:=10, Before:=4).Caption = CSDL
With .Controls(CSDL)
.BeginGroup = True
'Quan ly nhap:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=1).Caption = QLNhap
With .Controls(QLNhap)
.FaceId = 1087
.OnAction = "QuanLyNhap"
End With
'Quan ly xuat:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=2).Caption = QLXuat
With .Controls(QLXuat)
.FaceId = 1087
.OnAction = "QuanLyXuat"
.BeginGroup = True
End With
'Quan ly su dung:
'--------------------------------------------------
.Controls.Add(Type:=1, Before:=3).Caption = QLSuDung
With .Controls(QLSuDung)
.FaceId = 1087
.OnAction = "QuanLySuDung"
.BeginGroup = True
End With
End With
'--------------------------------------------------
'Gian tien cac nut khong can thiet (neu muon):
'--------------------------------------------------
On Error Resume Next
.Controls("Insert Row").Delete
.Controls("Delete Row").Delete
.Controls("Insert...").Delete
.Controls("Delete...").Delete
.Controls("Clear Contents").Delete
.Controls("Format Cells...").Delete
.Controls("Pick From Drop-down List...").Delete
.Controls("Add Watch").Delete
.Controls("Create List...").Delete
.Controls("Hyperlink...").Delete
.Controls("Look Up...").Delete
End With
End Sub
Thủ tục chính để chạy 2 thủ tục trên:
Mã:
Sub AddToolBars()
Call MainMenu
Call MainPopUp
End Sub
Và thủ tục Reset (nếu muốn):
Mã:
Sub ResetToolBars()
CommandBars("Worksheet Menu Bar").Reset
CommandBars("Cell").Reset
End Sub
Một số thủ tục để menu thực thi lệnh:
Mã:
Sub MyHome()
MsgBox "You click on MyHome"
End Sub
Sub ThuTucMot()
MsgBox "You click on ThuTucMot"
End Sub
Sub ThuTucHai()
MsgBox "You click on ThuTucHai"
End Sub
Sub QuanLyNhap()
MsgBox "You click on QuanLyNhap"
End Sub
Sub QuanLyXuat()
MsgBox "You click on QuanLyXuat"
End Sub
Sub QuanLySuDung()
MsgBox "You click on QuanLySuDung"
End Sub
Sub NewFile()
MsgBox "You click on NewFile"
End Sub
Tại ThisWorkbook:
Mã:
Private Sub Workbook_Open()
Call AddToolBars
End Sub
Trên đây là cách tạo menu. Sau đó các bạn save as file về dạng Addins để lưu file, mặc định nó sẽ đưa đường dẫn đến thư mục AddIns để các bạn lưu file.
File AddIns nó chứa dữ liệu cũng như tất cả những gì các bạn tạo trên sheet, chẳng qua nó ẩn thôi nha các bạn, đừng hiểu lầm nó không chứa gì cả!
Khi tải file về các bạn chép nó vào đường dẫn sau:
Chép file FileAddIns.xla vào đường dẫn dưới đây:
(Với "\TRONGNGHIA\" là tên của máy tính người dùng)
Với Excel 2003:
C:\Document and Setting\TRONGNGHIA\Application Data\Microsoft\AddIns\
Trên thanh Menu, chọn Tool, chọn tiếp Add-Ins, tại đây check vào tên file "FileAddIns".
Sau khi chép vào thư mục AddIns các bạn mở một file mới và chọn vào Tool > Addins và check vào tên file bạn vừa chép vào. Với Excel 2007 về sau chọn Excel Options > AddIns chọn nút Go... và check vào file addins.
Em có học cách tạo menu từ GPE, trong menu có các menu cấp 1. Điều em còn vướng là khi save as ra các file khác để tính toán thì khi chạy code ở menu cấp 1 ở file mới thì file gốc đã thoát tự mở lên. Em có dùng thủ tục Application.CommandBars("Worksheet Menu Bar").Reset nhưng cũng bị thế. Em nghĩ là do code ở các menu 1 giống nhau nên khi chạy ở file này nó cũng sẽ tự mở file. Em úp dạng menu trong file lên mong các anh giúp.
Em có học cách tạo menu từ GPE, trong menu có các menu cấp 1. Điều em còn vướng là khi save as ra các file khác để tính toán thì khi chạy code ở menu cấp 1 ở file mới thì file gốc đã thoát tự mở lên. Em có dùng thủ tục Application.CommandBars("Worksheet Menu Bar").Reset nhưng cũng bị thế. Em nghĩ là do code ở các menu 1 giống nhau nên khi chạy ở file này nó cũng sẽ tự mở file. Em úp dạng menu trong file lên mong các anh giúp.
Trong file của bạn, tôi không thấy thủ tục nào để chạy cho nút lệnh thì sao mà nó thực thi lệnh được?
Lưu ý với các bạn rằng, khi dùng thủ tục để chạy addins, các bạn thay vì dùng tên sheet, workbook xác định thì các bạn phải dùng ActiveSheet, ActiveWorkbook thì nó mới đảm bảo cho các bạn thực thi lệnh từ menu, còn không nó lại mở file nào đó có liên quan hoặc là nó báo lỗi.
Em úp lên 2 thủ tục phân tích vật tư và đơn giá trước thuế, vì em nghì code ở các thủ tục chỉ thực hiện tính toán nên hiện tượng mở tự mở file chắc do code tạo menu thiếu thủ tục nào đó.Em có tìm nhiều bài trên diễn đàn mà vẫn chưa giải quyết được.
Em úp lên 2 thủ tục phân tích vật tư và đơn giá trước thuế, vì em nghì code ở các thủ tục chỉ thực hiện tính toán nên hiện tượng mở tự mở file chắc do code tạo menu thiếu thủ tục nào đó.Em có tìm nhiều bài trên diễn đàn mà vẫn chưa giải quyết được.
Với file AddIns các bạn nên dùng các tool liên quan đến các thủ tục định dạng, in ấn, hàm người dùng, không nên dùng những thủ tục "chuyên dùng" của một file nào đó để cho addins thực thi. Với những file "chuyên dùng" thì tạo Menu riêng biệt cho nó.
Bạn nên sửa cái thủ tục này tại đây tí, xem còn tình trạng nào ở file thực sự của bạn không:
Mã:
Sub TaoMenu() Dim cb As CommandBar
Dim cpop As CommandBarPopup
Dim cpop2 As CommandBarPopup
Dim cbtn As CommandBarButton
[COLOR=#ff0000][B] Call XoaMenu[/B][/COLOR]
'Lay tham chieu den thanh trinh don
'Application.CommandBars("Worksheet Menu Bar").Reset
Set cb = Application.CommandBars("Worksheet Menu Bar")
.....
....
End Sub
Hic em chưa hiểu lắm. Với lại file em đâu có dùng addin gì đâu anh, em chỉ tạo menu chính và các menu con và chạy code trên các menu đó thay vì các sheet em chạy code trên combobox.
Hic em chưa hiểu lắm. Với lại file em đâu có dùng addin gì đâu anh, em chỉ tạo menu chính và các menu con và chạy code trên các menu đó thay vì các sheet em chạy code trên combobox.
Active xảy ra khi bạn mở file có sự kiện đó lên, khi mở một file khác thì file của không còn hiện hành nữa nên nó lại xảy ra sự kiện DeActive. Như vậy, khi quay lại file cũ thì sự kiện Active lại xảy ra. Vì thế ở 2 file cùng có Menu và cùng có 2 sự kiện này thì chúng sẽ không bao giờ "đụng độ" Menu lẫn nhau, mở một file mới hay chọn một file hiện hành thì thằng cũ tự xóa menu và thằng mới tạo menu cho file mình, quay lại thằng cũ thì thằng mới tự xóa rồi thằng cũ nó lại tạo ra menu của nó, nói nôm na là như vậy.
Cho mình mượn chủ đề này để hỏi, mình có một đoạn code tạo menu trong excel (sưu tầm trên mạng), tạo ra Menututao, trong đó có hai Menu con là XepLoai và DiemTrungBinh, bây giờ mình muốn khi chọn vào menu con XepLoai thì cột xếp loại trong file excel đính kèm sẽ hiển thị kết quả Gioi, Kha và TB, nhưng mình không biết phải làm thế nào? Mình vào cửa sổ VBA chọn Insert -> Module, và copy đoạn code tạo ra Menu vào đó và cho Run thì tạo được Menututao, Vậy còn đoạn code dành cho cột xếp loại phải viết vào chổ nào? Mong mọi người giúp đỡ.
Mã:
Sub InsertMenu()
Dim taomenu As CommandBar
Dim ctlPopup As CommandBarPopup
Set taomenu = Application.CommandBars("Worksheet Menu Bar")
With taomenu.Controls
Set ctlPopup = .Add(Type:=msoControlPopup, _
Before:=2)
With ctlPopup
.Caption = "Menututao"
With .Controls.Add
.Caption = "XepLoai"
.OnAction = "Macro1"
End With
With .Controls.Add
.Caption = "Diemtrungbinh"
.OnAction = "Macro2"
End With
End With
End With
End Sub
Code xếp loại (mình dùng macro ghi lại)
Mã:
Sub Macro1()
Range("D3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]>=9,""Gioi"",IF(AND((RC[-1]<9),(RC[-1]>=7)),""Kha"",""TB""))"
Range("D3").Select
Selection.AutoFill Destination:=Range("D3:D6"), Type:=xlFillDefault
End Sub
Cho mình mượn chủ đề này để hỏi, mình có một đoạn code tạo menu trong excel (sưu tầm trên mạng), tạo ra Menututao, trong đó có hai Menu con là XepLoai và DiemTrungBinh, bây giờ mình muốn khi chọn vào menu con XepLoai thì cột xếp loại trong file excel đính kèm sẽ hiển thị kết quả Gioi, Kha và TB, nhưng mình không biết phải làm thế nào? Mình vào cửa sổ VBA chọn Insert -> Module, và copy đoạn code tạo ra Menu vào đó và cho Run thì tạo được Menututao, Vậy còn đoạn code dành cho cột xếp loại phải viết vào chổ nào? Mong mọi người giúp đỡ.
Mã:
Sub InsertMenu()
Dim taomenu As CommandBar
Dim ctlPopup As CommandBarPopup
Set taomenu = Application.CommandBars("Worksheet Menu Bar")
With taomenu.Controls
Set ctlPopup = .Add(Type:=msoControlPopup, _
Before:=2)
With ctlPopup
.Caption = "Menututao"
With .Controls.Add
.Caption = "XepLoai"
.OnAction = "Macro1"
End With
With .Controls.Add
.Caption = "Diemtrungbinh"
.OnAction = "Macro2"
End With
End With
End With
End Sub
Code xếp loại (mình dùng macro ghi lại)
Mã:
Sub Macro1()
Range("D3").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]>=9,""Gioi"",IF(AND((RC[-1]<9),(RC[-1]>=7)),""Kha"",""TB""))"
Range("D3").Select
Selection.AutoFill Destination:=Range("D3:D6"), Type:=xlFillDefault
End Sub
Với code như thế thì tạo menu để làm gì? Mà nếu tạo thì bạn nghĩ sao? Mỗi lần chọn menu "XepLoai" thì code nhập vào cột D một công thức y hệt như trước, không thay đổi? Mà nếu chỉ nhấn 1 lần thôi để tạo công thức thì cũng chả cần menu làm gì.
Những cái tôi viết sau đây là cho trường hợp trong tương lai bạn sẽ cần phải tạo menu.
1. Những Sub mà sẽ được thực hiện khi chọn menu, tức những Sub mà tên của chúng bạn nhập vào OnAction thì code của chúng bạn có thể đặt ở Module khác (với điều kiên đó là Public Sub ... hoặc Sub - chính là Public Sub viết gọn. Không thể là Private Sub. Lý do? Code của Public Sub / Function có tầm "hủy diệt" trong toàn lãnh thổ còn code của Private Sub / Function thì có tầm ảnh hưởng chỉ trong Module mà nó có trụ sở - code mà thôi) hoặc trong cùng Module với Sub tạo menu. Bạn đặt trước hay sau một Sub / Function nào đó đều được. Vd. trước hoặc sau Sub InsertMenu.
2. Code Sub InsertMenu là để tạo menu nhưng phải có "cái gì đấy" gọi Sub đó khi bạn mở tập tin chứ tự nó làm sao gọi nó được. Trong code ví dụ ở dưới thì InsertMenu được gọi trong code của Autpen. Sub Autpen sẽ được Excel tự gọi khi bạn mở tập tin mà trong đó có sub có tên là AutoOpen.
Tương tự bạn gọi DeleteMyMenus trong Auo_Close (cũng do Excel tự gọi) để Delete menu tự tạo.
code ví dụ:
1. Insert --> Module
2. Code của Module1
Mã:
Private Sub Auto_Open()
InsertMenu
End Sub
Private Sub Auto_Close()
DeleteMyMenus
End Sub
Private Sub DeleteMyMenus()
On Error Resume Next
CommandBars("Worksheet Menu Bar").Controls("Menututao").Delete
End Sub
Sub InsertMenu()
Dim ctlPopup As CommandBarPopup
DeleteMyMenus
Set ctlPopup = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=2)
With ctlPopup
.Caption = "Menututao"
With .Controls.Add
.Caption = "XepLoai"
.OnAction = "Macro1"
End With
With .Controls.Add
.Caption = "Diemtrungbinh"
.OnAction = "Macro2"
End With
End With
End Sub
Sub Macro1()
' code
End Sub
Sub Macro2()
' code
End Sub
Mình nêu ra code xếp loại ở trên đơn giản như thế để cho tiện việc đặt câu hỏi trên diễn đàn. Vì sau khi làm được, mình sẽ áp dụng nó cho công việc tương tự nhưng phức tạp hơn. Mình làm được rồi. Cảm ơn bạn siwtom rất nhiều.
Các bạn cho mình hỏi thêm, mình đã làm được : khi click vào menu Xeploai thì hiển thị được kết quả trong cột xếp loại của file đính kèm, nhưng khi mình đóng file đó lại, mở một danh học sinh khác và nhấn vào menu Xeploai thì nó báo lỗi, mình nghĩ là nó không tìm được code của Macro1, Vậy có cách nào để lưu code của menu Xeploai(Macro1) lại vĩnh viễn không? Để khi mình có nhiều danh sách học sinh ở các file khác nhau, chỉ cần mở file lên, ấn xếp loại, là sẽ hiển thị kết quả. Mong mọi người giúp đỡ.
Hic học hỏi ko bít bao nhiêu mới được như anh. ah cái sự kiện Workbook_Deactivate là sao anh giải thích giùm em tí
pen. Sub Aut
