excel宏編程實(shí)例

1、Excel宏編程舉例說明學(xué)習(xí)宏編程，需要VB基礎(chǔ)，如果一點(diǎn)VB基礎(chǔ)和面向?qū)ο蟮母拍?，建議先去補(bǔ)補(bǔ)VB，不然即使自認(rèn)為學(xué)好了也只能拿著高射炮打蚊子！一)、宏學(xué)習(xí)首先需要明確的是，本文不可能教會(huì)您關(guān)于宏的所有內(nèi)容。您需要學(xué)會(huì)利用“錄制宏“的方法來學(xué)習(xí)宏：點(diǎn)擊Excel“工具“下拉菜單中“宏“下quot錄制新宏“，此后可象平時(shí)一樣進(jìn)行有關(guān)操作，待完成后停止錄制。然后再點(diǎn)擊“工具“下拉菜單中“宏“下“宏“的“編輯“選項(xiàng)即可打開剛才所錄制的宏的V

2、isualBasic源程序，并且可以在此時(shí)的“幫助“下拉菜單中獲得有關(guān)的編程幫助。對(duì)錄制宏進(jìn)行修改不僅可以學(xué)習(xí)宏的使用，還能大大簡化宏的編寫。二)、基本概念為了學(xué)習(xí)Excel中的宏，我們需要先了解以下一些基本概念。1、工作簿：Wkbooks、Wkbook、ActiveWkbook、ThisWkbookWkbooks集合包含Excel中所有當(dāng)前打開的Excel工作簿，亦即所有打開的Excel文件；Wkbook對(duì)應(yīng)Wkbooks中的成員，即

3、其中的Excel文件；ActiveWkbook代表當(dāng)前處于活動(dòng)狀態(tài)的工作簿，即當(dāng)前顯示的Excel文件；ThisWkbook代表其中有VisualBasic代碼正在運(yùn)行的工作簿。在具體使用中可用Wkbooks(index)來引用Wkbook對(duì)象，其中index為工作簿名稱或編號(hào)；如Wkbooks(1)、Wkbooks(“年度報(bào)表.xls“)。而編號(hào)按照創(chuàng)建或打開工作簿的順序來確定，第一個(gè)打開的工作簿編號(hào)為1，第二個(gè)打開的工作簿為2……。

4、2、工作表：Wksheets、Wksheet、ActiveSheetWksheets集合包含工作簿中所有的工作表，即一個(gè)Excel文件中的所有數(shù)據(jù)表頁；而Wksheet則代表其中的一個(gè)工作表；ActiveSheet代表當(dāng)前處于的活動(dòng)狀態(tài)工作表，即當(dāng)前顯示的一個(gè)工作表?？捎肳ksheets(index)來引用Wksheet對(duì)象，其中index為工作表名稱或索引號(hào)；如Wksheets(1)、Wksheets(“第一季度數(shù)據(jù)“)。工作表索引號(hào)

5、表明該工作表在工作表標(biāo)簽中的位置：第一個(gè)（最左邊的）工作表的索引號(hào)為1，最后一個(gè)（最右邊的）為Wksheets.Count。需要注意的是：在使用過程中Excel會(huì)自動(dòng)重排工作表索引號(hào)，保持按照其在工作表標(biāo)簽中的從左至右排列，工作表的索引號(hào)遞增。因此，由于可能進(jìn)行的工作表添加或刪除，工作表索引號(hào)不一定始終保持不變。3、圖表：t、ts、tObject、tObjects、Activett代表工作簿中的圖表。該圖表既可為嵌入式圖表（包含在tOb

6、ject中），也可為一個(gè)分開的（單獨(dú)的）圖表工作表。ts代表指定工作簿或活動(dòng)工作簿中所有圖表工作表的集合，但不包括嵌入式在工作表或?qū)υ捒蚓庉嫳碇械膱D表。使用ts(index)可引用單個(gè)t圖表，其中index是該圖表工作表的索引號(hào)或名稱；如ts(1)、ts(“銷售圖表“)。圖表工作表的索引號(hào)表示圖表工作表在工作簿的工作表標(biāo)簽欄上的位置。ts(1)是工作簿中第一個(gè)（最左邊的）圖表工作表；ts(ts.Count)為最后一個(gè)（最右邊的）圖表工作

7、表。tObject代表工作表中的嵌入式圖表，其作用是作為t對(duì)象的容器。利用tObject可以控制工作表上嵌入式圖表的外觀和尺寸。tObjects代表指定的圖表工作表、對(duì)話框編輯表或工作表上所有嵌入式圖表的集合?？捎?、用公式賦值在宏的使用中，可能會(huì)更多地用公式來給單元格賦值。如下例將相對(duì)于活動(dòng)單元格左側(cè)第4列、向上第6行至向上第2行的單元格數(shù)值之和賦給活動(dòng)單元格（以本行、本列為第0行、0列）：ActiveCell.Fmula=“=AVE

8、RAGE(R[6]C[4]:R[2]C[4])“3、引用其它工作表中的單元格當(dāng)賦值公式中需要引用其它工作表中的單元格時(shí)，在被引用的單元格前加上“工作表名！“即可。如以下即在賦值中引用了“Sheet1“工作表中的A1至A4單元格：Range(“E10“).Fmula=“=SUM(Sheet1!R1C1:R4C1)“但需注意的是：當(dāng)被引用的工作表名中含有某些可能引起公式歧義的字符時(shí)，需要用單引號(hào)將工作表名括起來。如：Wksheets(“Sh

9、eet1“).ActiveCell.Fmula=“=Max(11剖面!D3:D5)“4、引用其它工作簿中的單元格在被引用單元格所在工作表名前加上“[工作簿名]“，即可引用其它工作簿中的單元格。如：ActiveCell.Fmula=“=MAX([Book1.xls]Sheet3!R1C:RC[4])“同樣需注意的是：當(dāng)被引用的工作簿名中含有某些可能引起公式歧義的字符時(shí)，需要用中括號(hào)“[“、“]“及單引號(hào)將工作簿名括起來。如：Cells(1

10、2).Fmula=“=MIN([19952000總結(jié).xls]19951996年!$A$1:$A$6)“5、避免循環(huán)引用在上述公式賦值過程中，應(yīng)避免在公式中引用被賦值的單元格，防止循環(huán)引用錯(cuò)誤。6、添加批注可按如下方法格給單元格添加批注：Dim批注文本AsString批注文本=“批注示例“準(zhǔn)備批注文本ActiveCell.AddComment添加批注ment.TextText:=臨時(shí)寫入批注文本ment.Visible=False隱藏批

11、注7、添加、刪除、復(fù)制、剪切、粘貼單元格Range(“D10“).Shift:=xlTight在D10單元格處添加一新單元格，原D10格右移Range(“C2“).Shift:=xlDown在C2單元格處添加一新單元格，原C2格下移Rows(2).EntireRow.在第2行前添加一空白行，原第2行下移Columns(3).EntireColumn.在C列前添加一空白列，原C列右移Columns(“A:D“).Shift:=xlToLe