《Excel的工具欄和菜單欄VBA源碼實例》由會員分享，可在線閱讀，更多相關(guān)《Excel的工具欄和菜單欄VBA源碼實例（9頁珍藏版）》請在裝配圖網(wǎng)上搜索。
1、螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄
2、蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞
3、螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆
4、螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄
5、荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄
6、蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅
7、蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃
8、薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃
9、蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁
10、薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)
11、蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂
12、蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀
13、蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁
14、螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂莁裊袁蒁蒃蚇腿蒀薆袃肅葿螈蚆肁蒈蒈羈羇蕆薀螄芆蒆螞罿膂蒆螅螂肈薅蒄羈羄膁薆螁袀膀蠆羆膈膀蒈蝿膄腿薁肄肀膈蚃袇羆膇螅蝕芅膆蒅裊膁膅薇蚈肇芄蝕襖羃芄荿蚇衿芃薂袂羋節(jié)蚄螅膃芁螆羀聿芀蒆螃羅艿薈罿袁莈蟻螁膀莈莀羇肆莇蒂螀羂莆蚅羅羈蒞螇袈芇莄蕆蟻膃莃蕿袆聿莂蟻蠆羅蒂
15、莁裊袁蒁蒃蚇腿蒀薆袃肅
工具欄和菜單欄
工具欄和菜單欄的運用更多時候是伴隨著加載宏和個性Excel界面的出現(xiàn)而出現(xiàn)。在不斷加深對Excel VBA的理解和運用，我們編程的思路漸漸會轉(zhuǎn)到考慮代碼的通用性和應(yīng)用方案上，將代碼和Excel數(shù)據(jù)源分開。因此，制作更多具有通用功能的加載宏（不管是xla加載宏，還是Com加載宏），可以最大極限的發(fā)揮VBA編程的魅力，而不是要求用戶強(qiáng)制啟用宏。也正是因為這個原因，在我們?nèi)W(xué)習(xí)工具欄和菜單欄時，要明白的一個道理是，制作工具欄僅僅是為了加載宏等具體運用的實現(xiàn)，不要一味地去追求工具欄的花哨。
一、幾個基本概念
在開始本節(jié)之前，先理解什
16、么是命令欄？
命令欄（CommandBars）：是工具欄、菜單欄和快捷菜單的統(tǒng)稱。
工具欄：帶有按鈕和選項的工具條，使用這些按鈕和選項可執(zhí)行命令。如下圖：
菜單欄：標(biāo)題欄下的水平欄，包括菜單名稱。如下圖
快捷菜單：又叫彈出式菜單，鼠標(biāo)右鍵單擊。如下圖。
二、CommandBars集合對象
通過上面幾幅圖片的直觀概念之后，我們接下來理解CommandBar集合。所有的工具欄和菜單欄代碼都是圍繞Commandbars集合展開的。
CommandBarControls集合包含三種類型控件。
CommandBarButton
17、：代表命令欄中的一個按鈕控件（按鈕控件：工具欄上的按鈕，或菜單、子菜單或快捷菜單上的菜單項，當(dāng)單擊它們時會運行一條命令。工具欄按鈕和菜單項共享相同的屬性和方法。）。該控件的 Type 屬性必須是 msoControlButton。）
CommandBarComboBox：代表命令欄中的一個組合框控件（組合框控件：菜單欄、工具欄、菜單、子菜單或快捷菜單上的自定義編輯框、下拉列表框或組合框。當(dāng)工具欄垂直?？繒r，它所包含的任何自定義組合框控件都不可見。）。該控件的 Type 屬性必須是 msoControlEdit、msoControlDropdown、msoControlComboBox、m
18、soControlButtonDropdown、msoControlSplitDropdown、msoControlOCXDropdown、msoControlGraphicCombo 或 msoControlGraphicDropdown。）
CommandBarPopup：代表命令欄中的一個彈出式控件（彈出式控件：是菜單欄或工具欄上的內(nèi)置或自定義控件，當(dāng)單擊它時顯示菜單，或者是菜單、子菜單、或快捷菜單上的內(nèi)置或自定義菜單項，當(dāng)指針放在其上時顯示子菜單。）。
該控件的 Type 屬性必須是 msoControlPopup、msoControlGraphicPopup、msoContr
19、olButtonPopup、msoControlSplitButtonPopup 或 msoControlSplitButtonMRUPopup。
幾種常見屬性，參數(shù)和方法：
Visible
Name
Type
Postion
Temporary
Caption
OnAction
FaceID
Style
Enable
Top/Left/Width/Hight
BeginGroup
Controls
Add方法
Findcontrols方法
下面將通過實例來解釋上述屬性、參數(shù)和方法的運用。
三、實例代碼
1、 建立一命令欄
Appli
20、cation.CommandBars.Add 即建立了一個工具欄。
一般的，我們會相應(yīng)的定義一個Commandbar對象來操作這個自定義工具欄，如下代碼：
Sub AddCommandBar1() 添加一自定義工具欄
Dim cmdBar As CommandBar
Set cmdBar = Application.CommandBars.Add
End Sub
但，Excel好像任何變化，這是因為自定義工具欄的默認(rèn)Visible為False。
Sub AddCommandBar2() 添加一自定義工具欄,并顯示
Dim cmdBar As Co
21、mmandBar
Set 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ī)
22、
Sub AddCommandBar3()
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 Command
23、Bar
Set 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
24、.CommandBars.Add(Name:="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對象
CommandBarControl對象與 C
25、ommandBarButton、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.Comman
26、dBars.Add(Name:="CommandControl Type", Temporary:=True)
With cmdBar
.Visible = True
Set cmdBtn = .Controls.Add(Type:=msoControlButton)
With cmdBtn
.Caption = "Button"
.Style = msoButtonCaption
End With
Set cmdPop =
27、 .Controls.Add(Type:=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()
28、 On Error Resume 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"
29、, temporary:=True)
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 DeleteBt
30、n()
On Error 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
Ca
31、ll DeleteBtn
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
.
32、OnAction = "ButtonShow1"
.Style = msoButtonIconAndCaption
End With
Set cmdBtn2 = .Controls.Add(Type:=msoControlButton)
With cmdBtn2
.Caption = "Button2"
.FaceId = 13
.OnAction = "ButtonShow2"
.Style
33、 = msoButtonIconAndCaption
End With
End With
End Sub
Sub ButtonShow1()
MsgBox "Button1 test"
End Sub
Sub ButtonShow2()
MsgBox "Button2 test"
End Sub
6、 利用個性圖案制作自己的FaceID
參考：AddCustomICO.xls
7、 CommandBar Type示例：Popup
參考：CommandBar Popup1.xls、CommandBar
34、Popup2.xls、CommandBar 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.Comm
35、andBars(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"
36、 .OnAction = "Item1Action"
.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
37、
9、 利用內(nèi)置命令制作自己的菜單
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("
38、WorkSheet Menu Bar")
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
39、"
.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
40、Sub
10、恢復(fù)工具欄初始狀態(tài)
參考：Reset CommandBar.xls
11、列出CommandBars & CommandControls ID & FaceID
參考：ListAllFaceID1.xls、ListAllFaceID2.xls、ListAllFaceID3.xls、ListAllFaceID-Crdotlin.xls
12、工具欄練習(xí)講解
參考：ProtectSheet.xla 蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞
41、螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕
42、蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇
43、肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅
44、罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿
45、袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆
46、袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄
47、螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂
48、蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿
49、肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆
50、羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄
51、羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻
52、裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆
53、螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇羃蒀荿袃衿葿薂蚆羋蒈蚄羈膃蕆螆螄聿蒆蒆罿羅蒆薈螂芄薅蟻羈膀薄螃螁肆薃蒂羆羂膀蚅蝿羈腿螇肄芇膈蕆袇膃膇蕿肅聿膆蟻裊羅芅螄蚈芃芄蒃襖腿芄薆蚇膅芃螈袂肁節(jié)蒈螅羇芁薀羀芆芀螞螃膂艿螅罿肈莈蒄螁羄莈薆羇袀莇蠆螀羋莆蒈羅膄蒞薁袈肀莄蚃肅羆莃螅袆芅莂蒅蠆膁蒂薇裊肇蒁蝕蚇
Excel的工具欄和菜單欄VBA源碼實例
