VBA01

VBA语法

---

1. 数据结构

• Boolean : 布尔型
• Byte : 字节
• Long : 长整数型
• Integer : 整数型
• String : 字符串
• Variant : 变形
• Double : 双精度浮点型
• Single : 单精度浮点型
• Decimal : 小数型
• Date : 日期型
• Object : 对象型
• 用户自定义类型 : 用户自定义
• Currency : 货币型

---

2. 常量变量

声明常量 :

• Const 变量名 As 数据类型
• 如果在第1个过程前声明Const为模块级常量，加Public为公共常量

    '定义一个Single类型常量,名称为p，常量存储数据为3.14
    Const p As Single = 3.14

强制声明 : Option Explicit

    Option Explicit

声明变量 : 作用域 变量名 As 数据类型

• Dim 变量名 As 数据类型；
• Public 变量名 As 数据类型；
• Private 变量名 As 数据类型；
• Static 变量名 As 数据类型

变量类型声明符

数据类型	类型声明字符
Integer	%
Long	&
Single	!
Double	#
Currency	@
String	$

    Dim Str$                 '等同于Dim Str As String
    Dim Str                  '声明变量可不指定变量类型

变量赋值 : [Let] 变量名称 = 要存储数据

    Dim intcount As Integer  '定义integer变量
    Let intcount = 3000      '给变量intcount赋值为3000,默认类型为Variant      

或

    Dim intcount As Integer  '定义integer变量
    intcount = 3000          '给变量intcount赋值为3000

作用域

作用域	描述
单个过程	Dim/Static，作用域本过程可用，本地变量
单个模块	Dim/Private，第一个过程前34声明，模块所有过程可用，模块级变量
所有模块	Public，在一个模块的第一个过程前声明，作用域为所有模块，公共变量

    Sub 本地变量()
        Dim a As String     '定义一个String类型的变量，名称为a
        Static b As Integer '定义一个Integer类型变量，名称为b
    End Sub

    Dim a As String         '定义模块级变量a
    Private b As String     '定义模块级变量b
    Sub 合并文本()
        a = "我在excelhome论坛" 'a赋值
        b = "学习xcel"          'b赋值
        MsgBox a & b           '用对话框表示a,b合并内容
    End Sub

    Public c As String         '定义全局变量

数组

声明

• 一元数组 : Public | Dim 数组名称 (a To b) As 数据类型
• 多维数组 : Public | Dim 数组名称 (row, col,…) As 数据类型
• 动态数组 : Public | Dim 数组名称 () As 数据类型

'定义一个byte类型的数组arr，可保存100个数据
    Dim arr (1 To 100) As Byte 

'只用一个自然数确定数组大小，默认起始索引号0
    Dim arr (99) As Byte 

'定义一个3行5列的数组，类型为Integer的二维数组
    Dim arr (1 To 3, 1 To 5) As Integer

'定义一个三维数组
    Dim arr (1 To 3, 1 To 5, 1 To 4) As Integer

'
    Sub a()
        Dim a As Integer       '定义Integer变量
'用工作表函数COUNTA求A列中的非空单元格个数，将结果保存在变量a中
        a = Application.WorksheetFunction.CountA("A:A")
        Dim arr() As String    '定义一个String类型的动态数组
'ReDim可以重定义数组的大小，包括已经定义的数组，但不可改编版数组类型
        ReDim