《Excel的工具欄和菜單欄VBA源碼實(shí)例》由會(huì)員分享，可在線閱讀，更多相關(guān)《Excel的工具欄和菜單欄VBA源碼實(shí)例（9頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。
1、
工具欄和菜單欄
工具欄和菜單欄的運(yùn)用更多時(shí)候是伴隨著加載宏和個(gè)性Excel界面的出現(xiàn)而出現(xiàn)。在不斷加深對(duì)Excel VBA的理解和運(yùn)用，我們編程的思路漸漸會(huì)轉(zhuǎn)到考慮代碼的通用性和應(yīng)用方案上，將代碼和Excel數(shù)據(jù)源分開。因此，制作更多具有通用功能的加載宏（不管是xla加載宏，還是Com加載宏），可以最大極限的發(fā)揮VBA編程的魅力，而不是要求用戶強(qiáng)制啟用宏。也正是因?yàn)檫@個(gè)原因，在我們?nèi)W(xué)習(xí)工具欄和菜單欄時(shí)，要明白的一個(gè)道理是，制作工具欄僅僅是為了加載宏等具體運(yùn)用的實(shí)現(xiàn)，不要一味地去追求工具欄的花哨。
一、幾個(gè)基本概念
在開始本節(jié)之前，先理解什么是命令欄？
命令欄（Com
2、mandBars）：是工具欄、菜單欄和快捷菜單的統(tǒng)稱。
工具欄：帶有按鈕和選項(xiàng)的工具條，使用這些按鈕和選項(xiàng)可執(zhí)行命令。如下圖：
菜單欄：標(biāo)題欄下的水平欄，包括菜單名稱。如下圖
快捷菜單：又叫彈出式菜單，鼠標(biāo)右鍵單擊。如下圖。
二、CommandBars集合對(duì)象
通過上面幾幅圖片的直觀概念之后，我們接下來理解CommandBar集合。所有的工具欄和菜單欄代碼都是圍繞Commandbars集合展開的。
CommandBarControls集合包含三種類型控件。
CommandBarButton：代表命令欄中的一個(gè)按鈕控件（按鈕控
3、件：工具欄上的按鈕，或菜單、子菜單或快捷菜單上的菜單項(xiàng)，當(dāng)單擊它們時(shí)會(huì)運(yùn)行一條命令。工具欄按鈕和菜單項(xiàng)共享相同的屬性和方法。）。該控件的 Type 屬性必須是 msoControlButton。）
CommandBarComboBox：代表命令欄中的一個(gè)組合框控件（組合框控件：菜單欄、工具欄、菜單、子菜單或快捷菜單上的自定義編輯框、下拉列表框或組合框。當(dāng)工具欄垂直停靠時(shí)，它所包含的任何自定義組合框控件都不可見。）。該控件的 Type 屬性必須是 msoControlEdit、msoControlDropdown、msoControlComboBox、msoControlButtonDro
4、pdown、msoControlSplitDropdown、msoControlOCXDropdown、msoControlGraphicCombo 或 msoControlGraphicDropdown。）
CommandBarPopup：代表命令欄中的一個(gè)彈出式控件（彈出式控件：是菜單欄或工具欄上的內(nèi)置或自定義控件，當(dāng)單擊它時(shí)顯示菜單，或者是菜單、子菜單、或快捷菜單上的內(nèi)置或自定義菜單項(xiàng)，當(dāng)指針放在其上時(shí)顯示子菜單。）。
該控件的 Type 屬性必須是 msoControlPopup、msoControlGraphicPopup、msoControlButtonPopup、msoC
5、ontrolSplitButtonPopup 或 msoControlSplitButtonMRUPopup。
幾種常見屬性，參數(shù)和方法：
Visible
Name
Type
Postion
Temporary
Caption
OnAction
FaceID
Style
Enable
Top/Left/Width/Hight
BeginGroup
Controls
Add方法
Findcontrols方法
下面將通過實(shí)例來解釋上述屬性、參數(shù)和方法的運(yùn)用。
三、實(shí)例代碼
1、 建立一命令欄
Application.CommandBars
6、.Add 即建立了一個(gè)工具欄。
一般的，我們會(huì)相應(yīng)的定義一個(gè)Commandbar對(duì)象來操作這個(gè)自定義工具欄，如下代碼：
Sub AddCommandBar1() 添加一自定義工具欄
Dim cmdBar As CommandBar
Set cmdBar = Application.CommandBars.Add
End Sub
但，Excel好像任何變化，這是因?yàn)樽远x工具欄的默認(rèn)Visible為False。
Sub AddCommandBar2() 添加一自定義工具欄,并顯示
Dim cmdBar As CommandBar
Set
7、cmdBar = Application.CommandBars.Add
cmdBar.Visible = True
End Sub
2、 Position示例
Position: 默認(rèn)值為 msoBarFloating
常量 說明
msoBarLeft、msoBarTop、msoBarRight 和 msoBarBottom 指定新命令欄的左側(cè)、頂部、右側(cè)和底部坐標(biāo)
msoBarFloating 指定新命令欄不固定
msoBarPopup 指定新命令欄為快捷菜單
msoBarMenuBar 僅適用于 Macintosh 機(jī)
Sub AddCommandBa
8、r3()
Dim cmdBar As CommandBar
Set cmdBar = Application.CommandBars.Add(, , , Temporary:=True)
With cmdBar
.Name = "My Bar"
.Visible = True
.Position = msoBarTop
End With
End Sub
Sub AddCommandBar4()
Dim cmdBar As CommandBar
Set
9、 cmdBar = Application.CommandBars.Add(Name:="My Bar", Position:=msoBarTop, Temporary:=True)
cmdBar.Visible = True
End Sub
為了避免出現(xiàn)重復(fù)的自定義工具欄，常規(guī)的代碼寫法是先刪除工具欄后，再添加。
Sub AddCommandBar5()
Dim cmdBar As CommandBar
Call DeleteCommandBar
Set cmdBar = Application.CommandBars.Add(N
10、ame:="My Bar", Position:=msoBarTop, Temporary:=True)
cmdBar.Visible = True
End Sub
Sub DeleteCommandBar()
On Error Resume Next
Application.CommandBars("My Bar").Delete
End Sub
3、 CommandBar Controls Type示例
接下來我們介紹CommandBarControl對(duì)象
CommandBarControl對(duì)象與 CommandBarButton、Co
11、mmandBarComboBox 以及 CommandBarPopup 對(duì)象具有同樣的屬性和方法.
Sub AddCmdCtlType()
Dim cmdBar As CommandBar
Dim cmdBtn As CommandBarButton
Dim cmdCombo As CommandBarComboBox
Dim cmdPop As CommandBarPopup
Call DeleteCtl
Set cmdBar = Application.CommandBars.Add(Name:="C
12、ommandControl Type", Temporary:=True)
With cmdBar
.Visible = True
Set cmdBtn = .Controls.Add(Type:=msoControlButton)
With cmdBtn
.Caption = "Button"
.Style = msoButtonCaption
End With
Set cmdPop = .Controls.Add(Typ
13、e:=msoControlPopup)
With cmdPop
.Caption = "Popup"
End With
Set cmdCombo = .Controls.Add(Type:=msoControlComboBox)
With cmdCombo
.Caption = "Combo"
End With
End With
End Sub
Sub DeleteCtl()
On Error Resume
14、 Next
Application.CommandBars("CommandControl Type").Delete
End Sub
4、 Width、Height示例
Sub AddButtonHight()
Dim cmdBar As CommandBar
Dim cmdBtn As CommandBarButton
Call DeleteBtn
Set cmdBar = Application.CommandBars.Add(Name:="cmdBtn Type", temporary:=True)
15、
With cmdBar
.Visible = True
Set cmdBtn = .Controls.Add(Type:=msoControlButton)
With cmdBtn
.Caption = "Hight Show"
.Style = msoButtonCaption
.Height = 50
End With
End With
End Sub
Sub DeleteBtn()
On Error
16、Resume Next
Application.CommandBars("cmdBtn Type").Delete
On Error GoTo 0
End Sub
5、 內(nèi)置FaceID、OnAction和Style在CommandBarButton中的示例
Sub AddCmdButton()
Dim cmdBar As CommandBar
Dim cmdBtn As CommandBarButton
Dim cmdBtn2 As CommandBarButton
Call DeleteBtn
17、
Set cmdBar = Application.CommandBars.Add(Name:="cmdBtn Type", Temporary:=True)
With cmdBar
.Visible = True
Set cmdBtn = .Controls.Add(Type:=msoControlButton)
With cmdBtn
.Caption = "Button1"
.FaceId = 12
.OnAction = "Button
18、Show1"
.Style = msoButtonIconAndCaption
End With
Set cmdBtn2 = .Controls.Add(Type:=msoControlButton)
With cmdBtn2
.Caption = "Button2"
.FaceId = 13
.OnAction = "ButtonShow2"
.Style = msoButtonIconAn
19、dCaption
End With
End With
End Sub
Sub ButtonShow1()
MsgBox "Button1 test"
End Sub
Sub ButtonShow2()
MsgBox "Button2 test"
End Sub
6、 利用個(gè)性圖案制作自己的FaceID
參考：AddCustomICO.xls
7、 CommandBar Type示例：Popup
參考：CommandBar Popup1.xls、CommandBar Popup2.xls、Command
20、Bar Popup Form.xls
8、 建立一菜單欄
Sub AddMenuBar()
Dim cmdBar As CommandBar
Dim cmdMenu As CommandBarPopup
Dim cmdBtn As CommandBarButton
Call DeleteMenuBar
Set cmdBar = Application.CommandBars("WorkSheet Menu Bar")
Set cmdBar = Application.CommandBars(1)
Wi
21、th cmdBar
Set cmdMenu = .Controls.Add(Type:=msoControlPopup, temporary:=True)
With cmdMenu
.Caption = "My Menu"
Set cmdBtn = .Controls.Add(Type:=msoControlButton)
With cmdBtn
.Caption = "Item1"
.OnAction = "It
22、em1Action"
.FaceId = 12
End With
End With
End With
End Sub
Sub Item1Action()
MsgBox "Menu Item test"
End Sub
Sub DeleteMenuBar()
On Error Resume Next
Application.CommandBars(1).Controls("My Menu").Delete
End Sub
9、 利用內(nèi)置命令制作自己的菜單
23、
Sub AddMenuBar2()
Dim cmdBar As CommandBar
Dim cmdMenu As CommandBarPopup
Dim cmdBtn As CommandBarButton
Dim cmdBuiltInBtn As CommandBarButton
Dim cmdBuiltInBtn2 As CommandBarPopup
Call DeleteMenuBar
Set cmdBar = Application.CommandBars("WorkSheet Menu Bar
24、")
With cmdBar
Set cmdMenu = .Controls.Add(Type:=msoControlPopup, temporary:=True)
With cmdMenu
.Caption = "My Menu"
Set cmdBtn = .Controls.Add(Type:=msoControlButton)
With cmdBtn
.Caption = "Item1"
25、 .OnAction = "Item1Action"
.FaceId = 12
End With
Set cmdBuiltInBtn = .Controls.Add(Type:=msoControlButton, ID:=18)
Set cmdBuiltInBtn2 = .Controls.Add(10, 30017)
End With
End With
End Sub
10、恢復(fù)工具欄初始狀
26、態(tài)
參考：Reset CommandBar.xls
11、列出CommandBars & CommandControls ID & FaceID
參考：ListAllFaceID1.xls、ListAllFaceID2.xls、ListAllFaceID3.xls、ListAllFaceID-Crdotlin.xls
12、工具欄練習(xí)講解
參考：ProtectSheet.xla 蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋
27、莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿
28、蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃
29、芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄
30、蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅
31、蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿
32、芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀
33、莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄
34、薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅
35、芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆
36、莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀
37、薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁
38、節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅
39、莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇
Excel的工具欄和菜單欄VBA源碼實(shí)例
