Giúp xem code tạo Divirer, FadeID cho menu

thanhnhanubnd · 4/10/08

Mình có "chôm" 1 đoạn code, đã làm được nhưng chưa tạo được Divirer, FadeID cho menu :

PHP:

Sub Auto_Open()
On Error Resume Next
lenh Delete CommandBar
'khoi tao menu Du lieu'
Set oldMbar = CommandBars.ActiveMenuBar
Set myMenuBar = CommandBars.Add(Name:="Quan ly du lieu menu" _
    , Position:=msoBarTop, MenuBar:=False, Temporary:=True)
With myMenuBar
            .Visible = True:                .Protection = msoBarNoMove
End With
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = "&Quan ly du lieu"
'tao Menu tilte Chon thu muc'
Set Ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=3)
Ctrl1.FaceId = 66
Ctrl1.Caption = "Chon thu muc..."
Ctrl1.TooltipText = "Chon thu muc..."
Ctrl1.Style = msoButtonCaption
'chay ung dung bang menu cap nhat van ban'
Ctrl1.OnAction = "chon_thumuc"
'tao Menu tilte Cap nhat du lieu'
Set Ctrl2 = newMenu.Controls.Add(Type:=msoControlButton, ID:=3)
Ctrl2.FaceId = 66
Ctrl2.Caption = "Cap nhat van ban"
Ctrl2.TooltipText = "Cap nhat van ban"
Ctrl2.Style = msoButtonCaption
'chay ung dung bang menu cap nhat van ban'
Ctrl2.OnAction = "capnhatvanban"
'tao Menu tilte Sap xep tang dan'
Set Ctrl3 = newMenu.Controls.Add(Type:=msoControlButton, ID:=3)
Ctrl3.FaceId = 66
Ctrl3.Caption = "&Sap xep tang dan"
Ctrl3.TooltipText = "Sap xep tang dan"
Ctrl3.Style = msoButtonCaption
'chay ung dung bang menu cap nhat van ban'
Ctrl3.OnAction = "Sap_tangdan"

Set Ctrl4 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Divider = True
Ctrl4.Caption = "Sap xep giam dan"
Ctrl4.TooltipText = "Sap xep giam dan"
Ctrl4.Style = msoButtonCaption
'chay ung dung bang menu Tro ve trang chu'
Ctrl4.OnAction = "capnhatvanban"

Set Ctrl5 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Divider = True
Ctrl5.Caption = "&Luu van ban"
Ctrl5.TooltipText = "Luu van ban..."
Ctrl5.Style = msoButtonCaption
'chay ung dung bang menu Tro ve trang chu'
Set Ctrl6 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Divider = True
Ctrl6.Caption = "&In van ban"
Ctrl6.TooltipText = "In van ban"
Ctrl6.Style = msoButtonCaption
'chay ung dung bang menu Tro ve trang chu'
Ctrl6.OnAction = "Print"
Set Ctrl7 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Divider = True
Ctrl7.Caption = "&Tao van ban Word moi..."
Ctrl7.TooltipText = "Tao van ban moi"
Ctrl7.Style = msoButtonCaption
'chay ung dung bang menu Tro ve trang chu'
Ctrl7.OnAction = "Tao_word"

Set Ctrl8 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Divider = True
Ctrl8.Caption = "Loai van ban khac..."
Ctrl8.TooltipText = "Loai Van ban khac"
Ctrl8.Style = msoButtonCaption
'chay ung dung bang menu Tro ve trang chu'
Ctrl8.OnAction = "lienket"
Set Ctrl9 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Divider = True
Ctrl9.Caption = "Thoat khoi chuong trinh"
Ctrl9.TooltipText = "Exit"
Ctrl9.Style = msoButtonCaption
'chay ung dung bang menu Tro ve trang chu'
Ctrl9.OnAction = "nghi"
With myMenuBar
    .Visible = True:                                  .Protection = msoBarNoMove
 End With

Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = "&Tim kiem van ban"
'tao Menu tilte Tim kiem van ban'
Set Ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=3)
Ctrl1.FaceId = 23
Ctrl1.Caption = "Tim theo ngay tao"
Ctrl1.TooltipText = "Tim theo ngay tao"
Ctrl1.Style = msoButtonCaption
'chay ung dung bang menu Tim theo ngay tao'
Ctrl1.OnAction = "tim_ngay"

