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

 

转载于:https://www.cnblogs.com/liuruitao/p/3780520.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值