EXCEL VBA编程常用代码

1、EXCEL VBA编程常用代码Excel VBA编程常用代码时间:2021-12-0522:36:04来源:本站作者:未知我要投稿我要收藏投稿指南用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！使用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为货币变量.声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decima

2、l（当前不支持）、Date、String（只限变长字符串）、String*length （定长字符串）、Object、Variant、用户定义类型或对象类型。强制声明变量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 Dou

3、ble=3.4567选择当前单元格所在区域在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。Sub My_SelectSelection.CurrentRegion.SelectEnd sub返回当前单元格中数据删除前后空格后的值sub my_trimmsgbox Trim(ActiveCell.Value)end sub单元格位移sub my_offsetActiveCell.Offset(0,1).Select当前单元格向左移动一格ActiveCell.Offset(0,-1)

4、.Select当前单元格向右移动一格ActiveCell.Offset(1,0).Select当前单元格向下移动一格ActiveCell.Offset(-1,0).Select当前单元格向上移动一格end sub如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往sub my_offset之下加一段代码on error resume next注意以下代码都不再添加sub“代码名称”和end sub请自己添加!给当前单元格赋值ActiveCell.Value=你好！给指定单元格赋值例如：单元格内容设为Range(a1).value=hello又如：你现在的工作簿在sheet1

5、上，你要往sheet2的单元格中插入1.sheets(sheet2).selectrange(a1).value=hello或2.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都打印预览，请使用该段代码，它

6、将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。Dim my As WorksheetFor Each my In Worksheetsmy.PrintPreviewNext my得到当前单元格的地址msgbox ActiveCell.Address得到当前日期及时间msgbox date&chr(13)&time保护工作簿ActiveSheet.Protect取消保护工作簿ActiveSheet.Unprotect给活动工作表改名为liu/doc/a8fbbfe774eeaeaad1f34693daef5ef7ba0d126b.html

