VBA基础知识.pdf

《VBA基础知识.pdf》由会员分享，可在线阅读，更多相关《VBA基础知识.pdf（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、.VBAVBA 基础知识基础知识1、VBA 有三种程序类型：宏程序、自定义函数程序、事件程序1 1）宏程序）宏程序Sub A()公用程序，可以被其它程序调用Range(a1)=100End SubPrivate Sub A()私有程序，不可以被其它程序调用Range(a1)=100End Sub调用实例调用实例 1 1）：Sub A()Range(a1)=100End SubSub B()Call ACall 为调用命令，也可以省略End Sub调用实例调用实例 2 2）：Sub 统计(N)If N=1 ThenRange(C2)=Application.WorksheetFunction.C

2、ountA(Range(a:a)ElseIf N=0 Then-.Range(D2)=Application.WorksheetFunction.Sum(Range(a:a)End SubSub 计数()统计 1End SubSub 求和()统计 0End Sub2 2）自定义函数程序）自定义函数程序Function 工作表数量()工作表数量=Sheets.Count取工作表个数End Sub应用：（1）可以在单元格中直接调用：例在A1 中输入：=工作表数量（）（2）程序中调用：Sub A1 中输入工作表数量（）Range(“A1”)=工作表数量调用自定义函数End Sub3 3）事件程序）事

3、件程序例如程序在打开工作表时触发：Private Sub Workbook_Open()Range(“A1”)=100End SubSub mycopy()-.Range(A1).Copy Range(B1)将 A1 单元格里的数据复制到B1 单元格End SubSub mydel()Sheets(sheet1).Delete删除工作表 sheet1End Sub常用的函数：&(连接函数)；（整除函数）；mod（求余数函数）2 2、WithWith 语句：语句：未使用 with 语句Sub 字体格式 1()Range(A1).Font.Name=宋体Range(A1).Font.Size=14

4、Range(A1).Font.ColorIndex=3Range(A1).Font.Bold=TrueEnd Sub使用 with 语句Sub 字体格式 1()With Range(A1).Font.Name=宋体.Size=14.ColorIndex=3.Bold=TrueEnd With-.End Sub3 3、If If 语句语句:1 1）单条件判断：）单条件判断：Sub 正数()If Range(a1).Value 0 ThenRange(a2).Value=“正数”ElseRange(a2).Value=“非正数”End IfEnd Sub2）多条件判断：多条件判断：Sub 正数()

5、If Range(c1).Value 0 ThenRange(d1).Value=大于零ElseIf Range(c1).Value 0 ThenRange(d1).Value=小于零ElseIf Range(c1).Value=0 ThenRange(d1).Value=等于零End IfEnd SubSub 判断男女()If Range(c1).Value=1 Then-.Range(d1).Value=男ElseIf Range(c1).Value=0 ThenRange(d1).Value=女ElseRange(d1).Value=非男非女End IfEnd SubPrivate Su

6、b Worksheet_SelectionChange(ByVal T arget As Range)Call 判断男女调用上面子程序，当单元格数值改变时触发子程序运行End Sub3 3）使用）使用 Select CaseSelect Case 语句：语句：Sub 多重判断()Select Case Range(a1)Case Is 0Range(b1)=大于零Case Is=0Range(b1)=等于零End SelectEnd Sub4 4）循环语句：）循环语句：-4 4、模块、模块:.循环语句，从 A1A100 依次填入 1100Sub a()Dim x定义变量 XFor x=1 To

7、 100Range(a&x)=xNext xEnd SubSub a()Dim x定义变量 XFor x=1 To 100 Step 2Range(a&x)=xNext xEnd Sub普通模块：无事件类模块：有事件工作表和工作簿是类模块，窗体也是类模块-.5 5、如何新建并保存一个工作簿、如何新建并保存一个工作簿:Sub 新建并保存 1（）ActiveWorkbook.SaveAS“c:/Mbook1.xls”ActiveWorkbook为活动工作簿End SubSub 新建并保存 2（）Workbook.AddThisWorkbook.SaveAS“c:/Mbook1.xls”ThisWo

8、rkbook为当前工作簿End SubSub 新建并保存 3（）Dim MBOOK AS WorkbookSet MBOOK=Workbooks.AddMBOOK.SaveAS“c:/Mbook.xls”Set MBOOK=NothingEnd Sub6 6、工作表事件、工作表事件:ActivateDeactivateBeforeDoubleClickBeforeRightClickCalculateChangeFollowHyperLink激活工作表时工作表从活动状态转为非活动状态时双击工件表前右键单击工作表时对工作表进行重新计算之后更改工作表中的单元格，或外部链接引起单元格发生改变时单击工

9、作表上的任意超链接时-.PivotTableUpdateSelectionChange7 7、选取某个单元格：、选取某个单元格：1）range(“单元格地址”).select2）range(“列标”&行数).select3）range(“定义名称”).select4）cells(行数,列数).select5）cells(行数,“列标”).select6）cells(单元格序号).select7）单元格地址.select在工作簿中的数据透视表更新之后工作表上的选定区域发生改变时例如：Range(“A1”).Select例如：Range(“A”&1).Select例如：cells(1,1).Sel

10、ect例如：cells(1,”A”).Select例如：cells(1).Select例如：A1.Select单元格地址必须用双引号括起来列标是用英文字母表示，这里的 1 可为变量行数和列数不能用双引号括起来行数不需要双引号，列标一定要双引号单元格序号的顺序是先从左到右，要从上到下单元格地址不能用双引号括起来例如：Range(“range1”).Select定义的名称必须要用双引号括起来8 8、选取指定工作表的某个单元格：、选取指定工作表的某个单元格：1）Sheets(“工作表名称”).单元格.select例如：Sheets(“单元格的表示方法”).Activate表示先将工作表激活2）She

11、et1.单元格.select3）Sheets(工作表序号).单元格.selectSheets(“单元格的表示方法”).Range(“A1”).Select例如：Sheet1.Activate表示先将工作表激活Sheet1.Range(“A1”).Select例如：Sheets(1).Activate表示先将工作表激活Sheets(1).Range(“A1”).Select9 9、练习：在、练习：在 B32B32 显示工作表中任意被选择单元格的序号：显示工作表中任意被选择单元格的序号：序号=（行数-1）*256+列数事件失效和事件恢复代码：Sub unEnableEvent()事件失活Appli

12、cation.EnableEvents=FalseEnd SubSub EnableEvent()事件恢复Application.EnableEvents=TrueEnd SubPrivate Sub Worksheet_SelectionChange(ByVal T arget As Range)Dim x As Long 声明变量 XDim y As Long 声明变量 Yx=Target.Row 把当前单元格的行数赋值给 X，注意，如果为 ROWS，则返回一个对象，y=Target.Column 把当前单元格的列数赋值给 Y，注意，如果为 columns，则返回一个对象Range(序号)=(x-1)*256+y 把当前单元格的End Sub1010、选取单元格区域：、选取单元格区域：Cells.SelectCells 代表本工作表所有单元格Rows.SelectRows 代表本工作表所有行，即所有单元格Columns.SelectColumns 代表本工作表所有列，即所有单元格-.-