ExcelVBA.docx

1、ExcelVBAVBA帮助（摘自Office2000 VBA帮助）一、VBA入门知识1、激活工作簿2、创建新工作簿3、打开工作簿4、用编号引用工作表5、用名称引用工作表6、将文档保存为 Web 页7、用 A1 样式的记号引用单元格和单元格区域8、用编号引用单元格9、引用行或列10、用快捷记号引用单元格11、引用命名单元格区域12、按相对于其他单元格的方式来引用单元格13、用 Range 对象引用单元格14、引用工作表上的所有单元格15、引用若干单元格区域16、在单元格区域中循环17、选定和激活单元格18、处理三维区域19、处理活动单元格20、在工作表上使用 ActiveX 控件21、在文档中使

2、用 ActiveX 控件22、创建自定义对话框23、在窗体上使用 Microsoft Office Web 组件24、内置对话框参数表25、使用 Microsoft Excel 对象的事件26、在 Visual Basic 中使用 Microsoft Excel 工作表函数27、处理形状（图形对象）28、在某一 Microsoft Office 应用程序中控制其他 Microsoft Office 应用程序29、OLE 程序标识符30、关于数字签名31、启动 Microsoft Excel 时不运行“自动执行宏”32、焦点 二、了解对象、属性、方法和事件1、了解对象、属性、方法和事件 2、Ap

3、plication 对象3、Workbook 对象 4、Workbooks 属性5、Range 对象6、Range 属性7、Cells 属性8、Caller 属性9、Offset 属性 10、Rows 属性11、Activate 事件12、Activate、 Deactivate 事件13、Activate 方法14、WorkbookActivate 事件15、WindowActivate 事件16、On Error 语句17、在工作表上使用 ActiveX 控件 18、Add 方法（Scenarios 集合）19、Scenarios 集合对象20、Add 方法 (Validation 对象)

4、21、Validation 对象22、Validation 属性23、Open 事件24、Open 方法25、 Click 事件26、Close 方法27、Change 事件 28、Value 属性29、DblClick 事件 30、SheetBeforeRightClick 事件31、Select 方法 32、Select 事件33、Goto 方法 34、Worksheet 对象35、SheetChange 事件 36、SheetActivate 事件37、OpenLinks 方法38、Enabled 属性 三、VBA语法（一）Visual Basic 的命名规则1、写 Visual Bas

5、ic 语句2、写声明语句3、Dim 语句的语法4、Activate 方法的语法5、Set 语句6、MsgBox 函数的语法7、选项语句的语法8、AddressOf 运算符9、了解变体10、写赋值语句11、写可执行的语句12、Public 语句13、Private 语句14、使用数组15、使用常数16、AppActivate 语句17、Beep 语句19、Date 语句20、Error 语句 21、Exit 语句22、GoSub.Return 语句 23、GoTo 语句 24、Input # 语句 25、Let 语句 26、Load 语句 27、Name 语句 28、On.GoSub、On.Go

6、To 语句 29、Open 语句 30、Rem 语句 31、Stop 语句 32、Time 语句 33、While.Wend 语句（二）逻辑语句1、If.Then.Else 语句2、使用 Select Case 语句3、使用 For.Next 语句4、For Each.Next 语句5、 Do.Loop 语句6、 With 语句(三)过程1、写 Sub 过程2、写 Function 过程3、写 Property 过程四、 ActiveX 控件1、AfterUpdate 事件2、Click 事件3、Click 事件、命令按钮控件、Accelerator 和 Caption 属性示例4、DblCl

7、ick 事件5、Error 事件6、KeyDown 和 KeyUp 事件7、KeyPress 事件8、KeyPress 事件示例9、MouseDown 和 MouseUp 事件10、MouseMove 事件11、列表框控件12、SpinDown 和 SpinUp 事件13、SpinDown、SpinUp 事件和 Delay 属性示例14、组合框控件15、命令按钮控件16、标签控件17、列表框控件、DataObject 对象、MouseMove 事件和 StartDrag、SetText 方法示例18、多页控件19、选项按钮控件20、文本框控件21、切换按钮控件22、用户窗体窗口一、VBA入门知