7、=liu打开一个应用程序AppActivate(Shell(C:WINDOWSCALC.EXE)增加一个工作表Worksheets.Add删除活动工作表activesheet.delete打开一个工作簿文件Workbooks.Open FileName:=C:My DocumentsBook2.xls关闭活动窗口ActiveWindow.Close单元格格式选定单元格左对齐Selection.HorizontalAlignment=xlLeft选定单元格居中Selection.HorizontalAlignment=xlCenter选定单元格右对齐Selection.HorizontalAli

8、gnment=xlRight选定单元格为百分号风格Selection.Style=Percent选定单元格字体为粗体Selection.Font.Bold=True选定单元格字体为斜体Selection.Font.Italic=True选定单元格字体为宋体20号字With Selection.Font.Name=宋体.Size=20End WithWith语句With对象.描述End With清除单元格ActiveCell.Clear删除所有文字、批注、格式返回选定区域的行数MsgBox Selection.Rows.Count返回选定区域的列数MsgBox Selection.Columns

9、.Count返回选定区域的地址Selection.Address忽略所有的错误ON ERROR RESUME NEXT遇错跳转on error goto err_handle中间的其他代码err_handle:标签跳转后的代码删除一个文件killc:1.txt定制自己的状态栏Application.StatusBar=现在时刻:&Time恢复自己的状态栏Application.StatusBar=false用代码执行一个宏Application.Run macro:=text滚动窗口到a1的位置ActiveWindow.ScrollRow=1ActiveWindow.ScrollColumn=

10、1定制系统日期Dim MyDate,MyDayMyDate=#12/12/69#MyDay=Day(MyDate)返回当天的时间Dim MyDate,MyYearMyDate=DateMyYear=Year(MyDate)MsgBox MyYearinputboxXX=InputBox(Enter number of months to add)得到一个文件名Dim kk As Stringkk=Application.GetOpenFilename(EXCEL(*.XLS),*.XLS,Title:=提示：请打开一个EXCEL文件：)msgbox kk打开zoom对话框Application

11、.Dialogs(xlDialogZoom).Show激活字体对话框Application.Dialogs(xlDialogActiveCellFont).Show打开另存对话框Dim kk As Stringkk=Application.GetSaveAsFilename(excel(*.xls),*.xls) Workbooks.Open kk1excle快捷键大全对工具栏进行操作的快捷键激活菜单栏，F10，Alt选定前一个或下一个工具栏，Ctrl+Tab或Ctrl+Shift+Tab选定工具栏中的下一个或前一个按钮或菜单，Tab或Shift+Tab(当某个工具栏被激活时)打开选定的菜单，

12、Enter运行选按钮的操作，Enter在选定的文本框中输入文本，Enter在对话框中使用的快捷键取消当前任务,Esc单击相应命令，Alt+下划线字母单击选定的按钮,Enter在选项中前移，Tab在选项后移,Shift+Tab在选项卡中前移,Ctrl+Tab在选项卡中后移,Ctrl+Shift+Tab刷新“另存为”或“打开”对话框,F5插入、删除和复制选定区域的快捷键复制选定区域，Ctrl+C粘贴选定区域,Ctrl+V剪切选定区域,Ctrl+X清除选定区域的内容，Delete插入空白单元格,Ctrl+Shift+加号删除选定区域,Ctrl+-撤消最后一次操作,Ctrl+Z使用“office助手”

13、需要用到的快捷键关闭“office助手”提供的消息,Esc通过“office助手”获取帮助信息,F1显示下一项提示,Alt+N显示前一项提示,Alt+B在向导中显示或隐藏“office助手”,空格键对窗口进行操作的快捷键切换到下一个程序,Alt+Tab切换到前一个程序,Alt+Shift+Tab显示windwos“开始”菜单,Ctrl+Esc关闭活动工作薄窗口,Ctrl+W恢复活动工作薄窗口,Ctrl+F5切换到下一个工作薄窗口，Ctrl+F6切换到前一个工作薄窗口,Ctrl+Shift+F6执行“移动”命令(菜单栏中的工作薄图标菜单),Ctrl+F7运行“大小”命令(菜单栏中的工作薄图标菜单

14、),Ctrl+F8将工作薄窗口最小化为图标,Ctrl+F9最大化或恢复工作薄窗口,Ctrl+F10在“打开”或“另存为”对话框中更新可见的文件,F5使用对话框进行操作的快捷键切换到对话框中的下一个选项卡,Ctrl+Tab或Ctrl+PageDown切换到对话框中的前一个选项卡,Ctrl+Shift+Tab或Ctrl+PageUp移动到下一个选项或选项组,Tab移动到前一个选项或选项组,Shift+Tab在活动下拉列表框的选项间移动，或在选项组选项间移动,方向键招待活动按钮的操作，或选定或清除当前复选框,空格键取消命令或关闭对话框,Esc在文本框中进行操作的快捷键移动到内容的开始,Home移动到

15、内容的最后,End向左或向右移动一个字符,左右方向键向左或向右移动一个字,Ctrl+左右方向键选定从插入点到开始的输入内容，Shift+Home选定从插入点到最后的输入内容，Shift+End选定或取消左面的一个字符,Shift+左方向键选定或取消右面的一个字符，Shift+右方向键选定或取消左面的一个字,Ctrl+Shift+左方向键选定或取消右面的一个字,Ctrl+Shift+右方向键在工作表和工作薄中选定单元格、列、行或对象的快捷键选定当前单元格周围的区域,Ctrl+Shift+*(星号)将选定区域扩展一个单元格宽度,Shift+方向键将选定区域扩展到与活动单元格同一行或同一列的最后一个

16、非空白单元格,Ctrl+Shift+方向键将选定区域扩展到行首,Shift+Home将选定区域扩展到工作表的开始,Ctrl+Shift+Home将选定区域扩展到工作表的最后一个包含数据的单元格,Ctrl+Shift+End 选定整列，Ctrl+空格键选定整行,Shift+空格键选定整个工作表,Ctrl+A若已选定多个单元格，则只选定其中的活动单元格,Shift+Backspace将选定区域向下扩展一屏,Shift+PageDown将选定区域向上扩展一屏,Shift+PageUp在选定一个对象时，选定工作表上的所有对象,Ctrl+Shift+空格键在隐藏对象、显示对象与对象占位符之间切换，Ctr

17、l+6显示或隐藏“常用”工具栏,Ctrl+7分级显示数据的快捷键取消行或列分组,Alt+Shift+左方向键对行或列分组,Alt+Shift+右方向键显示或隐藏分级显示符号,Ctrl+8隐藏选定行,Ctrl+9取消隐藏选定行,Ctrl+Shift+(隐藏选定列,Ctrl+0取消隐藏选定列,Ctrl+Shift+)编辑单元格的快捷键完成单元格输入,Enter取消单元格输入，Esc重复单元格一次操作,F4或Ctrl+Y在单元格中折行,Alt+Enter删除插入点左边的字符或删除选定区域,Backspace删除插入点右边的字符或删除选定区域,Delete向上下左右移动一个字符,方向键移到行首,Hom

18、e移到行尾,End编辑单元格批注,Shift+F2由行或列标志创建名称,Ctrl+Shift+F3向下填充,Ctrl+D向右填充,Ctrl+R用当前输入项填充选定的单元格区域,Ctrl+Enter完成单元格输入并在选定区域中下移,Enter完成单元格输入并在选定区域中上移,Shift+Enter完成单元格输入并在选定区域中右移,Tab完成单元格输入并在选定区域中左移,Shift+Tab在单元格或编辑栏中使用的快捷键键入公式,=(等号)取消单元格或编辑栏中的输入项,Esc编辑当前单元格,F2编辑活动单元格并清除其内容，或在编辑时删除前一个字符，Backspace将名称粘贴到公式中,F3定义名称,

19、Ctrl+F3计算所有打开工作薄中的所有工作表,F9计算活动工作表,Shift+F9输入“自动求和”公式,Alt+=(等号)输入日期,Ctrl+;输入时间,Ctrl+Shift+:插入超级链接,Ctrl+K完成单元格输入,Enter将当前单元格上方单元格中的数值复制到当前单元格或编辑栏,Ctrl+Shift+(双引号)将当前单元格上方单元格中的公式复制到当前单元格或编辑栏，Ctrl+(单引号)在显示单元格值与单元格公式间转换,Ctrl+(撇号)输入数组公式,Ctrl+Shift+Enter键入有效函数名后，显示公式选项板,Ctrl+A键入有效函数名后，为该函数插入变量名和括号,Ctrl+Shi

20、ft+A显示“记忆式键入”列表,Ctrl+下方向键快捷键与数据格式设置显示“样式”命令,Alt+(单引号)显示“单元格”命令,Ctrl+1应用常规数字格式,Ctrl+Shift+应用带两个小数位的“贷币”格式,Ctrl+Shift+$应用不带小数位的“百分比”格式,Ctrl+shift+%应用带两个小数位的“科学记数”数字格式,Ctrl+shift+应用年月日“日期”格式,Ctrl+shift+#应用小时和分钟“时间”格式，并表明上午或下午,Ctrl+shift+应用外边框,Ctrl+shift+&取消选定单元格区域中的所有边框,Ctrl+shift+_应用或取消字体加粗格式,Ctrl+B应用

21、或取消字体倾斜格式,Ctrl+I应用或取消字体下划线格式,Ctrl+U应用或取消删除线格式,Ctrl+5隐藏行,Ctrl+9取消隐藏行,Ctrl+Shift+(隐藏列,Ctrl+0取消隐藏列,Ctrl+Shift+)使用Excel2021工作表的VBA示例适用范围：Microsoft Office Excel2021摘要：寻找能够为Excel工作表增加额外功能的宏。只需稍加练习，您就可以扩展这些程序，使其适合您自己的应用程序。本页内容引言导出带有逗号和引号分隔符的文本文件计算包含公式、文本或数字的单元格数量使用Saved属性确定工作簿是否已发生更合并数据列数组中的总行数和总列数结论引言本文介绍

22、几个Microsoft Visual Basic for Applications(VBA)宏，您可以使用这些宏为Microsoft Office Excel2021工作簿和工作表增加额外的功能。这些宏将为您的应用程序提供新的功能或增强现有的功能。阅读示例的同时，您应该寻找扩展这些宏的方法，以适合您自己的情况。导出带有逗号和引号分隔符的文本文件Excel没有自动将数据导出为文本文件的菜单命令，因此导出的文本文件同时带有逗号和引号分隔符。例如，没有命令能自动创建包含以下内容的文本文件：Text1,Text2,Text3但是，您可以使用VBA宏在Excel中创建该功能。这种文件格式是在诸如Micr

23、osoft Office Access2021和Microsoft Office Word2021之类的应用程序中导入文本数据时常见的格式。您可以在如下所示的VBA宏中使用Print语句，导出同时带有逗号和引号分隔符的文本文件。要使该程序正常运行，必须在运行该程序之前选择包含数据的单元格。使用以下示例之前，请执行以下步骤：1.打开一个新工作簿。2.在“工具”菜单中，指向“宏”，然后单击“Visual Basic编辑器”（或者简单地按下ALT+F11组合键）。在“Visual Basic编辑器”中，单击“插入”菜单，然后单击“模块”。3.将以下示例代码键入或粘贴到模块中：Sub QuoteCom

24、maExport()Dim DestFile As StringDim FileNum As IntegerDim ColumnCount As IntegerDim 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尝试打开目标文

25、件以供输出。Open DestFile For Output As#FileNum如果出现错误，则报告错误并结束程序。If ErrMsgBoxCannot open filename&DestFileEndEnd If打开错误检查功能。On Error GoTo0循环选择的每一行。For RowCount=1To Selection.Rows.Count循环选择的每一列。For ColumnCount=1To Selection.Columns.Count将当前单元格中的文本写入到文件中，文本用引号括起来。Print#FileNum,&Selection.Cells(RowCount,_Col

26、umnCount).Text&;检查单元格是否位于最后一列。If ColumnCount=Selection.Columns.Count Then如果是，则写入一个空行。Print#FileNum,Else否则，则写入一个逗号。Print#FileNum,;End If开始ColumnCount循环的下一个迭代。Next ColumnCount开始RowCount循环的下一个迭代。Next RowCount关闭目标文件。Close#FileNumEnd Sub4.运行该宏之前，请选择要导出的数据，然后在“工具”菜单中指向“宏”并单击“宏”。5.选择QuoteCommaExport宏，然后单击“

