1 变量作用域

1.1 过程变量：过程或函数内Dim定义；

1.2 模块级变量：过程或函数外，模块顶部处用Private定义；

1.3 公共变量：过程或函数外，模块顶部处用Public定义；

2 函数或过程作用域

2.1 模块级函数或过程：用Private修饰，作用域仅限于模块级函数；

2.2 公共级函数或过程：用Public修饰，作用域可以扩展到整个工作簿中的各个模块；

3 三种数组定义方式

Sub arrtest()
Dim i As Integer
i = ActiveWorkbook.Sheets.Count
Dim arr(6) As Integer '维度必须是常量
arr(1) = 1
arr(2) = 2
Dim myarr( 1 to 5, 1 to 10) As Integer
ReDim arr2(i) '维度可以是变量
arr3 = Array("表1","表2","标题1","标题2") '可以直接初始化
Debug.Print i
End Sub

4 内置函数调用

4.1 工作簿函数调用

x = WorksheetFunction.Max(Range("B2:E5"))

4.2 工作薄函数输入

Range("A11").Formula = "=sum(A1:A10)"
'相当于
Range("A11").Value = "=sum(A1:A10)"

4.3 工作簿数组公式

Range("A1:A10").FormulaArray = "=A1:A10*B1:B10"

4.4 VBA内置函数调用

VBA.InStr("AB$11", "$")

5 对象变量声明和赋值

5.1 可以声明为Variant、object、range等具体类型，越具体效率越高；

5.2 内置对象使用关键字直接赋值

Dim rng As Range
Set rng = Range("A1:A11")

5.3 外部对象的定义

Set dic= CreateObject("Scripting.Dictionary")
Set reg = CreateObject("vbscript.regexp")
Set ExcelApp = CreateObject("Excel.Application")
Dim col As New Collection 'VBE编辑窗口-->工具菜单-->引用-->浏览-->找到scrrun.dll-->选择它-->打开-->确定

5.4 定义的对象使用完后要释放

Set ExcelApp = Nothing

6 对象引用方法

6.1 For Each遍历对象集合；

For Each ws In ThisWorkbook.Worksheets
 Debug.Print ws.name
Next

6.2 数字索引引用，也可以使用for循环和集合对象的Count属性；

ActiveWorkbook.Sheets(1).Select

6.3 字符串索引，如

ActiveWorkbook.Sheets("sheet5").Select

6.4 active可以引用活动对象，ThisWorkbook可以引用当前宏代码所在工作簿；

7 按时间计划运行过程

7.1 在指定时间运行

 Application.OnTime Now + TimeValue("00:00:22"), "othersub"

7.2 在枚举的几个时间点运行

 Application.OnTime Now + TimeValue("9:00 AM"), "othersub"
 Application.OnTime Now + TimeValue("10:00 AM"), "othersub"
 Application.OnTime Now + TimeValue("6:00 PM"), "othersub"

7.3 每间隔一段时间自动运行

两个过程相互调用：

Sub everytime()
Application.OnTime Now + TimeValue("00:10:00"), "savebook"
End Sub
Sub savebook()
ThisWorkbook.Save
Call everytime
End Sub

7.4 取消运行计划

 Application.OnTime Now + TimeValue("00:00:22"), "othersub",False

8 利用数组选择多个工作表

 Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Select '工作表不存在时会报错

9 动态引用变化后的新区域

 Range("B2").Offset(2, 3).Select
 Range("B2").Resize(2, 3).Select

10 获取单元格列标字母

Set rng = Cells(4, 28)
strs = Left(rng.Address(1, 0), InStr(rng.Address(1, 0), "$") - 1) 'AB

11 设置单元格部分字符串格式

chrs = Range("C2").Characters(Start:=2, Length:=3)
chrs.Font.Color = vbRed

12 获取单元格内的公式字符串

 If Range("b2").HasFormula = True Then
 strs = Range("B2").Formula

13 获取工作表某列、某行有内容的最后一行、列

 r = Range("A" & Rows.Count).End(xlUp).row
 c = Range(Cells(1, Columns.Count), Cells(1, Columns.Count)).End(xlToLeft).Column

14 设置字体、填充、边框颜色和样式（可用宏录制来了解对象属性及各常量值）

 With Selection.Interior
 .Pattern = xlGray8
 .PatternThemeColor = xlThemeColorAccent6
 .ThemeColor = xlThemeColorAccent6
 End With
 With Selection.Font
 .name = "宋体"
 .FontStyle = "常规"
 .Size = 8
 End With
For i = xlDiagonalDown To xlInsideHorizontal '设置选定区域边框
 With Selection.Borders(i)
 .LineStyle = xlContinuous
 .ColorIndex = xlAutomatic
 .TintAndShade = 0
 .Weight = xlHairline
 End With
 Next i
 Selection.Borders(xlDiagonalDown).LineStyle = xlNone '清除\对角线
 Selection.Borders(xlDiagonalUp).LineStyle = xlNone '清除/对角线
 Selection.BorderAround LineStyle:=xlContinuous, Weight:=xlThick, Color:=vbBlue'外框设置

单元格区域的其他子对象（属性）还有Hyperlinks、Comments、Name、NumberFormatLocal。

15 选择性粘贴

 Selection.Copy
 Range("B2").Select
 Selection.PasteSpecial , , , Transpose:=True'对于不需设置的属性，可省略，逗号可有可无

单元格区域的一些方法有：cut、Sort、AutoFilter、AdvancedFilter。（可利用VBE的代码提示功能查看）

－End－