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