27、运行”。计算包含公式、文本或数字的单元格数量在Excel中，您可以对包含公式、文本或数字的工作表中的单元格数量进行计算，方法是使用“定位条件”对话框选择单元格，然后运行计算所选单元格数量的宏。例如，当您需要设置表格以确定合计列的每一行是否都包含公式而不用手动检查每一行时，此方法可能很有用。选择单元格要选择公式、文本或数字，请执行以下步骤：1.在“编辑”菜单中，单击“定位”，然后单击“定位条件”。2.在“定位条件”对话框中，要选择所有公式，请单击“公式”并确保选中“数字”、“文本”、“逻辑值”以及“错误”复选框。要选择文本，请选择“常量”选项，然后仅单击并选中“文本”复选框。要选择数字，请选择“

28、常量”选项，然后仅单击并选中“数字”复选框。计算所选单元格数量的VBA代码要计算所选的单元格数量并在消息框中显示计算结果，请使用以下程序：Sub Count_Selection()Dim cell As ObjectDim count As Integercount=0For Each cell In Selectioncount=count+1MsgBox count&item(s)selectedEnd Sub您可以将此程序指定给一个命令按钮，这样，当您单击该按钮时，将显示所选项的数量。使用Saved属性确定工作簿是否已发生更改可以通过检查工作簿的Saved属性来确定工作簿是否已发生更改。

