EXCEL编程基本概念22.pdf
-一)、宏的自学 首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用录制宏的方法来学习宏：点击 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 更方便，因为此时可用变量指定行和列。可将 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 中最简单的单元格赋值及引用方法。如下例将工作表Sheet1A1 单元格的值赋给 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-6C-4:R-2C-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.xlsSheet3!R1C:RC4)同样需注意的是：当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号、及单引号将工作簿名括起来。如：Cells(1,2).Formula=MIN(1995-2000 总结.xls1995-1996年!$A$1:$A$6)5、避免循环引用 在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，防止循环引用错误。6、添加批注 可按如下方法格给单元格添加批注：Dim 批注文本 As String 批注文本=批注示例 准备批注文本 ActiveCell.AddComment 添加批注 ActiveCell.Comment.Text Text:=临时 写入批注文本 ActiveCell.Comment.Visible=False 隐藏批注 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 五)、工作表 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 警告提示的方法以免其自动弹出提示框。