8、识1、激活工作簿用 Activate 方法激活工作簿后，该工作簿将放在活动窗口中。下述过程激活已打开的工作簿“MyBook.xls”。Sub MakeActive()Workbooks(MyBook.xls).ActivateEnd Sub2、创建新工作簿如果要用 Visual Basic 创建新的工作簿，应使用 Add 方法。下述过程创建了新工作簿。Microsoft Excel 自动将该工作簿命名为“BookN”，其中 N 是下一个可用的数字。新工作簿将成为活动工作簿。Sub AddOne()Workbooks.AddEnd Sub创建新工作簿的较好的方法是将其赋给一个对象变量。下例中，由

9、 Add 方法返回的 Workbook 对象赋给了对象变量 newBook。然后，又设置了 newBook 的若干属性。使用对象变量可以很容易地控制新工作簿。Sub AddNew()Set newBook = Workbooks.AddWith newBook.Title = 1995 Sales.Subject = Sales.SaveAs filename:=95Sales.xlsEnd WithEnd Sub3、打开工作簿用 Open 方法打开一个工作簿时，该工作簿将成为 Workbooks 集合的成员。下述过程打开 C 盘上“MyFolder”文件夹内的工作簿“MyBook.xls”。

10、Sub OpenUp()Workbooks.Open(C:MyFolderMyBook.xls)End Sub4、用编号引用工作表编号是赋予工作表的连续的数字，这些数字的顺序，是根据同一类型的工作表的标签位置按由左而右的顺序确定的。下述过程使用 Worksheets 属性激活活动工作簿上的第一张工作表。Sub FirstOne()Worksheets(1).ActivateEnd Sub如果要处理所有类型的工作表（工作表、图表、模块表和对话框编辑表），可用 Sheets 属性。下述过程激活工作簿中的第四张工作表。Sub FourthOne()Sheets(4).ActivateEnd Sub注

11、意 移动、添加或删除工作表时，编号顺序将会改变。5、用名称引用工作表使用 Worksheets 属性和 Charts 属性时，可用名称标识工作表。下述语句激活活动工作簿内的不同工作表。Worksheets(Sheet1).ActivateCharts(Chart1).ActivateDialogSheets(Dialog1).Activate可用 Sheets 属性返回工作表、图表、模块表或对话框编辑表；Sheets 集合包含了所有这些表。下例激活活动工作簿内的图表“Chart1”。Sub ActivateChart()Sheets(Chart1).ActivateEnd Sub注意 嵌入到工

12、作表上的图表是 ChartObjects 集合的成员，而那些位于单独的表上的图表则属于 Charts 集合。6、将文档保存为 Web 页在 Microsoft Excel 2000 中，可以将工作簿、工作表、图表、区域、查询表、数据透视表报表、打印区域或自动筛选区域保存到 Web 页中。也可以直接在 Excel 中编辑 HTML 文件。将文档保存为 Web 页将文档保存为 Web 页是一个创建并保存 HTML 文件及其支持文件的过程。要完成此过程，可使用 SaveAs 方法，如下例所示，此示例将活动工作簿保存为文件“C:Reportsmyfile.htm”。ActiveWorkbook.Sav

13、eAs _Filename:=C:Reportsmyfile.htm, _FileFormat:=xlHTML自定义 Web 页通过设置 DefaultWebOptions 对象和 WebOptions 对象的属性，用户可以自定义 HTML 文档的外观、内容、浏览器支持、编辑支持、图形格式、屏幕分辨率、文件组织和编码。DefaultWebOptions 对象中包含应用程序级别的属性。而任何具有相同名称的工作簿级别的设置（包含在 WebOptions 对象中）会覆盖这些设置。设置完属性后，可以使用 Publish 方法将工作簿、工作表、图表、区域、查询表、数据透视表报表、打印区域或自动筛选区域保

14、存到 Web 页中。下例设置了一些应用程序级别的属性，然后又设置了活动工作簿的 AllowPNG 属性，而此设置将覆盖应用程序级别的默认设置。最后，本示例将该区域保存为“C:Reports1998_Q1.htm”。With Application.DefaultWebOptions.RelyonVML = True.AllowPNG = True.PixelsPerInch = 96End WithWith ActiveWorkbook.WebOptions.AllowPNG = FalseWith .PublishObjects(1).FileName = C:Reports1998_Q1.htm.PublishEnd WithEnd With也可以直接将文件保存到 Web 服务器上。下例将一个区域保存到 Web 服务器上，假定该 Web 页的 URL 地址为 With ActiveWorkbookWith .WebOptions.RelyonVML = True.PixelsPerInch = 96End WithWith .PublishObj