1、 VBA命令大全使用Dim語句Dim a as integer 聲明a為整型變量Dim a 聲明a為變體變量Dim a as string 聲明a為字符串變量Dim a as currency ,b as currency ,c as currency 聲明a,b,c為貨幣變量Dim z As Variant 定義實數（帶小數）.聲明變量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（當前不支持）、 Date、String（只限變長字符串）、String * length（定長字符串）、Object、Variant、用戶

2、定義類型或對象類型。強制聲明變量Option Explicit說明：該語句必在任何過程之前出現在模塊中。聲明常數用來代替文字值。Const 常數的默認狀態是 Private。Const My = 456 聲明 Public 常數。Public Const MyString = HELP 聲明 Private Integer 常數。Private Const MyInt As Integer = 5 在同一行里聲明多個常數。Const MyStr = Hello, MyDouble As Double = 3.4567選擇當前單元格所在區域在EXCEL97中，有一個十分好的功能，他就是把鼠標放置

3、在一個有效數據單元格中，執行該段代碼，你就可以將連在一起的一片數據全部選中。只要將該段代碼加入到你的模塊中。Sub My_SelectEnd sub返回當前單元格中數據刪除前后空格后的值sub my_trimmsgbox Trim(ActiveCell.Value)end sub單元格位移sub my_offsetActiveCell.Offset(0, 1).Select當前單元格向左移動一格ActiveCell.Offset(0, -1).Select當前單元格向右移動一格ActiveCell.Offset(1 , 0).Select當前單元格向下移動一格ActiveCell.Offset

4、(-1 , 0).Select當前單元格向上移動一格end sub如果上述程序產生錯誤那是因為單元格不能移動，為了解除上述錯誤，我們可以往sub my_offset 之下加一段代碼 on error resume next 注意以下代碼都不再添加 sub “代碼名稱” 和end sub請自己添加!給當前單元格賦值ActiveCell.Value = 你好！給指定單元格賦值例如：單元格內容設為Range(a1).value=hello又如：你現在的工作簿在sheet1上，你要往sheet2的單元格中插入1.sheets(sheet2).selectrange(a1).value=hello或2.

5、Sheets(sheet1).Range(a1).Value = hello說明：1.sheet2被選中，然后在將“HELLO賦到A1單元格中。2.sheet2不必被選中，即可“HELLO賦到sheet2 的A1單元格中。隱藏工作表隱藏SHEET1這張工作表sheets(sheet1).Visible=False顯示SHEET1這張工作表sheets(sheet1).Visible=True打印預覽有時候我們想把所有的EXCEL中的SHEET都打印預覽，請使用該段代碼，它將在你現有的工作簿中循環，直到最后一個工作簿結束循環預覽。Dim my As WorksheetFor Each my In

