vba

1、 右键-自定义-命令-宏-自定义按钮（alt+拖拉）-右键-指定宏-“弄好的宏”-确定（右键可以重命名和换图像等）。

2、 常用函数数据类型（详细的后期使用再看）：Byte-字节型，Integer-整型，Long-长整型，Single-单精度浮点型，7位有效数字，Double-双精度型，15位有效数字 ；Sting-字符串型，对象型-例如单元格区域和工作表，Variant-变量体，也叫万能的类型。

3、 变量：变量名称要注意几点——a、不能把关键字作为变量名；b、部分符号不能作为变量 名，如*%#！；c、不区分大小写；d、也可以使用中文名称。

4、 变量的声明方式：

语法格式为：a、Dim 变量 as 数据类型 如 Dim xyz as integer

b、也可以一行定义多个变量，之间用逗号隔开，如Dim x as integer， y as integer， z as integer

c、Dim 变量 as 类型 '定义为局部变量，如 Dim xyz as integer

Private 变量 as 类型 '定义为私有变量，如 Private xyz as byte

Public 变量 as 类型 '定义为公有变量，如 Public xyz as single

Global 变量 as 类型 '定义为全局变量，如 Globlal xyz as date

Static 变量 as 类型 '定义为静态变量，如 Static xyz as double

5、 SUB AA()

End Sub——宏过程，AA代表宏的名字（周一验证下）

Msgbox 输出函数

Cells 全选

Select 选择

Value 赋值

Range 单元格 range（”a1”）.value=”单元格a1”

Range(“a1:a9”).value=”单元格a1:a9”

Range(“a1:a9,d1:d9”).value=”a1:a9和d1:d9”

Application.union(range(“a1:a9”),range(“d1:d9”).select=a1:a9和 d1:d9单元格被选择

Union 联合

Cells(9,1)=a9单元格 cells(1)=a1单元格

Range(“a1”).offset(1,3)=a1单元格偏移1行3列，也就是d2 offset和resize

功能一样（待求证正确性）

快捷方式 [a1]=100

Sheets.add before:=sheet1 工作表1前面增加工作表

Sheet1.delete 删除工作表

Row 行 column 列 colorindex 颜色值

Interlor 内部的 xlnone 取消（颜色）

例如：Private Sub Worksheet_SelectionChange（byval target as range）单元格范围作为目标来处理

Dim H as interger,l as interger

H=target.row

L=target.column

Range(“a:d”).interlor.colorindes=xlnone

If l<=4 then

Range(cells(h,1),cells(h,4).interior.colorindex=8)

End if

End sub

6、 工作表对象事件：Activate激活工作表时Deactivate工作表从活动状态转为非活动状态时BeforeDoubleClick双击工作表前BeforeRightClick右键单击工作表时Calculate对工作表进行重新计算之后Change更改工作表中的单元格，或外部链接引起单元格时FollowHyperlink单击工作表上的任意超链接时PivotTableUpdate在工作簿中的数据透视表更新之后SelectionChange工作表上的选定区域发生改变时

7、 工作薄对象：

Workbooks.add 增加工作薄 thisworkbook.save 保存工作薄

例如：private sub wokbook_before close(cancel as Boolean)

If sheet1.name<>”我的名字” then sheetf1.name=”我的名字”

End if

Thisworkbook.save

End sub 此事件功能是防止工作薄的名字被更改

8、 工作薄对象事件： Activate激活工作薄时AddinInstall当工作簿作为加载宏安装时AddinUninstall工作簿作为加载宏卸载时BeforeClose关闭工作薄前BeforePrint

打印工作薄(或其中任何内容)之前BeforeSave保存工作薄前Deactivate工作簿从活动状态转为非活动状态时NewSheet在工作簿中新建工作表时Open打开工作簿时PivotTableCloseConnection在数据透视表关闭与其数据源的连接之后PivotTableOpenConnection在数据透视表打开与其数据源的连接之后SheetActivate激活任何一张表时SheetBeforeDoubleClick双击任何工作表时SheetBeforeRightClick鼠标右键单击任一工作表时SheetCalculate工作表重新计算时SheetChange更改工作表中的单元格时SheetDeactivate任一工作表由活动状态转为非活动状态时SheetFollowHyperlink

单击 Microsoft Excel 中的任意超链接时

SheetPivotTableUpdate数据透视表的工作表更新之后SheetSelectionChange工作簿中的数据透视表更新之后WindowActivate工作簿的窗口激活时WindowDeactivate工作簿的窗口变为非活动状态时WindowResize工作簿窗口调整大小时（求证单元格的对象事件）

9、 Sub 计算()

If range(“b1”).value<>0 and isnumeric(range(“b1”))=true then

Range(“c1”)=range(“a1”)/range(“b1”)

Else

Exit sub

End if

End sub (IsNumeric() 函数判断一对象是否为数字)

10、 On Error Resume Next语句和On Error Goto 0语句指明了当出现\"运行时错误\"时的处理方式。

当加上On Error Resume Next语句后，如果后面的程序出现\"运行时错误\"时，会继续运行，不中断。

当加上On Error Goto 0语句后，如果后面的程序出现\"运行时错误\"时，会显示\"出错信息\"并停止程序的执行。

Err对象保存了“错误信息”