Excel的工具欄和菜單欄VBA源碼實例

1、工具欄和菜單欄工具欄和菜單欄的運用更多時候是伴隨著加載宏和個性excel界面的出現(xiàn)而出現(xiàn)。在不斷加深對excel vba的理解和運用，我們編程的思路漸漸會轉(zhuǎn)到考慮代碼的通用性和應用方案上，將代碼和excel數(shù)據(jù)源分開。因此，制作更多具有通用功能的加載宏（不管是xla加載宏，還是com加載宏），可以最大極限的發(fā)揮vba編程的魅力，而不是要求用戶強制啟用宏。也正是因為這個原因，在我們?nèi)W習工具欄和菜單欄時，要明白的一個道理是，制作工具欄僅僅是為了加載宏等具體運用的實現(xiàn)，不要一味地去追求工具欄的花哨。一、幾個基本概念在開始本節(jié)之前，先理解什么是命令欄？命令欄（commandbars）：是工具欄、菜單

2、欄和快捷菜單的統(tǒng)稱。工具欄：帶有按鈕和選項的工具條，使用這些按鈕和選項可執(zhí)行命令。如下圖：菜單欄：標題欄下的水平欄，包括菜單名稱。如下圖快捷菜單：又叫彈出式菜單，鼠標右鍵單擊。如下圖。二、commandbars集合對象通過上面幾幅圖片的直觀概念之后，我們接下來理解commandbar集合。所有的工具欄和菜單欄代碼都是圍繞commandbars集合展開的。commandbarcontrols集合包含三種類型控件。commandbarbutton：代表命令欄中的一個按鈕控件（按鈕控件：工具欄上的按鈕，或菜單、子菜單或快捷菜單上的菜單項，當單擊它們時會運行一條命令。工具欄按鈕和菜單項共享相同的屬性和

3、方法。）。該控件的 type 屬性必須是 msocontrolbutton。）commandbarcombobox：代表命令欄中的一個組合框控件（組合框控件：菜單欄、工具欄、菜單、子菜單或快捷菜單上的自定義編輯框、下拉列表框或組合框。當工具欄垂直?？繒r，它所包含的任何自定義組合框控件都不可見。）。該控件的 type 屬性必須是 msocontroledit、msocontroldropdown、msocontrolcombobox、msocontrolbuttondropdown、msocontrolsplitdropdown、msocontrolocxdropdown、msocontrolg

4、raphiccombo 或 msocontrolgraphicdropdown。）commandbarpopup：代表命令欄中的一個彈出式控件（彈出式控件：是菜單欄或工具欄上的內(nèi)置或自定義控件，當單擊它時顯示菜單，或者是菜單、子菜單、或快捷菜單上的內(nèi)置或自定義菜單項，當指針放在其上時顯示子菜單。）。該控件的 type 屬性必須是 msocontrolpopup、msocontrolgraphicpopup、msocontrolbuttonpopup、msocontrolsplitbuttonpopup 或 msocontrolsplitbuttonmrupopup。幾種常見屬性，參數(shù)和方法：v

5、isiblenametypepostiontemporarycaptiononactionfaceidstyleenabletop/left/width/hightbegingroupcontrolsadd方法findcontrols方法下面將通過實例來解釋上述屬性、參數(shù)和方法的運用。三、實例代碼1、 建立一命令欄application.commandbars.add 即建立了一個工具欄。一般的，我們會相應的定義一個commandbar對象來操作這個自定義工具欄，如下代碼：sub addcommandbar1() '添加一自定義工具欄 dim cmdbar as commandbar

6、set cmdbar = application.commandbars.addend sub但，excel好像任何變化，這是因為自定義工具欄的默認visible為false。sub addcommandbar2() '添加一自定義工具欄,并顯示 dim cmdbar as commandbar set cmdbar = application.commandbars.add cmdbar.visible = trueend sub2、 position示例position: 默認值為 msobarfloating常量 說明msobarleft、msobartop、msobarrigh

7、t 和 msobarbottom 指定新命令欄的左側、頂部、右側和底部坐標msobarfloating 指定新命令欄不固定msobarpopup 指定新命令欄為快捷菜單msobarmenubar 僅適用于 macintosh 機sub addcommandbar3() dim cmdbar as commandbar set cmdbar = application.commandbars.add(, , , temporary:=true) with cmdbar .name = "my bar" .visible = true .position = msobartop