Set Ctrl2 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Ctrl2.Divider = "TRUE"
Ctrl2.Caption = "Tim theo thang tao"
Ctrl2.TooltipText = "Tim theo thang tao"
Ctrl2.Style = msoButtonCaption
'chay ung dung bang menu Tim theo thang tao'
Ctrl2.OnAction = "tim_thang"

Set Ctrl3 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Ctrl3.Divider = "TRUE"
Ctrl3.Caption = "Tim theo ngay thang nam"
Ctrl3.TooltipText = "Tim theo ngay thang nam"
Ctrl3.Style = msoButtonCaption
'chay ung dung bang menu Tim theo thang tao'
Ctrl3.OnAction = "tim_ngay_thang_nam"
Set Ctrl4 = newMenu.Controls.Add(Type:=msoControlButton, ID:=3)
Ctrl4.FaceId = 66
Ctrl4.Caption = "Tim ten van ban"
Ctrl4.TooltipText = "Tim ten van ban"
Ctrl4.Style = msoButtonCaption
'chay ung dung bang menu Tim theo ngay tao'
Ctrl4.OnAction = "tim_noidung"
Divider = True

Set Ctrl5 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Ctrl5.Divider = True
Ctrl5.Caption = "Tim nguoi tham muu"
Ctrl5.TooltipText = "Tim nguoi tham muu"
Ctrl5.Style = msoButtonCaption
'chay ung dung bang menu Tim theo thang tao'
Ctrl5.OnAction = "tim_thammuu"

Set Ctrl6 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Ctrl6.Divider = True
Ctrl6.Caption = "Tim nguoi lanh dao ky"
Ctrl6.TooltipText = "Tim nguoi lanh dao ky"
Ctrl6.Style = msoButtonCaption
'chay ung dung bang menu Tim theo thang tao'
Ctrl6.OnAction = "tim_nguoiky"
Set Ctrl7 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Ctrl7.Divider = True
Ctrl7.Caption = "Tim so van ban"
Ctrl7.TooltipText = "Tim so van ban"
Ctrl7.Style = msoButtonCaption
'chay ung dung bang menu Tim theo thang tao'
Ctrl7.OnAction = "tim_so"
Set Ctrl8 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Ctrl8.Divider = True
Ctrl8.Caption = "Hien thi tac ca van ban"
Ctrl8.TooltipText = "Hien thi tat ca van ban"
Ctrl8.Style = msoButtonCaption
'chay ung dung bang menu Tim theo thang tao'
Ctrl8.OnAction = "khong_tim"

With myMenuBar
    .Visible = True:                      .Protection = msoBarNoMove
End With

Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = "Thong tin chuong trinh"
'tao Menu tilte Tim kiem theo noi dung'
Set Ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=3)
Ctrl1.FaceId = 66
Ctrl1.Caption = "Cach su dung chuong trinh"
Ctrl1.TooltipText = "&Cach su dung"
Ctrl1.Style = msoButtonCaption
'chay ung dung bang menu Tim theo ngay tao'
Ctrl1.OnAction = "su_dung"

Set Ctrl2 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
Ctrl2.Divider = True
Ctrl2.Caption = "Thong tin..."
Ctrl2.TooltipText = "Thong tin..."
Ctrl2.Style = msoButtonCaption
'chay ung dung bang menu Tim theo thang tao'
Ctrl2.OnAction = "thong_tin"
With myMenuBar
    .Visible = True:                         .Protection = msoBarNoMove
End With
End Sub

whitemouse · 4/10/08

