Excel宏教程 (宏的介紹與基本使用)

Microsoft excel是一款功能非常強大的電子表格軟件。它可以輕松地完成數據的各類數學運算，并用各種二維或三維圖形形象地表示出來，從而大大簡化了數據的處理工作。但若僅利用excel的常用功能來處理較復雜的數據，可能仍需進行大量的人工操作。但excel的強大遠遠超過人們的想象–宏的引入使其具有了無限的擴展性，因而可以很好地解決復雜數據的處理問題。
隨著支持Windows的應用程序的不斷增多和功能的不斷增強，越來越多的程序增加了宏處理來方便用戶的自由擴展。但初期各應用程序所采用的宏語言并不統一，這樣用戶每使用一種應用程序時都得重新學習一種宏語言。為了統一各種應用程序下的宏，Microsoft推出了VBA（Visual Basic for Applications）語言。
VBA是從流行的Visual Basic編程語言中派生出來的一種面向應用程序的語言，它適用于各種Windows應用程序，可以解決各應用程序的宏語言不統一的問題。除此之外，使用 VBA語言還有如下優點：1、VBA是一種通用程序語言，通過它不僅可以共享Microsoft相關的各種軟件（如excel、 word、access）……，而且隨著其它的一些軟件（如大名鼎鼎的AutoCAD2000）等對VBA的支持，這些軟件也已進入到了VBA的控制范 圍；2、可以將用VBA編寫的程序復制到Visual Basic中調試并運行，從而實現用Visual Basic來控制有關的應用程序；3、VBA提供的大量內部函數大大簡化了用戶的操作。
對于而今的宏，不僅語言統一規范，而且其功能也已非常強大。但在大多數介紹excel的”傻瓜書”、”指南”、”入門與提高”等參考書中往往略過不提，或淺淺帶過，讀者從中獲得的有關知識往往不足以應付處理復雜數據的需求。為了完成工作，就讓我們一起來學習”宏”的妙用吧。
一)、宏的自學
首先需要明確的是，本文不可能教會您關于宏的所有內容。您需要學會利用”錄制宏”的方法來學習宏：點擊excel” 工具”下拉菜單中”宏”下?quot;錄制新宏”，此后可象平時一樣進行有關操作，待完成后停止錄制。然后再點擊”工具”下拉菜單中”宏”下”宏”的”編 輯”選項即可打開剛才所錄制的宏的Visual Basic源程序，并且可以在此時的”幫助”下拉菜單中獲得有關的編程幫助。對錄制宏進行修改不僅可以學習宏的使用，還能大大簡化宏的編寫。
二)、基本概念
為了學習excel中的宏，我們需要先了解以下一些基本概念。
1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbook
Workbooks集合包含excel中所有當前打開的excel工作簿，亦即所有打開的excel文件；Workbook對應Workbooks中的成員，即其中的excel文件；ActiveWorkbook代表當前處于活動狀態的工作簿，即當前顯示的excel文件；ThisWorkbook代表其中有Visual Basic代碼正在運行的工作簿。
在具體使用中可用Workbooks(index)來引用Workbook對象，其中index為工作簿名稱或編號；如Workbooks(1)、 Workbooks(“年度報表.xls”)。而編號按照創建或打開工作簿的順序來確定，第一個打開的工作簿編號為1，第二個打開的工作簿為2……。
2、工作表：Worksheets、Worksheet、ActiveSheet
Worksheets集合包含工作簿中所有的工作表，即一個excel文件中的所有數據表頁；而Worksheet則代表其中的一個工作表；ActiveSheet代表當前處于的活動狀態工作表，即當前顯示的一個工作表。
可用Worksheets(index)來引用Worksheet對象，其中index為工作表名稱或索引號；如Worksheets(1)、 Worksheets(“第一季度數據”)。工作表索引號表明該工作表在工作表標簽中的位置：第一個（最左邊的）工作表的索引號為1，最后一個（最右邊 的）為Worksheets.Count。需要注意的是：在使用過程中excel會自動重排工作表索引號，保持按照其在工作表標簽中的從左至右排列，工作表的索引號遞增。因此，由于可能進行的工作表添加或刪除，工作表索引號不一定始終保持不變。
3、圖表：Chart 、Charts、ChartObject、ChartObjects、ActiveChart
Chart代表工作簿中的圖表。該圖表既可為嵌入式圖表（包含在ChartObject中），也可為一個分開的（單獨的）圖表工作表。
Charts代表指定工作簿或活動工作簿中所有圖表工作表的集合，但不包括嵌入式在工作表或對話框編輯表中的圖表。使用Charts(index) 可引用單個Chart圖表，其中index是該圖表工作表的索引號或名稱；如Charts(1)、Charts(“銷售圖表”)。圖表工作表的索引號表示 圖表工作表在工作簿的工作表標簽欄上的位置。Charts(1)是工作簿中第一個（最左邊的）圖表工作表；Charts(Charts.Count)為最后一個（最右邊的）圖表工作表。
ChartObject代表工作表中的嵌入式圖表，其作用是作為Chart對象的容器。利用ChartObject可以控制工作表上嵌入式圖表的外觀和尺寸。
ChartObjects代表指定的圖表工作表、對話框編輯表或工作表上所有嵌入式圖表的集合。可由ChartObjects(index)引用單個 ChartObject，其中index為嵌入式圖表的編號或名稱。如Worksheets(“Sheet1”).ChartObjects(1)、 Worksheets(“sheet1”).ChartObjects(“chart1”)分別對應”Sheet1″工作表中的第一個嵌入式圖表、以及名 為”Chart1″的嵌入式圖表。
ActiveChart可以引用活動狀態下的圖表，不論該圖表是圖表工作表，或嵌入式圖表。而對于圖表工作表為活動工作表時，還可以通過ActiveSheet屬性引用之。
4、單元格：Cells、ActiveCell、Range、Areas
Cells(row,column)代表單個單元格，其中row為行號，column為列號。如可以用Cells(1,1)、Cells(10,4)來引用”A1″、”D10″ 單元格。ActiveCell代表活動工作表的活動單元格，或指定工作表的活動單元格。
Range代表工作表中的某一單元格、某一行、某一列、某一選定區域（該選定區域可包含一個或若干連續單元格區域）或者某一三維區域。
可用Range(arg)來引用單元格或單元格區域，其中arg可為單元格號、單元格號范圍、單元格區域名稱。如Range(“A5”)、 Range(“A1:H8”)、Range(“Criteria”)。雖然可用Range(“A1”)返回單元格A1，但用Cells更方便，因為此時可 用變量指定行和列。[dvnews_page]
可將Range與Cells結合起來使用，如 Range(Cells(1,1),Cells(10,10))代表單元格區域”A1:J10″；而 expression.Cells(row,column)返回單元格區域中的一部分，其中expression是返回Range的表達式，row和 column為相對于該區域的左上角偏移量。如由Range(“C5:C10”).Cells(1,1)引用單元格C5。
Areas 為選定區域內的連續單元格塊的集合，其成員是Range對象。而其中的每個Range對象代表選定區域內與其它部分相分離的一個連續單元格塊。某些操作不 能在選定區域內的多個單元格塊上同時執行；必須在選定區域內的單元格塊數Areas.Count上循環，對每個單獨的單元格塊分別執行該操作。此時，可用 Areas(index)從集合中返回單個Range對象，其中index為單元格塊編號；如Areas(1)。
5、 行與列：Rows、Columns、Row、Column
Rows、Columns分別代表活動工作表、單元格區域范圍Range、指定工作表中的所有行數、列數。對于一個多選單元格區域范圍Range的 Rows、Columns，只返回該范圍中第一個區域的行數、列數。例如，如果Range對象有兩個區域（areas）A1:B2和 C3:D4，Rows.Count返回2而不是4。
可通過Rows(行號)、Columns(列號)來引用相應的行與列；如Rows(3)、Columns(4)分別對應第三行、D列。
利用Rows、Column可以獲得區域中第一塊的第一行行號、第一列列號，所得值均以十進制數表示。
三)、處理單元格
1、直接賦值與引用
將變量、常量值直接賦給單元格、或將單元格的值直接賦給變量、常量，這是在excel中最簡單的單元格賦值及引用方法。如下例將工作表”Sheet1″A1單元格的值賦給Integer變量I，并將I+1的值賦給當前工作表中的B1單元格：
Dim I As Integer
I=Worksheets(“Sheet1”).Cells(1,1)
Cells(1,2).Select ‘選定B1單元格，使其成為當前單元格
ActiveCell=I+1 ‘以I+1為當前單元格賦值
2、用公式賦值
在宏的使用中，可能會更多地用公式來給單元格賦值。如下例將相對于活動單元格左側第4列、向上第6行至向上第2行的單元格數值之和賦給活動單元格（以本行、本列為第0行、0列）：
ActiveCell.Formula=”=AVERAGE(R[-6]C[-4]:R[-2]C[-4])”
3、引用其它工作表中的單元格
當賦值公式中需要引用其它工作表中的單元格時，在被引用的單元格前加上”工作表名！”即可。如以下即在賦值中引用了”Sheet1″工作表中的A1至A4單元格：
Range(“E10″).Formula=”=SUM(Sheet1!R1C1:R4C1)”
但需注意的是：當被引用的工作表名中含有某些可能引起公式歧義的字符時，需要用單引號’將工作表名括起來。如：
Worksheets(“Sheet1″).ActiveCell.Formula=”=Max(‘1-1剖面’!D3:D5)”
4、引用其它工作簿中的單元格
在被引用單元格所在工作表名前加上”[工作簿名]”，即可引用其它工作簿中的單元格。如：
ActiveCell.Formula=”=MAX([Book1.xls]Sheet3!R1C:RC[4])”
同樣需注意的是：當被引用的工作簿名中含有某些可能引起公式歧義的字符時，需要用中括號”[“、”]”及單引號’將工作簿名括起來。如：
Cells(1,2).Formula=”=MIN(‘[1995-2000總結.xls]1995-1996年’! $A$1:$A$6)”
5、避免循環引用
在上述公式賦值過程中，應避免在公式中引用被賦值的單元格，防止循環引用錯誤。
6、添加批注
可按如下方法格給單元格添加批注：
Dim 批注文本 As String
批注文本=”批注示例” ‘準備批注文本
ActiveCell.AddComment ‘添加批注
ActiveCell.Comment.Text Text:=臨時 ‘寫入批注文本
ActiveCell.Comment.Visible=False ‘隱藏批注[dvnews_page]
7、添加、刪除、復制、剪切、粘貼單元格
Range(“D10”).Insert Shift:=xlToRight ‘在D10單元格處添加一新單元格，原D10格右移
Range(“C2”).Insert Shift:=xlDown ‘在C2單元格處添加一新單元格，原C2格下移
Rows(2).EntireRow.Insert ‘在第2行前添加一空白行，原第2行下移
Columns(3).EntireColumn.Insert ‘在C列前添加一空白列，原C列右移
Columns(“A:D”).Delete Shift:=xlToLeft ‘刪除A列至D列，其右側列左移
Rows(“3:5”).Delete Shift:=xlUp ‘刪除第3行至第5行，其下方行上移
Range(“B2”).EntireRow.Delete ‘刪除第2行
Range(“C4”).EntireColumn.Delete ‘刪除C列
Range(“B10:C13”).Copy ‘復制B10至C13單元格區域
Cells(1,2).Cut ‘剪切B1單元格
Range(“D10”).Select
ActiveSheet.Paste ‘自D10單元格起粘貼剪貼板中的內容
四)、圖表
1、工作表圖表
以下為一添加工作表圖表的實例。
Charts.Add after:=Worksheets(“Sheet1”) ‘在”Sheet1″工作表之后添加新圖表工作表
ActiveChart.ChartType=xlXYScatterSmooth ‘圖表類型為XY平滑線散點圖
ActiveChart.SetSourceData Source:=Sheets(“結點坐標”).Range(“A1:B69”), PlotBy:= _
xlColumns ‘圖表數據來源于”結點坐標”工作表的A1至B69單元格，且按列繪圖。
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = “節點坐標” ‘圖表標題”節點坐標”
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = “x” ‘x軸標題”x”
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = “y” ‘y軸標題”y”
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = True ‘顯示x軸主網格線，默認情況下為顯示
.HasMinorGridlines = True ‘顯示x軸次網格線，默認情況下為不顯示
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True ‘標出x軸主網格值，默認情況下為標注
.HasMinorGridlines = False ‘取消x軸次網格值標注，默認情況下為不標注
End With
ActiveChart.Legend.Position = xlRight ‘圖例顯示在圖表右側
2、嵌入式圖表
嵌入式圖表僅在添加方式及引用格式上與工作表圖表有所不同，而對圖表的設置基本類似。詳見下例。
Set嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300) ‘在當前工作表(0,0)坐標處添加寬200，高300的嵌入式圖表
嵌入表.Chart.ChartType = xlColumnClustered ‘圖表類型為簇狀柱形圖
嵌入表.Chart.SetSourceData Source:=Sheets(1).Range(“A2:B2”), PlotBy:=xlRows ‘設置圖表數據來源
With 嵌入表.Chart
.HasTitle = False ‘無圖表標題
.Axes(xlCategory, xlPrimary).HasTitle = False ‘無x軸標題
.Axes(xlValue, xlPrimary).HasTitle = False ‘無y軸標題
End With[dvnews_page]
五)、工作表
1、添加
Sheets.Add before:=Sheets(1) ‘在第1工作表前添加新工作表
Sheets.Add after:=Sheets(Sheets.Count) ‘在最后工作表后添加新工作表
2、移動
ActiveSheet.Move before:=Sheets(2) ‘將當前工作表移動至第2工作表之前
3、命名
ActiveSheet.Name=”工作表名” ‘將當前工作表命名為”工作表名”

　　4、刪除
可以用以下語句刪除當前工作表。
ActiveSheet.Delete
但在刪除前excel會自動彈出提示框，需在用戶確認后方可執行刪除。為避免這一干擾，可以先用以下語句關閉excel的警告提示。
Application.DisplayAlerts = False
在刪除完成后，再重新打開excel的警告提示
Application.DisplayAlerts = True
六)、工作簿
excel的宏對工作簿的操作主要為保存。
Dim 存盤文件名 As String
ActiveWorkbook.Save ‘保存當前工作簿
存盤文件名=”工作表名”
ActiveWorkbook.SaveAs Filename:= 存盤文件名 ‘當前工作簿另存為”工作表名.xls”
在另存時，若指定的存盤文件名不包含路徑，則保存在該工作簿的打開目錄下。而若此存盤文件已存在，也可用關閉excel警告提示的方法以免其自動彈出提示框。

總結

以上是生活随笔為你收集整理的Excel宏教程 (宏的介绍与基本使用)(Microsoft)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。