6、 Worksheetsmy.PrintPreviewNext my得到當前單元格的地址msgbox ActiveCell.Address得到當前日期及時間msgbox date & chr(13) & time保護工作簿ActiveSheet.Protect取消保護工作簿ActiveSheet.Unprotect給活動工作表改名為 liuActiveSheet.Name = liu打開一個應用程序AppActivate (Shell(C:WINDOWSCALC.EXE)增加一個工作表Worksheets.Add刪除活動工作表activesheet.delete打開一個工作簿文件Workbook

7、s.Open FileName:=C:My DocumentsBook2.xls關閉活動窗口ActiveWindow.Close單元格格式選定單元格左對齊Selection.HorizontalAlignment = xlLeft選定單元格居中Selection.HorizontalAlignment = xlCenter選定單元格右對齊Selection.HorizontalAlignment = xlRight選定單元格為百分號風格Selection.Style = Percent選定單元格字體為粗體Selection.Font.Bold = True選定單元格字體為斜體Selection

8、.Font.Italic = True選定單元格字體為宋體20號字With Selection.Font.Name = 宋體.Size = 20End WithWith 語句With 對象.描述End With清除單元格ActiveCell.Clear 刪除所有文字、批注、格式返回選定區域的行數返回選定區域的列數返回選定區域的地址Selection.Address忽略所有的錯誤ON ERROR RESUME NEXT遇錯跳轉on error goto err_handle中間的其他代碼err_handle: 標簽跳轉后的代碼刪除一個文件kill c:1.txt定制自己的狀態欄Applicati

9、on.StatusBar = 現在時刻: & Time恢復自己的狀態欄Application.StatusBar = false用代碼執行一個宏Application.Run macro:=text滾動窗口到a1的位置ActiveWindow.ScrollRow = 1ActiveWindow.ScrollColumn = 1定制系統日期Dim MyDate, MyDayMyDate = #12/12/69#MyDay = Day(MyDate)返回當天的時間Dim MyDate, MyYearMyDate = DateMyYear = Year(MyDate)MsgBox MyYearinp

10、utboxXX=InputBox (Enter number of months to add)得到一個文件名Dim kk As Stringkk = Application.GetOpenFilename(EXCEL (*.XLS), *.XLS, Title:=提示：請打開一個EXCEL文件：)msgbox kk打開zoom對話框Application.Dialogs(xlDialogZoom).Show激活字體對話框Application.Dialogs(xlDialogActiveCellFont).Show打開另存對話框Dim kk As Stringkk = Application

11、.GetSaveAsFilename(excel (*.xls), *.xls)Workbooks.Open kk1 excle快捷鍵大全對工具欄進行操作的快捷鍵激活菜單欄，F10，Alt選定前一個或下一個工具欄，Ctrl+Tab或Ctrl+Shift+Tab選定工具欄中的下一個或前一個按鈕或菜單，Tab或Shift+Tab(當某個工具欄被激活時)打開選定的菜單，Enter運行選按鈕的操作，Enter在選定的文本框中輸入文本，Enter在對話框中使用的快捷鍵取消當前任務,Esc單擊相應命令，Alt+下劃線字母單擊選定的按鈕,Enter在選項中前移，Tab在選項后移,Shift+Tab在選項卡中

12、前移,Ctrl+Tab在選項卡中后移,Ctrl+Shift+Tab刷新“另存為”或“打開”對話框,F5插入、刪除和復制選定區域的快捷鍵復制選定區域，Ctrl+C粘貼選定區域,Ctrl+V剪切選定區域,Ctrl+X清除選定區域的內容，Delete插入空白單元格,Ctrl+Shift+加號刪除選定區域,Ctrl+-撤消最后一次操作,Ctrl+Z使用“office助手”需要用到的快捷鍵關閉“office助手”提供的消息,Esc通過“office助手”獲取幫助信息,F1顯示下一項提示,Alt+N顯示前一項提示,Alt+B在向導中顯示或隱藏“office助手”,空格鍵對窗口進行操作的快捷鍵切換到下一個程

13、序,Alt+Tab切換到前一個程序,Alt+Shift+Tab顯示windwos“開始”菜單,Ctrl+Esc關閉活動工作薄窗口,Ctrl+W恢復活動工作薄窗口,Ctrl+F5切換到下一個工作薄窗口，Ctrl+F6切換到前一個工作薄窗口,Ctrl+Shift+F6執行“移動”命令(菜單欄中的工作薄圖標菜單),Ctrl+F7運行“大小”命令(菜單欄中的工作薄圖標菜單),Ctrl+F8將工作薄窗口最小化為圖標,Ctrl+F9最大化或恢復工作薄窗口,Ctrl+F10在“打開”或“另存為”對話框中更新可見的文件,F5使用對話框進行操作的快捷鍵切換到對話框中的下一個選項卡,Ctrl+Tab或Ctrl+P

14、ageDown切換到對話框中的前一個選項卡,Ctrl+Shift+Tab或Ctrl+PageUp移動到下一個選項或選項組,Tab移動到前一個選項或選項組,Shift+Tab在活動下拉列表框的選項間移動，或在選項組選項間移動,方向鍵招待活動按鈕的操作，或選定或清除當前復選框,空格鍵取消命令或關閉對話框,Esc在文本框中進行操作的快捷鍵移動到內容的開始,Home移動到內容的最后,End向左或向右移動一個字符,左右方向鍵向左或向右移動一個字,Ctrl+左右方向鍵選定從插入點到開始的輸入內容，Shift+Home選定從插入點到最后的輸入內容，Shift+End選定或取消左面的一個字符,Shift+左方

15、向鍵選定或取消右面的一個字符，Shift+右方向鍵選定或取消左面的一個字,Ctrl+Shift+左方向鍵選定或取消右面的一個字,Ctrl+Shift+右方向鍵在工作表和工作薄中選定單元格、列、行或對象的快捷鍵選定當前單元格周圍的區域,Ctrl+Shift+*(星號)將選定區域擴展一個單元格寬度,Shift+方向鍵將選定區域擴展到與活動單元格同一行或同一列的最后一個非空白單元格,Ctrl+Shift+方向鍵將選定區域擴展到行首,Shift+Home將選定區域擴展到工作表的開始,Ctrl+Shift+Home將選定區域擴展到工作表的最后一個包含數據的單元格,Ctrl+Shift+End選定整列，C

16、trl+空格鍵選定整行,Shift+空格鍵選定整個工作表,Ctrl+A若已選定多個單元格，則只選定其中的活動單元格,Shift+Backspace將選定區域向下擴展一屏,Shift+PageDown將選定區域向上擴展一屏,Shift+PageUp在選定一個對象時，選定工作表上的所有對象,Ctrl+Shift+空格鍵在隱藏對象、顯示對象與對象占位符之間切換，Ctrl+6顯示或隱藏“常用”工具欄,Ctrl+7分級顯示數據的快捷鍵取消行或列分組,Alt+Shift+左方向鍵對行或列分組,Alt+Shift+右方向鍵顯示或隱藏分級顯示符號,Ctrl+8隱藏選定行,Ctrl+9取消隱藏選定行,Ctrl+

17、Shift+(隱藏選定列,Ctrl+0取消隱藏選定列,Ctrl+Shift+)編輯單元格的快捷鍵完成單元格輸入,Enter取消單元格輸入，Esc重復單元格一次操作,F4或Ctrl+Y在單元格中折行,Alt+Enter刪除插入點左邊的字符或刪除選定區域,Backspace刪除插入點右邊的字符或刪除選定區域,Delete向上下左右移動一個字符,方向鍵移到行首,Home移到行尾,End編輯單元格批注,Shift+F2由行或列標志創建名稱,Ctrl+Shift+F3向下填充,Ctrl+D向右填充,Ctrl+R用當前輸入項填充選定的單元格區域,Ctrl+Enter完成單元格輸入并在選定區域中下移,Ent

18、er完成單元格輸入并在選定區域中上移,Shift+Enter完成單元格輸入并在選定區域中右移,Tab完成單元格輸入并在選定區域中左移,Shift+Tab在單元格或編輯欄中使用的快捷鍵鍵入公式,=(等號)取消單元格或編輯欄中的輸入項,Esc編輯當前單元格,F2編輯活動單元格并清除其內容，或在編輯時刪除前一個字符，Backspace將名稱粘貼到公式中,F3定義名稱,Ctrl+F3計算所有打開工作薄中的所有工作表,F9計算活動工作表,Shift+F9輸入“自動求和”公式,Alt+=(等號)輸入日期,Ctrl+;輸入時間,Ctrl+Shift+:插入超級鏈接,Ctrl+K完成單元格輸入,Enter將當

19、前單元格上方單元格中的數值復制到當前單元格或編輯欄,Ctrl+Shift+(雙引號)將當前單元格上方單元格中的公式復制到當前單元格或編輯欄，Ctrl+(單引號)在顯示單元格值與單元格公式間轉換,Ctrl+(撇號)輸入數組公式,Ctrl+Shift+Enter鍵入有效函數名后，顯示公式選項板,Ctrl+A鍵入有效函數名后，為該函數插入變量名和括號,Ctrl+Shift+A顯示“記憶式鍵入”列表,Ctrl+下方向鍵快捷鍵與數據格式設置顯示“樣式”命令,Alt+(單引號)顯示“單元格”命令,Ctrl+1應用常規數字格式,Ctrl+Shift+應用帶兩個小數位的“貸幣”格式,Ctrl+Shift+$應

20、用不帶小數位的“百分比”格式,Ctrl+shift+%應用帶兩個小數位的“科學記數”數字格式,Ctrl+shift+應用年月日“日期”格式,Ctrl+shift+#應用小時和分鐘“時間”格式，并表明上午或下午,Ctrl+shift+應用外邊框,Ctrl+shift+&取消選定單元格區域中的所有邊框,Ctrl+shift+_應用或取消字體加粗格式,Ctrl+B應用或取消字體傾斜格式,Ctrl+I應用或取消字體下劃線格式,Ctrl+U應用或取消刪除線格式,Ctrl+5隱藏行,Ctrl+9取消隱藏行,Ctrl+Shift+(隱藏列,Ctrl+0取消隱藏列,Ctrl+Shift+)使用 Excel 2

21、003 工作表的 VBA 示例 適用范圍：Microsoft Office Excel 2003摘要：尋找能夠為 Excel 工作表增加額外功能的宏。只需稍加練習，您就可以擴展這些程序，使其適合您自己的應用程序。本頁內容 引言 導出帶有逗號和引號分隔符的文本文件 計算包含公式、文本或數字的單元格數量 使用 Saved 屬性確定工作簿是否已發生更 合并數據列 數組中的總行數和總列數 結論引言本文介紹幾個 Microsoft Visual Basic for Applications (VBA) 宏，您可以使用這些宏為 Microsoft Office Excel 2003 工作簿和工作表增加額外

22、的功能。這些宏將為您的應用程序提供新的功能或增強現有的功能。閱讀示例的同時，您應該尋找擴展這些宏的方法，以適合您自己的情況。 導出帶有逗號和引號分隔符的文本文件Excel 沒有自動將數據導出為文本文件的菜單命令，因此導出的文本文件同時帶有逗號和引號分隔符。例如，沒有命令能自動創建包含以下內容的文本文件：Text1,Text2,Text3 但是，您可以使用 VBA 宏在 Excel 中創建該功能。這種文件格式是在諸如 Microsoft Office Access 2003 和 Microsoft Office Word 2003 之類的應用程序中導入文本數據時常見的格式。您可以在如下所示的 V

23、BA 宏中使用 Print 語句，導出同時帶有逗號和引號分隔符的文本文件。要使該程序正常運行，必須在運行該程序之前選擇包含數據的單元格。使用以下示例之前，請執行以下步驟：1. 打開一個新工作簿。2. 在“工具”菜單中，指向“宏”，然后單擊“Visual Basic 編輯器”（或者簡單地按下 ALT+F11 組合鍵）。在“Visual Basic 編輯器”中，單擊“插入”菜單，然后單擊“模塊”。3. 將以下示例代碼鍵入或粘貼到模塊中：Sub QuoteCommaExport() Dim DestFile As String Dim FileNum As Integer Dim ColumnCou

24、nt As Integer Dim RowCount As Integer 提示用戶指定目標文件名。 DestFile = InputBox(Enter the destination filename & _ Chr(10) & (with complete path and extension):, _ Quote-Comma Exporter) 獲取下一個可用的文件句柄編號。 FileNum = FreeFile() 關閉錯誤檢查功能。 On Error Resume Next 嘗試打開目標文件以供輸出。 Open DestFile For Output As #FileNum 如果出現

25、錯誤，則報告錯誤并結束程序。 If Err 0 Then MsgBox Cannot open filename & DestFile End End If 打開錯誤檢查功能。 On Error GoTo 0 循環選擇的每一行。 循環選擇的每一列。 將當前單元格中的文本寫入到文件中，文本用引號括起來。 Print #FileNum, & Selection.Cells(RowCount, _ ColumnCount).Text & ; 檢查單元格是否位于最后一列。 If ColumnCount = Selection.Columns.Count Then 如果是，則寫入一個空行。 Print

26、#FileNum, Else 否則，則寫入一個逗號。 Print #FileNum, ,; End If 開始 ColumnCount 循環的下一個迭代。 Next ColumnCount 開始 RowCount 循環的下一個迭代。 Next RowCount 關閉目標文件。 Close #FileNum End Sub 4. 運行該宏之前，請選擇要導出的數據，然后在“工具”菜單中指向“宏”并單擊“宏”。5. 選擇 QuoteCommaExport 宏，然后單擊“運行”。 計算包含公式、文本或數字的單元格數量在 Excel 中，您可以對包含公式、文本或數字的工作表中的單元格數量進行計算，方法是

27、使用“定位條件”對話框選擇單元格，然后運行計算所選單元格數量的宏。例如，當您需要設置表格以確定合計列的每一行是否都包含公式而不用手動檢查每一行時，此方法可能很有用。選擇單元格要選擇公式、文本或數字，請執行以下步驟：1. 在“編輯”菜單中，單擊“定位”，然后單擊“定位條件”。2. 在“定位條件”對話框中，要選擇所有公式，請單擊“公式”并確保選中“數字”、“文本”、“邏輯值”以及“錯誤”復選框。要選擇文本，請選擇“常量”選項，然后僅單擊并選中“文本”復選框。要選擇數字，請選擇“常量”選項，然后僅單擊并選中“數字”復選框。計算所選單元格數量的 VBA 代碼要計算所選的單元格數量并在消息框中顯示計算結

28、果，請使用以下程序：Sub Count_Selection() Dim cell As Object Dim count As Integer count = 0 For Each cell In Selection count = count + 1 Next cell MsgBox count & item(s) selected End Sub 您可以將此程序指定給一個命令按鈕，這樣，當您單擊該按鈕時，將顯示所選項的數量。 使用 Saved 屬性確定工作簿是否已發生更改可以通過檢查工作簿的 Saved 屬性來確定工作簿是否已發生更改。根據工作簿是否發生了更改，Saved 屬性將返回 Tr

29、ue 或 False 值。注意：用戶除了可以通過“事件”設置 Saved 屬性外，還可以通過代碼將其設置為 True 或 False。本節包含的示例宏說明了如何在這兩種情況下使用 Saved 屬性。工作表中的各種情況（例如存在可變函數）都可能會影響 Saved 屬性。可變函數是指工作表中每次發生更改時都會重新計算的函數，而不管發生的更改是否影響到這些函數。某些常見的可變函數包括 RAND()、NOW()、TODAY() 和 OFFSET()。如果活動工作簿包含未保存的更改，第一個宏將顯示如下消息：Sub TestForUnsavedChanges() If ActiveWorkbook.Sav

30、ed = False Then MsgBox This workbook contains unsaved changes. End If End Sub 下一個宏將關閉包含示例代碼的工作簿并放棄對工作簿所做的所有更改：Sub CloseWithoutChanges() ThisWorkbook.Saved = True ThisWorkbook.Close End Sub 下面的示例宏也將關閉工作簿并放棄更改：Sub CloseWithoutChanges() ThisWorkbook.Close SaveChanges:=False End Sub 合并數據列在 Excel 中，可以使用宏

31、合并兩個相鄰列中的數據并在包含數據的右側列中顯示結果，完全不需要手動設置公式。本節包含的示例宏就可以實現此功能。Sub ConcatColumns() Do While ActiveCell 一直循環，直到活動單元格為空。 ActiveCell.Offset(0, 1).FormulaR1C1 = _ ActiveCell.Offset(0, -1) & & ActiveCell.Offset(0, 0) ActiveCell.Offset(1, 0).Select Loop End Sub 要使用宏，請執行以下步驟：1. 打開包含數據的工作簿。2. 按 ALT+F11 組合鍵激活“Visua

32、l Basic 編輯器”。3. 在“插入”菜單中，單擊“模塊”以插入一個模塊。在模塊的代碼窗口中鍵入上面的宏。4. 單擊“文件”菜單中的“關閉并返回到 Microsoft Excel”。5. 選擇包含要合并的數據的工作表。6. 單擊要合并的右側數據列的第一個單元格。例如，如果單元格 A1:A100 和 B1:B100 包含數據，則單擊單元格 B1。7. 在“工具”菜單中，指向“宏”并單擊“宏”。選擇 ConcatColumns 宏并單擊“運行”。注意：可以用語句 ActiveCell.Offset(0, 1).Formula 替換語句 ActiveCell.Offset(0, 1).Formu

33、laR1C1。如果僅使用文本和數字（不包含公式），那么兩個語句的效果相同。第一個語句末尾使用的 R1C1 表示第一行的第一列，這是 Excel 幫助主題中大多數示例使用的形式。 數組中的總行數和總列數在 Excel 中，可以使用數組來計算和操作工作表中的數據，還可以使用宏將某個范圍內的單元格中的值存儲到一個數組中。本節中的示例宏代碼將在一個矩形單元格區域中添加一行和一列，以包含該區域中每一行和每一列中的單元格總數。具體的步驟是，代碼從活動工作表上活動單元格周圍的當前單元格區域中讀取數據。宏將這些數據存儲在一個數組中，計算每一行和每一列中的單元格總數，然后將輸出顯示在工作表中。數組的大小由當前區

34、域中的單元格數量決定。注意：此宏不會在工作表中添加任何公式，因此如果該范圍內的單元格總數有變化，則必須重新運行宏。使用以下示例之前，請執行以下步驟：1. 打開一個新工作簿。2. 在“工具”菜單中，指向“宏”，然后單擊“Visual Basic 編輯器”（或者簡單地按下 ALT+F11 組合鍵）。在“Visual Basic 編輯器”中的“插入”菜單中，單擊“模塊”。將以下示例代碼鍵入或粘貼到模塊中：Sub TotalRowsAndColumns() 此宏假定您已從 要計算單元格總數的矩形區域內 選擇了一個單元格或一組單元格。行和列的單元格總數將出現在 當前區域下面的行和右側的列中。 Dim r

35、 As Integer Dim c As Integer Dim i As Integer Dim j As Integer Dim myArray As Variant 將 myArray 聲明為變量將使數組可以接收 一組單元格。此時，數組將自動轉換為 以下標 myArray(1,1) 開始的數組。 指當前所選單元格周圍的區域。 With Selection.CurrentRegion r = .Rows.Count c = .Columns.Count 重新計算總行數和總列數并將結果存儲到數組中。 myArray = .Resize(r + 1, c + 1) 在下面的嵌套循環中，變量 i

36、 跟蹤 行號，變量 j 跟蹤 列號。j 在可用列中每循環一次， i 就遞增一，而 j 則重新從一到 c 循環一次。 For i = 1 To r For j = 1 To c 行 i 的總數 myArray(i, c + 1) = myArray(i, c + 1) + myArray(i, j) 列 j 的總數 myArray(r + 1, j) = myArray(r + 1, j) + myArray(i, j) 總計 myArray(r + 1, c + 1) = myArray(r + 1, c + 1) + myArray(i, j) Next j Next i 將數組返回工作表，

37、數組中現在包含一個 新行和一個新列，用于存儲總數。 .Resize(r + 1, c + 1) = myArray End With End Sub 3. 突出顯示要求和區域中的一個單元格，在“工具”菜單中，指向“宏”并單擊“宏”。4. 選擇 TotalRowsAndColumns 宏，然后單擊“運行”。注意：要執行與本示例中的運算類似的運算，可以修改宏代碼。例如，要對選定范圍內的單元格中包含的值進行減法、乘法或除法運算，可以更改數學運算符。 結論本文介紹了各種 VBA 宏，使用這些宏可以減少使用工作表所需的工作量。此外，您還可以修改本文介紹的大多數宏以擴展它們的功能。始終記住可以在工具或提示

38、庫中添加更多宏，您將會受益匪淺。 VBA系列講座(1):VBA是什么? 1.1 VBA是什么直到90年代早期,使應用程序自動化還是充滿挑戰性的領域.對每個需要自動化的應用程序,人們不得不學習一種不同的自動化語言.例如:可以用EXCEL 的宏語言來使EXCEL自動化,使用WORD BASIC使WORD自動化,等等.微軟決定讓它開發出來的應用程序共享一種通用的自動化語言-Visual Basic For Application(VBA),可以認為VBA是非常流行的應用程序開發語言VASUAL BASIC 的子集.實際上VBA是寄生于VB應用程序的版本.VBA和VB的區別包括如下幾個方面:1. VB

39、是設計用于創建標準的應用程序,而VBA是使已有的應用程序(EXCEL等)自動化2. VB具有自己的開發環境,而VBA必須寄生于已有的應用程序.3. 要運行VB開發的應用程序,用戶不必安裝VB,因為VB開發出的應用程序是可執行文件(*.EXE),而VBA開發的程序必須依賴于它的父應用程序,例如EXCEL.盡管存在這些不同,VBA和VB在結構上仍然十分相似.事實上,如果你已經了解了VB,會發現學習VBA非常快.相應的,學完VBA會給學習VB打下堅實的基礎.而且,當學會在EXCEL中用VBA創建解決方案后,即已具備在WORD ACCESS OUTLOOK FOXPRO PROWERPOINT 中用V

40、BA創建解決方案的大部分知識.* VBA一個關鍵特征是你所學的知識在微軟的一些產品中可以相互轉化.* VBA可以稱作EXCEL的“遙控器”.VBA究竟是什么?更確切地講,它是一種自動化語言,它可以使常用的程序自動化,可以創建自定義的解決方案. 此外,如果你愿意,還可以將EXCEL用做開發平臺實現應用程序.1.2 EXCEL環境中基于應用程序自動化的優點也許你想知道VBA可以干什么?使用VBA可以實現的功能包括:1. 使重復的任務自動化.2. 自定義EXCEL工具欄,菜單和界面.3. 簡化模板的使用.4. 自定義EXCEL,使其成為開發平臺.5. 創建報表.6. 對數據進行復雜的操作和分析.用E

41、XCEL作為開發平臺有如下原因:1. EXCEL本身功能強大,包括打印,文件處理,格式化和文本編輯.2. EXCEL內置大量函數.3. EXCEL界面熟悉.4. 可連接到多種數據庫.用其他語言開發應用程序,一半的工作是編寫一些基本功能的模塊,包括文件的打開和保存,打印,復制等.而用EXCEL作為開發平臺,則由于EXCEL已經具備這些基本功能,你要做的只是使用它.1.3 錄制簡單的宏在介紹學習VBA之前，應該花幾分鐘錄制一個宏。新術語：“宏”，指一系列EXCEL能夠執行的VBA語句。以下將要錄制的宏非常簡單，只是改變單元格顏色。請完成如下步驟：1)打開新工作簿，確認其他工作簿已經關閉。2)選擇A

