1、EXCEL宏编程实例Excel 宏编程举例说明学习宏编程，需要VB基础，如果一点VB基础和面向对象的概念，建议先去补补VB，不然即使自认为学好了也只能拿着高射炮打蚊子！一)、宏学习首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用录制宏的方法来学习宏：点击Excel工具下拉菜单中宏下quot;录制新宏，此后可象平时一样进行有关操作，待完成后停止录制。然后再点击工具下拉菜单中宏下宏的编辑选项即可打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的帮助下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。二)、基本概念为了学习Ex
2、cel中的宏，我们需要先了解以下一些基本概念。1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbookWorkbooks集合包含Excel中所有当前打开的Excel工作簿，亦即所有打开的Excel文件；Workbook对应Workbooks中的成员，即其中的Excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；ThisWorkbook代表其中有Visual Basic代码正在运行的工作簿。在具体使用中可用Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如
3、Workbooks(1)、Workbooks(年度报表.xls)。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2。2、工作表：Worksheets、Worksheet、ActiveSheetWorksheets集合包含工作簿中所有的工作表，即一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的活动状态工作表，即当前显示的一个工作表。可用Worksheets(index)来引用Worksheet对象，其中index为工作表名称或索引号；如Worksheets(1)、Worksheets(第
4、一季度数据)。工作表索引号表明该工作表在工作表标签中的位置：第一个（最左边的）工作表的索引号为1，最后一个（最右边的）为。需要注意的是：在使用过程中Excel会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。 3、图表：Chart 、Charts、ChartObject、ChartObjects、ActiveChartChart代表工作簿中的图表。该图表既可为嵌入式图表（包含在ChartObject中），也可为一个分开的（单独的）图表工作表。Charts代表指定工作簿或活动工作簿中所有图表工
5、作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index) 可引用单个Chart图表，其中index是该图表工作表的索引号或名称；如Charts(1)、Charts(销售图表)。图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts(1)是工作簿中第一个（最左边的）图表工作表；Charts为最后一个（最右边的）图表工作表。 ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。利用ChartObject可以控制工作表上嵌入式图表的外观和尺寸。ChartObjects代表指定的图表工作表、对话框编辑表或工作表上所有嵌
6、入式图表的集合。可由ChartObjects(index)引用单个ChartObject，其中index为嵌入式图表的编号或名称。如Worksheets(Sheet1).ChartObjects(1)、Worksheets(sheet1).ChartObjects(chart1)分别对应Sheet1工作表中的第一个嵌入式图表、以及名为Chart1的嵌入式图表。ActiveChart可以引用活动状态下的图表，不论该图表是图表工作表，或嵌入式图表。而对于图表工作表为活动工作表时，还可以通过ActiveSheet属性引用之。4、单元格：Cells、ActiveCell、Range、AreasCell
7、s(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
8、更方便，因为此时可用变量指定行和列。可将Range与Cells结合起来使用，如Range(Cells(1,1),Cells(10,10)代表单元格区域A1:J10；而(row,column)返回单元格区域中的一部分，其中expression是返回Range的表达式，row和column为相对于该区域的左上角偏移量。如由Range(C5:C10).Cells(1,1)引用单元格C5。Areas为选定区域内的连续单元格块的集合，其成员是Range对象。而其中的每个Range对象代表选定区域内与其它部分相分离的一个连续单元格块。某些操作不能在选定区域内的多个单元格块上同时执行；必须在选定区域内的单元
9、格块数上循环，对每个单独的单元格块分别执行该操作。此时，可用Areas(index)从集合中返回单个Range对象，其中index为单元格块编号；如Areas(1)。5、 行与列：Rows、Columns、Row、ColumnRows、Columns分别代表活动工作表、单元格区域范围Range、指定工作表中的所有行数、列数。对于一个多选单元格区域范围Range的Rows、Columns，只返回该范围中第一个区域的行数、列数。例如，如果Range对象有两个区域（areas）A1:B2和C3:D4，返回2而不是4。可通过Rows(行号)、Columns(列号)来引用相应的行与列；如Rows(3)、
10、Columns(4)分别对应第三行、D列。利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号，所得值均以十进制数表示。三)、处理单元格1、直接赋值与引用将变量、常量值直接赋给单元格、或将单元格的值直接赋给变量、常量，这是在Excel中最简单的单元格赋值及引用方法。如下例将工作表Sheet1A1单元格的值赋给Integer变量I，并将I+1的值赋给当前工作表中的B1单元格：Dim I As IntegerI=Worksheets(Sheet1).Cells(1,1) Cells(1,2).Select 选定B1单元格，使其成为当前单元格ActiveCell=I+1 以I+1为
11、当前单元格赋值2、用公式赋值在宏的使用中，可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左侧第4列、向上第6行至向上第2行的单元格数值之和赋给活动单元格（以本行、本列为第0行、0列）：=AVERAGE(R-6C-4:R-2C-4)3、引用其它工作表中的单元格当赋值公式中需要引用其它工作表中的单元格时，在被引用的单元格前加上工作表名！即可。如以下即在赋值中引用了Sheet1工作表中的A1至A4单元格：Range(E10).Formula=SUM(Sheet1!R1C1:R4C1)但需注意的是：当被引用的工作表名中含有某些可能引起公式歧义的字符时，需要用单引号将工作表名括起来。如：Wo
12、rksheets(Sheet1).=Max(1-1剖面!D3:D5)4、引用其它工作簿中的单元格在被引用单元格所在工作表名前加上工作簿名，即可引用其它工作簿中的单元格。如：=MAX(Sheet3!R1C:RC4)同样需注意的是：当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号、及单引号将工作簿名括起来。如：Cells(1,2).Formula=MIN(1995-2000总结.xls1995-1996年! $A$1:$A$6)5、避免循环引用在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，防止循环引用错误。6、添加批注可按如下方法格给单元格添加批注：Dim 批注文本 A
13、s String批注文本=批注示例 准备批注文本 添加批注 Text:=临时 写入批注文本 隐藏批注7、添加、删除、复制、剪切、粘贴单元格Range(D10).Insert Shift:=xlToRight 在D10单元格处添加一新单元格，原D10格右移 Range(C2).Insert Shift:=xlDown 在C2单元格处添加一新单元格，原C2格下移Rows(2). 在第2行前添加一空白行，原第2行下移Columns(3). 在C列前添加一空白列，原C列右移Columns(A:D).Delete Shift:=xlToLeft 删除A列至D列，其右侧列左移Rows(3:5).Delet
14、e Shift:=xlUp 删除第3行至第5行，其下方行上移Range(B2). 删除第2行Range(C4). 删除C列Range(B10:C13).Copy 复制B10至C13单元格区域Cells(1,2).Cut 剪切B1单元格Range(D10).Select 自D10单元格起粘贴剪贴板中的内容四)、图表1、工作表图表以下为一添加工作表图表的实例。 after:=Worksheets(Sheet1) 在Sheet1工作表之后添加新图表工作表=xlXYScatterSmooth 图表类型为XY平滑线散点图 Source:=Sheets(结点坐标).Range(A1:B69), PlotB
15、y:= _xlColumns 图表数据来源于结点坐标工作表的A1至B69单元格，且按列绘图。 Where:=xlLocationAsNewSheetWith ActiveChart.HasTitle = True. = 节点坐标 图表标题节点坐标.Axes(xlCategory, xlPrimary).HasTitle = True.Axes(xlCategory, xlPrimary). = x x轴标题x.Axes(xlValue, xlPrimary).HasTitle = True.Axes(xlValue, xlPrimary). = y y轴标题yEnd WithWith (xlC
16、ategory).HasMajorGridlines = True 显示x轴主网格线，默认情况下为显示.HasMinorGridlines = True 显示x轴次网格线，默认情况下为不显示End WithWith (xlValue).HasMajorGridlines = True 标出x轴主网格值，默认情况下为标注.HasMinorGridlines = False 取消x轴次网格值标注，默认情况下为不标注End With = xlRight 图例显示在图表右侧2、嵌入式图表嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同，而对图表的设置基本类似。详见下例。Set嵌入表= 在当前工作
17、表(0,0)坐标处添加宽200，高300的嵌入式图表嵌入表. = xlColumnClustered 图表类型为簇状柱形图嵌入表. 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五)、工作表1、添加 before:=Sheets(1) 在第1工作表
18、前添加新工作表 after:=Sheets 在最后工作表后添加新工作表2、移动 before:=Sheets(2) 将当前工作表移动至第2工作表之前3、命名=工作表名 将当前工作表命名为工作表名4、删除可以用以下语句删除当前工作表。但在删除前Excel会自动弹出提示框，需在用户确认后方可执行删除。为避免这一干扰，可以先用以下语句关闭Excel的警告提示。 = False在删除完成后，再重新打开Excel的警告提示 = True六)、工作簿Excel的宏对工作簿的操作主要为保存。Dim 存盘文件名 As String 保存当前工作簿存盘文件名=工作表名 Filename:= 存盘文件名 当前工作
19、簿另存为工作表名.xls在另存时，若指定的存盘文件名不包含路径，则保存在该工作簿的打开目录下。而若此存盘文件已存在，也可用关闭Excel警告提示的方法以免其自动弹出提示框。 64、用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！使用Dim语句Dim a as integer 声明A为整形变量Dim a 声明A为变体变量Dim a as string 声明A为字符串变量Dim a,b,c as currency 声明A,b,c为货币变量声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前
20、不支持）、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,
21、 MyDouble As Double = 在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。Sub My_SelectEnd sub删除当前单元格中数据的前后空格。sub my_trimTrimend sub使单元格位移sub my_offset(0, 1).Select当前单元格向左移动一格(0, -1).Select当前单元格向右移动一格(1 , 0).Select当前单元格向下移动一格(-1 , 0).Select当前单元格向上移动一格end sub如果上述程序产生错误那是
22、因为单元格不能移动，为了解除上述错误，我们可以往sub my_offset 之下加一段代码 on error resume next注意以下代码都不再添加 sub “代码名称” 和end sub请自己添加!给当前单元格赋值： = 你好！给特定单元格加入一段代码:例如：在单元格中插入Range(a1).value=hello又如：你现在的工作簿在sheet1上，你要往sheet2的单元格中插入1.sheets(sheet2).selectrange(a1).value=hello或2.Sheets(sheet1).Range(a1).Value = hello说明：被打开，然后在将“HELLO放
23、入到A1单元格中。不被打开，将“HELLO放入到A1单元格中。隐藏工作表隐藏SHEET1这张工作表sheets(sheet1).Visible=False显示SHEET1这张工作表sheets(sheet1).Visible=True有时候我们想把所有的EXCEL中的SHEET都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。Dim my As WorksheetFor Each my In WorksheetsNext my得到当前单元格的地址msgbox 得到当前日期及时间msgbox date & chr(13) & time保护工作簿 取消保护工作
24、簿给当前工作簿改名为 liu = liu打开一个应用程序AppActivate (Shell(C:WINDOWS)增加一个工作簿删除当前工作簿打开一个文件 FileName:=C:My Documents关闭当前工作簿当前单元格定为：左对齐 = xlLeft当前单元格定为：中心对齐 = xlCenter当前单元格定为：右对齐 = xlRight当前单元格为百分号风格 = Percent当前单元格字体为粗体 = True当前单元格字体为斜体 = True当前单元格字体为宋体20号字With .Name = 宋体.Size = 20End WithWith 语句With 对象 .描述End Wit
25、h让你的机器发出响声BEEP清除单元格中所有文字、批注、格式、所有的东西！测试选择状态的单元格的行数MsgBox 测试选择状态的单元格的列数MsgBox 测试选择状态的单元格的地址让所有的错误不再发生ON ERROR RESUME NEXT产生错误时让错误转到另一个地方on error goto lcodel:code删除一个文件kill c:定制自己的状态栏 = 现在时刻: & Time恢复自己的状态栏 = false在运行期执行一个宏 macro:=text滚动窗口到a1的位置 = 1 = 1定制系统日期Dim MyDate, MyDayMyDate = #12/12/69#MyDay =
26、 Day(MyDate)今天的年限Dim MyDate, MyYearMyDate = Date MyYear = Year(MyDate)MsgBox MyYear 产生一个inputboxInputBox (Enter number of months to add)得到一个文件名：Dim kk As Stringkk = (EXCEL (*.XLS), *.XLS, Title:=提示：请打开一个EXCEL文件：)msgbox kk打开zoom显示比例对话框(xlDialogZoom).Show激活字体对话框(xlDialogActiveCellFont).Show打开另存对话框Dim
27、kk As Stringkk = (excel (*.xls), *.xls) kk此段代码寻找字符串中特定字符的位置，需要建立一个窗体，并在窗体中，放入TEXTBOX1,TEXTBOX2和TEXTBOX3(3个文本框）及COMMANDBUTTON1(按钮)Private Sub CommandButton1_Click()a = b = aa = Len(a)i = 1Dim YY As StringIf b = Then Exit SubDoIf InStr(i, a, b, vbTextCompare) = 0 Then Exit Dokk = InStr(i, a, b, vbText
28、Compare)YY = YY & CStr(kk) & /i = kk + 1Loop While aa = i = YYEnd SubActiveX控件在Excel97中的运用 Excel97在工作表或图表上可使用ActiveX控件，根据我使用的体会，在工作上处理控件时，必须注意和了解如下事项： (一)用95工作簿文件格式保存Excel97工作簿时，将选择ActiveX控件信息。当用户通过双击鼠标来编辑内嵌在其它应用程序文档中的Excel97工作簿时，该工作簿上的控件将不会正常工作。如果用户是通过用右键单击工作簿，然后选中快捷菜单上的“打开”命令来编辑工作簿的话，工作簿上的控件就能正常工作了。 (二)当ActiveX控件处于激活状态时，将禁用某些MicrosoftExcelVisualBasic方法和属性。例如，当某一控件激活时，就不能使用Sort方法，故下述按钮单击事件处理过程中的代码将失败(因为用户单击按钮后，该按钮就处于激活状态)。 PrivateSubCommandButton1 Click Range(a1:a10) SortKey1:=Range(a1) EndSub 解决办法是通过选激活工作表上其它元素的方法来绕过这种问题。例如，可用下列代码对单元格区域排序： PrivateSubCommandButton1 Click Range(a1
