VBA編程簡(jiǎn)化Excel操作的兩個(gè)實(shí)例

1、VBA編程簡(jiǎn)化Excel操作的兩個(gè)實(shí)例說起用VBA編程，很多人都認(rèn)為是很困難的事情，是編程高手們的游戲。當(dāng)然，這樣的說法也不無道理，因?yàn)閂BA編程需要有面向?qū)ο蟪绦蛟O(shè)計(jì)的基礎(chǔ)，要求編程的人要懂得對(duì)象、事件、屬性的概念和熟悉VB程序設(shè)計(jì)的表達(dá)方式，這些都會(huì)使人望而生畏。Excel的“錄制宏”功能，是VBA編輯應(yīng)用的良好載體。結(jié)合在DOS里學(xué)過的一點(diǎn)點(diǎn)BASIC語言基礎(chǔ)，就能編寫VBA程序，解決我們工作中的一些具體問題。例1、制作簡(jiǎn)易工資條工資條打印是實(shí)現(xiàn)在工資表中每個(gè)員工工資數(shù)據(jù)前加一行表頭，工資數(shù)據(jù)后加一個(gè)空行，其步驟如下:1、錄制新宏。在Excel工資表中，選擇菜單上的“工具”、“宏”、“錄

2、制新宏”命令，在彈出的“錄制新宏”對(duì)話框中“宏名(M)”處填上“工資條”、“保存在( I )”處選擇“當(dāng)前工作簿”后，點(diǎn)“確定”見圖1。2、插入表頭和空行右擊工資表的第一行，即表頭，選快捷菜單的“復(fù)制”命令，再右擊工資表的第三行，選快捷菜單的“插入復(fù)制單元格”命令，在第二個(gè)人的工資數(shù)據(jù)前插入表頭;再右擊第三行，選快捷菜單的“插入”命令，插入一個(gè)空行。3、停止錄制點(diǎn)菜單的“工具”、“宏”、“停止錄制”命令，停止宏的尋制。4、查看錄制的宏程序點(diǎn)菜單的“工具”、“宏”、“宏”命令或直接用快捷鍵“Alt + F8”打開“宏”對(duì)話框，在“宏名”處選擇“工資條”，點(diǎn)“編輯”打開錄制的宏程序代碼見圖2。推薦

3、精選5、在錄制的宏程序中添加循環(huán)語句假如工資表中有200人。只需添加一個(gè)循環(huán)語句:For I=1 To 200Next 并將Rows("3:3").Select 這條固定的語句，更改為隨循環(huán)變量I變化的語句:Rows( I * 3 ).Select就行了，見圖3。現(xiàn)在再來執(zhí)行 “工資條”這個(gè)宏，200人的工資條在瞬間就制作出來了，很有成就感吧，不覺得編程也是很有趣的事嗎? 推薦精選例2、取消單元格中的超級(jí)鏈接有時(shí)把網(wǎng)頁上的表格復(fù)制到電子表格中后，網(wǎng)頁中的超級(jí)鏈接也復(fù)制過來了，如圖4中的A列，稍不注意，鼠標(biāo)一點(diǎn)上，就會(huì)打開相應(yīng)的鏈接，很煩人，要取消這些單元格中的超鏈

4、接，一個(gè)一個(gè)的取消很麻煩，我們就請(qǐng)VBA來幫忙。1、錄制新宏同例1，宏名為“取消超鏈接”2、取消一個(gè)單元格中的超鏈接在圖4所示的工作表中右擊A2單元格，選快捷菜單中的“超級(jí)鏈接”、“取消超級(jí)鏈接”命令。3、停止錄制同例1。4、查看錄制的宏程序同例1，如圖5。5、在錄制的宏程序中添加循環(huán)語句推薦精選用Do While Loop語句檢測(cè)數(shù)據(jù)表的列數(shù)i = 1Do While Cells(1, i) <> "" 檢測(cè)表格的列數(shù) i = i + 1 i 為表格的列數(shù) Loop用Do While Loop語句檢測(cè)數(shù)據(jù)表的行數(shù)j = 1Do While Cells(j, 1

5、) <> "" 檢測(cè)表格的行數(shù) j = j + 1 j 為表格的行數(shù) Loop添加雙重循環(huán)for next 語句遍歷所有單元格。修改選擇語句 Range(“A2”).Select 為 Cells(m, n).Select 讓其隨循環(huán)變量變化。見圖6執(zhí)行 “取消超鏈接”這個(gè)宏，表格中所有單元格的超鏈接都被取消了。當(dāng)然，要取消表格中的超鏈接，也可以通過另存為文本文件的方式來實(shí)現(xiàn)，但通過這個(gè)例子，我們掌握了檢測(cè)數(shù)據(jù)表中的行、列數(shù)的一個(gè)通用方法。推薦精選通過以上兩例，我們體會(huì)到:通過“錄制新宏”功能得到核心語句;運(yùn)用BASIC語言的循環(huán)語句實(shí)現(xiàn)自動(dòng)處理;對(duì)其中的選擇語句

6、稍加改變，使之隨循環(huán)變量變化。就能解決許多電子表格中的操作問題，只要經(jīng)常對(duì)錄制宏得到的核心語句進(jìn)行分析，遇到其中不理解的語句就借助Office的幫助來學(xué)習(xí)，相信你的編程能力會(huì)有很大的長進(jìn)。以上代碼在Office2000、Office2002中測(cè)試通過。附:兩個(gè)例子的源程序 1、工資條打印源程序： Sub 工資條() 工資條打印宏 Macro 記錄的宏 2005-5-12 k = 2 For i = 1 To 54 j = i + k Rows("1:1").Select Selection.Copy Rows(j).Select Selection.Insert Shift:=xlDown k = k + 1 Next End Sub 2、取消超鏈接源程序： Sub Delete_Hyperlinks() 取消鏈接的宏 i = 1 Do While Cells(1, i) <> "" 檢測(cè)表格的列數(shù) i = i + 1 Loop j = 1 Do While Cells(j, 1) <> "" 檢測(cè)表格的行數(shù) j = j + 1 Loop For m = 1 To j - 1 For n = 1