42、1單元格。調出“常用”工具欄。3)選擇“工具”“宏”“錄制新宏”。4)輸入“改變顏色”作為宏名替換默認宏名，單擊確定,注意，此時狀態欄中顯示“錄制”，特別是“停止錄制”工具欄也顯示出來。替換默認宏名主要是便于分別這些宏。 宏名最多可為255個字符，并且必須以字母開始。其中可用的字符包括：字母、數字和下劃線。宏名中不允許出現空格。通常用下劃線代表空格。5)選擇“格式”的“單元格”，選擇“圖案”選項中的紅色,單擊“確定”。6)單擊“停止錄制”工具欄按鈕，結束宏錄制過程。 如果“停止錄制”工具欄開始并未出現，請選擇“工具”“宏”“停止錄制”。錄制完一個宏后就可以執行它了。1.4 執行宏當執行一個宏時

43、，EXCEL按照宏語句執行的情況就像VBA代碼在對EXCEL進行“遙控”。但VBA的“遙控”不僅能使操作變得簡便，還能使你獲得一些使用EXCEL標準命令所無法實現的功能。而且，一旦熟悉了EXCEL的“遙控”，你都會奇怪自己在沒有這些“遙控”的情況下，到底是怎么熬過來的。要執行剛才錄制的宏，可以按以下步驟進行：1）選擇任何一個單元格，比如A3。2）選擇“工具”“宏”“宏”，顯示“宏”對話框。3）選擇“改變顏色”，選擇“執行”，則A3單元格的顏色變為紅色。試著選擇其它單元格和幾個單元格組成的區域，然后再執行宏，以便加深印象。1.5 查看錄制的代碼到底是什么在控制EXCEL的運行呢?你可能有些疑惑.好,讓我們看看VBA的語句吧.1）選擇“工具”“宏”“宏”，顯示“宏”對話框。2）單擊列表中的“改變顏色”,選擇“編輯”按鈕。此時，會打開VBA的編輯器窗口（VBE）。關于該編輯器，以