Excel的工具欄和菜單欄VBA源碼實(shí)例

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

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

3、方法。）。該控件的 type 屬性必須是 msocontrolbutton。）commandbarcombobox：代表命令欄中的一個(gè)組合框控件（組合框控件：菜單欄、工具欄、菜單、子菜單或快捷菜單上的自定義編輯框、下拉列表框或組合框。當(dāng)工具欄垂直停靠時(shí)，它所包含的任何自定義組合框控件都不可見(jiàn)。）。該控件的 type 屬性必須是 msocontroledit、msocontroldropdown、msocontrolcombobox、msocontrolbuttondropdown、msocontrolsplitdropdown、msocontrolocxdropdown、msocontrolg

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

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

6、mdbar = application.commandbars.addend sub但，excel好像任何變化，這是因?yàn)樽远x工具欄的默認(rèn)visible為false。sub addcommandbar2() 添加一自定義工具欄,并顯示 dim cmdbar as commandbar set cmdbar = application.commandbars.add cmdbar.visible = trueend sub2、 position示例position: 默認(rèn)值為 msobarfloating常量 說(shuō)明msobarleft、msobartop、msobarright 和 msobar

7、bottom 指定新命令欄的左側(cè)、頂部、右側(cè)和底部坐標(biāo)msobarfloating 指定新命令欄不固定msobarpopup 指定新命令欄為快捷菜單msobarmenubar 僅適用于 macintosh 機(jī)sub addcommandbar3() dim cmdbar as commandbar set cmdbar = application.commandbars.add(, , , temporary:=true) with cmdbar .name = my bar .visible = true .position = msobartop end withend subsub ad

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

9、s.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示例接下來(lái)我們介紹commandbarcontrol對(duì)象commandbarcontrol對(duì)象與 commandbarbutton、commandbarcombobox 以及 commandbar

10、popup 對(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:=commandcontrol type, temporary:=true) with cmdbar .visible = true set cmdbtn =

11、 .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 = .controls.add(type:=msocontrolcombobox) with cmdcombo .caption = combo end with end withend s

12、ubsub deletectl() on error resume next application.commandbars(commandcontrol type).deleteend sub4、 width、height示例sub addbuttonhight() dim cmdbar as commandbar dim cmdbtn as commandbarbutton call deletebtn set cmdbar = application.commandbars.add(name:=cmdbtn type, temporary:=true) with cmdbar .visi

13、ble = true set cmdbtn = .controls.add(type:=msocontrolbutton) with cmdbtn .caption = hight show .style = msobuttoncaption .height = 50 end with end withend subsub deletebtn() on error resume next application.commandbars(cmdbtn type).delete on error goto 0end sub5、 內(nèi)置faceid、onaction和style在commandbarb

14、utton中的示例sub addcmdbutton() dim cmdbar as commandbar dim cmdbtn as commandbarbutton dim cmdbtn2 as commandbarbutton call deletebtn set cmdbar = application.commandbars.add(name:=cmdbtn type, temporary:=true) with cmdbar .visible = true set cmdbtn = .controls.add(type:=msocontrolbutton) with cmdbtn .

15、caption = button1 .faceid = 12 .onaction = buttonshow1 .style = msobuttoniconandcaption end with set cmdbtn2 = .controls.add(type:=msocontrolbutton) with cmdbtn2 .caption = button2 .faceid = 13 .onaction = buttonshow2 .style = msobuttoniconandcaption end with end withend subsub buttonshow1() msgbox

16、button1 testend subsub buttonshow2() msgbox button2 testend sub6、 利用個(gè)性圖案制作自己的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 comm

17、andbarbutton call deletemenubar set cmdbar = application.commandbars(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 cmd

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

19、mdmenu 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, temporary:=true) with cmdmen

20、u .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 = .controls.add(10, 30017) end with end withend sub10、恢復(fù)工具欄初始狀態(tài)參考：re

21、set commandbar.xls11、列出commandbars & commandcontrols id & faceid參考：listallfaceid1.xls、listallfaceid2.xls、listallfaceid3.xls、listallfaceid-crdotlin.xls12、工具欄練習(xí)講解參考：protectsheet.xla 蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿

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

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é)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