excel宏編程實例

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

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

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

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

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

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

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

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

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

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