43個(gè)典型excelvba實(shí)例

1、43 個(gè)典型 個(gè)典型 ExcelVBA 實(shí)例 實(shí)例目錄 目錄例 1.九九乘法表（Print 方法的應(yīng)用）...................................................................................3例 2 輸入個(gè)人信息（Inputbox 函數(shù)的應(yīng)用）.........................................................

2、.............3例 3 退出確認(rèn)（Msgbox 函數(shù)的應(yīng)用） ...............................................................................5例 4 突出顯示不及格學(xué)生.........................................................................................

3、..............7例 5 從身份證號(hào)碼中提取性別..............................................................................................8例 6 評(píng)定成績(jī)等級(jí)...................................................................................

4、...............................9例 7 計(jì)算個(gè)人所得稅............................................................................................................11例 8 密碼驗(yàn)證.........................................................

5、...............................................................13例 9 求最小公倍數(shù)和最大公約數(shù)........................................................................................15例 10 輸出 ASCII 碼表...............................

6、..........................................................................16例 11 計(jì)算選中區(qū)域數(shù)值之和..............................................................................................17例 12 換零錢法（多重循環(huán)）................

7、..............................................................................18例 13 數(shù)據(jù)排序......................................................................................................................21例 14 彩票幸運(yùn)

8、號(hào)碼..............................................................................................................22例 15 用數(shù)組填充單元格區(qū)域..........................................................................................

9、....24例 16 判斷單元格是否包含公式...........................................................................................25例 17 自動(dòng)填充公式..............................................................................................

10、.................26例 18 鎖定和隱藏公式...........................................................................................................28例 19 將單元格公式轉(zhuǎn)換為數(shù)值................................................................

11、...........................29例 20 刪除所有公式..............................................................................................................29例 21 用 VBA 表示數(shù)組公式.................................................

12、..............................................30：例 1.九九乘法表（ 九九乘法表（Print 方法的應(yīng)用） 方法的應(yīng)用）1． 案例說(shuō)明在早期的 Basic 版本中，程序運(yùn)行結(jié)果主要依靠 Print 語(yǔ)句輸出到終端。在 VB 中，Print 作為窗體的一個(gè)方法，用來(lái)在窗體中顯示信息。但是在 VBA 中，用戶窗體已經(jīng)不支持 Print 方法了。在 VBA 中，Print 方法只能向“立即窗口

13、”中輸出程序的運(yùn)行中間結(jié)果，供開(kāi)發(fā)人員調(diào)試程序時(shí)使用。本例使用 Print 方法在立即窗口中輸入九九乘法表。2． 關(guān)鍵技術(shù)在 VBA 中，Print 方法只能應(yīng)用于 Debug 對(duì)象，其語(yǔ)法格式如下：Debug.Print [outputlist]參數(shù) outputlist 是要打印的表達(dá)式或表達(dá)式的列表。如果省略，則打印一個(gè)空白行。— Print 首先計(jì)算表達(dá)式的值，然后輸出計(jì)算的結(jié)果。在 outputlist 參數(shù)中還可以使用

14、分隔符，以格式化輸出的數(shù)據(jù)。格式化分隔符有以下幾種：— Spc(n)：插入 n 個(gè)空格到輸出數(shù)據(jù)之間；— Tab(n)：移動(dòng)光標(biāo)到適當(dāng)位置，n 為移動(dòng)的列數(shù)；— 分號(hào)：表示前后兩個(gè)數(shù)據(jù)項(xiàng)連在一起輸出；— 逗號(hào)：以 14 個(gè)字符為一個(gè)輸出區(qū)，每個(gè)數(shù)據(jù)輸出到對(duì)應(yīng)的輸出區(qū)。3．編寫代碼（1）在 VBE 中，單擊菜單“插入/模塊”命令插入一個(gè)模塊。（2）在模塊中輸入以下代碼：Sub multi()For i = 1 To

15、 9For j = 1 To iDebug.Print i; “x“; j; “=“; i * j; “ “;NextDebug.Print NextEnd Sub（3）按功能鍵“F5”運(yùn)行子過(guò)程，在“立即窗口”輸出九九乘法表，如圖 3-1 所示。例 2 輸入個(gè)人信息（ 輸入個(gè)人信息（Inputbox 函數(shù)的應(yīng)用） 函數(shù)的應(yīng)用）1．案例說(shuō)明本例演示 Inpu