29、根据工作簿是否发生了更改，Saved属性将返回True或False值。注意：用户除了可以通过“事件”设置Saved属性外，还可以通过代码将其设置为True或False。本节包含的示例宏说明了如何在这两种情况下使用Saved 属性。工作表中的各种情况（例如存在可变函数）都可能会影响Saved属性。可变函数是指工作表中每次发生更改时都会重新计算的函数，而不管发生的更改是否影响到这些函数。某些常见的可变函数包括RAND()、NOW()、TODAY()和OFFSET()。如果活动工作簿包含未保存的更改，第一个宏将显示如下消息：Sub TestForUnsavedChanges()If ActiveWo

30、rkbook.Saved=False ThenMsgBoxThis workbook contains unsaved changes.End IfEnd Sub下一个宏将关闭包含示例代码的工作簿并放弃对工作簿所做的所有更改：Sub CloseWithoutChanges()ThisWorkbook.Saved=TrueThisWorkbook.CloseEnd Sub下面的示例宏也将关闭工作簿并放弃更改：Sub CloseWithoutChanges()ThisWorkbook.Close SaveChanges:=FalseEnd Sub合并数据列在Excel中，可以使用宏合并两个相邻列中

31、的数据并在包含数据的右侧列中显示结果，完全不需要手动设置公式。本节包含的示例宏就可以实现此功能。Sub ConcatColumns()Do While ActiveCellActiveCell.Offset(0,1).FormulaR1C1=_ActiveCell.Offset(0,-1)&ActiveCell.Offset(0,0)ActiveCell.Offset(1,0).SelectLoop要使用宏，请执行以下步骤：1.打开包含数据的工作簿。2.按ALT+F11组合键激活“Visual Basic编辑器”。3.在“插入”菜单中，单击“模块”以插入一个模块。在模块的代码窗口中键入上面的宏