8、 end withend subsub addcommandbar4() dim cmdbar as commandbar set cmdbar = application.commandbars.add(name:="my bar", position:=msobartop, temporary:=true) cmdbar.visible = trueend sub為了避免出現(xiàn)重復的自定義工具欄，常規(guī)的代碼寫法是先刪除工具欄后，再添加。sub addcommandbar5() dim cmdbar as commandbar call deletecommandbar s

9、et cmdbar = application.commandbars.add(name:="my bar", position:=msobartop, temporary:=true) cmdbar.visible = trueend subsub deletecommandbar() on error resume next application.commandbars("my bar").deleteend sub3、 commandbar controls type示例接下來我們介紹commandbarcontrol對象commandbarco

10、ntrol對象與 commandbarbutton、commandbarcombobox 以及 commandbarpopup 對象具有同樣的屬性和方法.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:="commandcontrol

11、 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(type:=msocontrolpopup) with cmdpop .caption = "popup" end with set cmdcombo =

12、 .controls.add(type:=msocontrolcombobox) with cmdcombo .caption = "combo" end with end withend subsub deletectl() on error resume next application.commandbars("commandcontrol type").deleteend sub4、 width、height示例sub addbuttonhight() dim cmdbar as commandbar dim cmdbtn as commandb

13、arbutton call deletebtn set cmdbar = application.commandbars.add(name:="cmdbtn type", temporary:=true) with cmdbar .visible = true set cmdbtn = .controls.add(type:=msocontrolbutton) with cmdbtn .caption = "hight show" .style = msobuttoncaption .height = 50 end with end withend su

14、bsub deletebtn() on error resume next application.commandbars("cmdbtn type").delete on error goto 0end sub5、 內(nèi)置faceid、onaction和style在commandbarbutton中的示例sub addcmdbutton() dim cmdbar as commandbar dim cmdbtn as commandbarbutton dim cmdbtn2 as commandbarbutton call deletebtn set cmdbar = ap

15、plication.commandbars.add(name:="cmdbtn type", temporary:=true) with cmdbar .visible = true set cmdbtn = .controls.add(type:=msocontrolbutton) with cmdbtn .caption = "button1" .faceid = 12 .onaction = "buttonshow1" .style = msobuttoniconandcaption end with set cmdbtn2 =

16、 .controls.add(type:=msocontrolbutton) with cmdbtn2 .caption = "button2" .faceid = 13 .onaction = "buttonshow2" .style = msobuttoniconandcaption end with end withend subsub buttonshow1() msgbox "button1 test"end subsub buttonshow2() msgbox "button2 test"end su

17、b6、 利用個性圖案制作自己的faceid參考：addcustomico.xls7、 commandbar type示例：popup參考：commandbar popup1.xls、commandbar popup2.xls、commandbar popup form.xls8、 建立一菜單欄sub addmenubar() dim cmdbar as commandbar dim cmdmenu as commandbarpopup dim cmdbtn as commandbarbutton call deletemenubar set cmdbar = application.comma

18、ndbars("worksheet menu bar") 'set cmdbar = application.commandbars(1) 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"

19、.onaction = "item1action" .faceid = 12 end with end with end withend subsub item1action() msgbox "menu item test"end subsub deletemenubar() on error resume next application.commandbars(1).controls("my menu").deleteend sub9、 利用內(nèi)置命令制作自己的菜單sub addmenubar2() dim cmdbar as c

20、ommandbar 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") with cmdbar set cmdmenu = .controls.add(type:=msocontrolpopup, t

21、emporary:=true) with cmdmenu .caption = "my menu" set cmdbtn = .controls.add(type:=msocontrolbutton) with cmdbtn .caption = "item1" .onaction = "item1action" .faceid = 12 end with set cmdbuiltinbtn = .controls.add(type:=msocontrolbutton, id:=18) set cmdbuiltinbtn2 = .co

22、ntrols.add(10, 30017) end with end withend sub10、恢復工具欄初始狀態(tài)參考：reset commandbar.xls11、列出commandbars & commandcontrols id & faceid參考：listallfaceid1.xls、listallfaceid2.xls、listallfaceid3.xls、listallfaceid-crdotlin.xls12、工具欄練習講解參考：protectsheet.xla 蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄

23、蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞

24、薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆

25、薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄

26、薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄

27、蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅

28、蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃

29、螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃

30、螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄

31、螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)

32、蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