excel宏編程簡(jiǎn)明教程(有實(shí)例),

1、ExcelExcel宏編程簡(jiǎn)明教程宏編程簡(jiǎn)明教程一)、宏學(xué)習(xí)、宏學(xué)習(xí)首先需要明確的是，本文不可能教會(huì)您關(guān)于宏的所有內(nèi)容。您需要學(xué)會(huì)利用“錄制宏“的方法來學(xué)習(xí)宏：點(diǎn)擊Excel“工具“下拉菜單中“宏“下quot錄制新宏“，此后可象平時(shí)一樣進(jìn)行有關(guān)操作，待完成后停止錄制。然后再點(diǎn)擊“工具“下拉菜單中“宏“下“宏“的“編輯“選項(xiàng)即可打開剛才所錄制的宏的VisualBasic源程序，并且可以在此時(shí)的“幫助“下拉菜單中獲得有關(guān)的編程幫助。對(duì)錄制宏

2、進(jìn)行修改不僅可以學(xué)習(xí)宏的使用，還能大大簡(jiǎn)化宏的編寫。二)、基本概念為了學(xué)習(xí)Excel中的宏，我們需要先了解以下一些基本概念。1、工作簿：Wkbooks、Wkbook、ActiveWkbook、ThisWkbookWkbooks集合包含Excel中所有當(dāng)前打開的Excel工作簿，亦即所有打開的Excel文件；Wkbook對(duì)應(yīng)Wkbooks中的成員，即其中的Excel文件；ActiveWkbook代表當(dāng)前處于活動(dòng)狀態(tài)的工作簿，即當(dāng)前顯示的E

3、xcel文件；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……。2、工作表：Wksheets、Wksheet、ActiveSheetWksheets集合包

4、含工作簿中所有的工作表，即一個(gè)Excel文件中的所有數(shù)據(jù)表頁；而Wksheet則代表其中的一個(gè)工作表；ActiveSheet代表當(dāng)前處于的活動(dòng)狀態(tài)工作表，即當(dāng)前顯示的一個(gè)工作表。可用Wksheets(index)來引用Wksheet對(duì)象，其中index為工作表名稱或索引號(hào)；如Wksheets(1)、Wksheets(“第一季度數(shù)據(jù)“)。工作表索引號(hào)表明該工作表在工作表標(biāo)簽中的位置：第一個(gè)（最左邊的）工作表的索引號(hào)為1，最后一個(gè)（最右邊的

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

6、表工作表的集合，但不包括嵌入式在工作表或?qū)υ捒蚓庉嫳碇械膱D表。使用ts(index)可引用單個(gè)t圖表，其中index是該圖表工作表的索引號(hào)或名稱；如ts(1)、ts(“銷售圖表“)。圖表工作表的索引號(hào)表示圖表工作表在工作簿的工作表標(biāo)簽欄上的位置。ts(1)是工作簿中第一個(gè)（最左邊的）圖表工作表；ts(ts.Count)為最后一個(gè)（最右邊的）圖表工作表。tObject代表工作表中的嵌入式圖表，其作用是作為t對(duì)象的容DimIAsIntege

7、rI=Wksheets(“Sheet1“).Cells(11)Cells(12).選定B1單元格，使其成為當(dāng)前單元格ActiveCell=I1以I1為當(dāng)前單元格賦值2、用公式賦值在宏的使用中，可能會(huì)更多地用公式來給單元格賦值。如下例將相對(duì)于活動(dòng)單元格左側(cè)第4列、向上第6行至向上第2行的單元格數(shù)值之和賦給活動(dòng)單元格（以本行、本列為第0行、0列）：ActiveCell.Fmula=“=AVERAGE(R[6]C[4]:R[2]C[4])“3

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

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

10、結(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隱藏批注7、添加、刪除、復(fù)制、剪切、粘貼單元格Range