to thanhnhanubnb: bạn thử làm như sau xem có được ko nhé:
1/khai báo : Dim faceid as variant
2/chọn 1 sheet trong file của bạn sau đó tại ô A2 gõ vào công thức: =rand().Hàm rand sẽ trả về 1 giá trị bất kì.
Sau đó trở lại đoạn code của bạn rồi thử làm như sau:
Ctr1.faceid=cells(2,1)
'cells(2,1) là ô A2 trong sheet bạn
Còn muốn biết giá trị nào(vd: faceid=66) sẽ tương ứng với biểu tượng nào thì bạn search trên diễn đàn nhé.
thân

thanhnhanubnd · 4/10/08

mình tạo thẳng trong VBA không có tạo trong sheet menu, có code nào ko, hay bạn xem và sửa dùm nhé.
thank

tedaynui · 4/10/08

@ To thanhnhanubnd
Trong code của bạn có nhiều chỗ lặp lại, mình nghĩ bạn dùng With... End with sẽ hay hơn.
Bạn có thể tham khảo cách tạo Menu và gỡ bỏ Menu của John Walkenbach (Excel 2000 Power Programming With VBA)

TDN

thanhnhanubnd · 4/10/08

File rất hay.Nếu muốn xóa mất thanh menu bar và toolbars chuẩn ( file,edit...) thì viết code thế nào?

tedaynui · 4/10/08

thanhnhanubnd đã viết:
File rất hay.Nếu muốn xóa mất thanh menu bar và toolbars chuẩn ( file,edit...) thì viết code thế nào?

Bạn Có thể dùng các codes sau

PHP:

Application.CommandBars("Worksheet Menu Bar").Enabled = True / False
Application.CommandBars("Standard").Visible = True / False
Application.CommandBars("Formatting").Visible = True / False

TDN

thanhnhanubnd · 4/10/08

Nếu mình True hết thì nó làm mất luộn cái Menubar mình mới tạo( mình chỉ muốn mất hết Edit, view, Data, Format, Tools< windows, Help).
Cái code phía dưới ( mình gừi hồi tối)dù hơi lung tung ben nhưng nó xóa sạch menubar

tedaynui · 4/10/08

thanhnhanubnd đã viết:
Nếu mình True hết thì nó làm mất luộn cái Menubar mình mới tạo( mình chỉ muốn mất hết Edit, view, Data, Format, Tools< windows, Help).
Cái code phía dưới ( mình gừi hồi tối)dù hơi lung tung ben nhưng nó xóa sạch menubar

Vậy bạn hãy tham khảo thêm File sau của cùng tác giả John Walkenbach (Excel 2000 Power Programming With VBA)

TDN

thanhnhanubnd · 4/10/08

Ok mình làm được rồi.Thank

tedaynui · 4/10/08

thanhnhanubnd đã viết:
Còn thanh địa chỉ ( ô và công thức), giúp mình xử nó luôn bạn nhé.
nếu xử được thì sẳn bạn làm luôn ( ẩn A, B,C.... và 1,2,3 luôn) nói chung làm màn hìn trống trơn luôn

Bạn dùng codes sau :

PHP:

    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False

TDN

Giúp xem code tạo Divirer, FadeID cho menu

thanhnhanubnd

Thành viên hoạt động

whitemouse

Thành viên hoạt động

thanhnhanubnd

Thành viên hoạt động

tedaynui

(_)

File đính kèm

thanhnhanubnd

Thành viên hoạt động

tedaynui

(_)

thanhnhanubnd

Thành viên hoạt động

tedaynui

(_)

File đính kèm

thanhnhanubnd

Thành viên hoạt động

tedaynui

(_)

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

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

Đếm ngược thời gian

Giúp xem code tạo Divirer, FadeID cho menu

Thành viên hoạt động

Thành viên hoạt động

Thành viên hoạt động

(*_*)

File đính kèm

Thành viên hoạt động

(*_*)

Thành viên hoạt động

(*_*)

File đính kèm

Thành viên hoạt động

(*_*)

Đếm ngược thời gian

(_)

(_)

(_)

(_)