32、。4.单击“文件”菜单中的“关闭并返回到Microsoft Excel”。5.选择包含要合并的数据的工作表。6.单击要合并的右侧数据列的第一个单元格。例如，如果单元格A1:A100和B1:B100包含数据，则单击单元格B1。7.在“工具”菜单中，指向“宏”并单击“宏”。选择ConcatColumns宏并单击“运行”。注意：可以用语句ActiveCell.Offset(0,1).Formula替换语句ActiveCell.Offset(0,1).FormulaR1C1。如果仅使用文本和数字（不包含公式），那么两个语句的效果相同。第一个语句末尾使用的R1C1表示第一行的第一列，这是Excel帮助主

33、题中大多数示例使用的形式。数组中的总行数和总列数在Excel中，可以使用数组来计算和操作工作表中的数据，还可以使用宏将某个范围内的单元格中的值存储到一个数组中。本节中的示例宏代码将在一个矩形单元格区域中添加一行和一列，以包含该区域中每一行和每一列中的单元格总数。具体的步骤是，代码从活动工作表上活动单元格周围的当前单元格区域中读取数据。宏将这些数据存储在一个数组中，计算每一行和每一列中的单元格总数，然后将输出显示在工作表中。数组的大小由当前区域中的单元格数量决定。注意：此宏不会在工作表中添加任何公式，因此如果该范围内的单元格总数有变化，则必须重新运行宏。使用以下示例之前，请执行以下步骤：1.打开

34、一个新工作簿。2.在“工具”菜单中，指向“宏”，然后单击“Visual Basic编辑器”（或者简单地按下ALT+F11组合键）。在“Visual Basic编辑器”中的“插入”菜单中，单击“模块”。将以下示例代码键入或粘贴到模块中：Sub TotalRowsAndColumns()此宏假定您已从要计算单元格总数的矩形区域内选择了一个单元格或一组单元格。行和列的单元格总数将出现在当前区域下面的行和右侧的列中。Dim r As IntegerDim c As IntegerDim i As IntegerDim j As IntegerDim myArray As Variant将myArray

35、声明为变量将使数组可以接收一组单元格。此时，数组将自动转换为以下标myArray(1,1)开始的数组。指当前所选单元格周围的区域。With Selection.CurrentRegionr=.Rows.Countc=.Columns.Count重新计算总行数和总列数并将结果存储到数组中。myArray=.Resize(r+1,c+1)在下面的嵌套循环中，变量i跟踪行号，变量j跟踪列号。j在可用列中每循环一次，i就递增一，而j则重新从一到c循环一次。For i=1To rFor j=1To c行i的总数myArray(i,c+1)=myArray(i,c+1)+myArray(i,j)列j的总数

36、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 jNext i将数组返回工作表，数组中现在包含一个新行和一个新列，用于存储总数。.Resize(r+1,c+1)=myArrayEnd WithEnd Sub3.突出显示要求和区域中的一个单元格，在“工具”菜单中，指向“宏”并单击“宏”。4.选择TotalRowsAndColumns宏，然后单击“运行”。注意：要执行与本示例中的运算类似的运算，可以修改宏代码。例如，要对选定范围内的单元格中包含的值进行减法、

