VBA 开发学习--基础语法

MsgBox "开始学习VBA"  '提示框
 
Dim str As String               '声明str变量是string类型
Let str = "一起来看流星雨"      '给变量赋值   给文本，数值，日期等数据赋值的时候，let可以省略
Range("A1").Value = str      '将变量值写入活动工作表的A1单元格
 
Dim dat As Date
dat = #7/2/2013#                    '日期赋值用  #时间#
 
Dim rng As Range                                 '声明rng为range变量
Set rng = Worksheets("sheet1").Range("A1")       '给变量赋值         给对象变量赋值的时候，必须戴上set
rng.Value = "欢迎光临"                           '将文本写入变量指代的单元格
 
Const p As Single = 3.14 '定义一个常量
Dim stu(1 To 50) As String  '定义一个数字组，（a to b）a,b都必须是整数，分别是数组的起止和终止索引号，确定数组中的元素个数是（b-a+1）
stu(1) = "白居易"            '给数组第一个数赋值
stu(3) = "李白"             '给数组第三个数赋值
 
Dim jiangyou(1 To 3, 1 To 20)  '声明多纬数组  等同于jiangyou(2,19)，起始索引从0开始。
 
'定义动态的数组
Dim arr() As String
Dim n As Integer
n = Application.WorksheetFunction.CountA(Range("A:A"))     '统计A列有多少个非空单元格。
ReDim arr(1 To n) As String                     '重新指定数组的大小，注意用ReDim
 
'使用Array函数创造数组，变量必须为Variant类型
 
Dim av As Variant
av = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
MsgBox "av数组的第2个元素为：" & av(1)
 
'使用split函数创建数组
 
Dim arrb As Variant
arrb = Split("邓成，清风，孔佳，林岳", ",")
MsgBox "arr的第二个元素是：" & arr(1)
 
'通过Range对象直接创建数组
Dim arra As Variant
arra = Range("A1:C3").Value
Range("E1:G3").Value = arra
 
'UBound 和 LBound函数
Dim max As Integer, min As Integer
 
max = UBound(arr)       '获取数组的最大索引号
min = LBound(arr)       '获取数组的最小索引号
 
MsgBox "数组的元素个数是" & max - min + 1
 
'多维数组的最大和最小索引号，需要指定数组的维数
Dim arr1(1 To 10, 1 To 100)
MsgBox "第一维的最大索引号是" & UBound(arr1, 1) & "_第二维的最小索引号是" & LBound(arr1, 2)
'Join 函数
 
Dim arr3 As Variant, txt As String
arr3 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
txt = Join(arr3, "@")
MsgBox txt