37、乘法或除法运算，可以更改数学运算符。结论本文介绍了各种VBA宏，使用这些宏可以减少使用工作表所需的工作量。此外，您还可以修改本文介绍的大多数宏以扩展它们的功能。始终记住可以在工具或提示库中添加更多宏，您将会受益匪浅。VBA系列讲座(1):VBA是什么?1.1VBA是什么直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言-Visual Basic For Applicatio

38、n(VBA),可以认为VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集.实际上VBA是寄生于VB应用程序的版本.VBA和VB的区别包括如下几个方面:1.VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL 等)自动化2.VB具有自己的开发环境,而VBA必须寄生于已有的应用程序.3.要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的父应用程序,例如EXCEL.尽管存在这些不同,VBA和VB在结构上仍然十分相似.事实上,如果你已经了解了VB,会发现学习VBA非常快.相应的,学完VBA

39、会给学习VB打下坚实的基础.而且,当学会在EXCEL中用VBA创建解决方案后,即已具备在WORD ACCESS OUTLOOK FOXPRO PROWERPOINT中用VBA创建解决方案的大部分知识.*VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化.*VBA可以称作EXCEL的“遥控器”.VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案.此外,如果你愿意,还可以将EXCEL用做开发平台实现应用程序.1.2EXCEL环境中基于应用程序自动化的优点也许你想知道VBA可以干什么?使用VBA可以实现的功能包括:1.使重复的任务自动化.

40、2.自定义EXCEL工具栏,菜单和界面.3.简化模板的使用.4.自定义EXCEL,使其成为开发平台.5.创建报表.6.对数据进行复杂的操作和分析.用EXCEL作为开发平台有如下原因:1.EXCEL本身功能强大,包括打印,文件处理,格式化和文本编辑.2.EXCEL内置大量函数.3.EXCEL界面熟悉.4.可连接到多种数据库.用其他语言开发应用程序,一半的工作是编写一些基本功能的模块,包括文件的打开和保存,打印,复制等.而用EXCEL作为开发平台,则由于EXCEL已经具备这些基本功能,你要做的只是使用它.1.3录制简单的宏在介绍学习VBA之前，应该花几分钟录制一个宏。新术语：“宏”，指一系列EXC

41、EL能够执行的VBA语句。以下将要录制的宏非常简单，只是改变单元格颜色。请完成如下步骤：1)打开新工作簿，确认其他工作簿已经关闭。2)选择A1单元格。调出“常用”工具栏。3)选择“工具”“宏”“录制新宏”。4)输入“改变颜色”作为宏名替换默认宏名，单击确定,注意，此时状态栏中显示“录制”，特别是“停止录制”工具栏也显示出来。替换默认宏名主要是便于分别这些宏。宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。5)选择“格式”的“单元格”，选择“图案”选项中的红色,单击“确定”。6)单击“停止录制”工具栏按钮，结束宏录

42、制过程。如果“停止录制”工具栏开始并未出现，请选择“工具”“宏”“停止录制”。录制完一个宏后就可以执行它了。1.4执行宏当执行一个宏时，EXCEL按照宏语句执行的情况就像VBA代码在对EXCEL进行“遥控”。但VBA的“遥控”不仅能使操作变得简便，还能使你获得一些使用EXCEL标准命令所无法实现的功能。而且，一旦熟悉了EXCEL的“遥控”，你都会奇怪自己在没有这些“遥控”的情况下，到底是怎么熬过来的。要执行刚才录制的宏，可以按以下步骤进行：1）选择任何一个单元格，比如A3。2）选择“工具”“宏”“宏”，显示“宏”对话框。3）选择“改变颜色”，选择“执行”，则A3单元格的颜色变为红色。试着选择其它单元格和几个单元格组成的区域，然后再执行宏，以便加深印象。1.5查看录制的代码到底是什么在控制EXCEL的运行呢?你可能有些疑惑.好,让我们看看VBA的语句吧.1）选择“工具”“宏”“宏”，显示“宏”对话框。2）单击列表中的“改变颜色”,选择“编辑”按钮。此时，会打开VBA的编辑器窗口