llgd.net
当前位置:首页 >> vBA 定义数组 >>

vBA 定义数组

aaa=array(1,6,8,18,19,20,25,62,63,64) for i=0 to ubound(aaa) msgbox(aaa(i)) next

Sub test() Dim a(0 To 5) '//定义一个一维数组,下标从0到5共6个元素 Dim b() '//定义一个动态数组,数组维度与元素不确定,一般需要通过redim重新定义数组大小才能给其赋值 Dim c(1 To 5, 2 To 3) '//定义一个二维数组End Sub

先用 dim union() 定义一个空数组 确定里面内容多少后再用 redim union(**,**)指定

VBA中动态定义一个二维数组,案例代码如下: //定义动态数组ttSub tt()Dim a() As IntegerReDim a(1 To 2, 1 To 1) As Integera(1, 1) = 10i = 10ReDim Preserve a(1 To 2, 1 To i) As IntegerMsgBox a(1, 1)End Sub

Dim a(5) As Integer'长度为 5 的整型一维数组Dim b(5, 5) As Integer'长度为 5×5 的整型二维数组

可以的,arr只是一个命名而已 否则你定义2个数组怎么办

两个都可以,第二个不能引用 单元格区域,每个单元格都是一个参数,需要用逗号分隔 第一个比较接近内置函数SUM' Option ExplicitFunction Ssum(ByVal range As range) As Double Dim rng As range For Each rng In range Ssum = Ssum + rng.Valu...

我发现很多问的人都是和你一样的半瓶子,你直接说你想干什么就行了,至于用一维还是二维得看问题定。不是你说了算数的。按你的意思就是把a1:a4 a5:a6定在一个多维数组中。 dim aa(1 to 4,1 to 2) 这样定义就行了,导入数就行了。

03版中测试楼主代码也是正确的,高一级版本应该对03有兼容性,10版本更不消说! 如果实在不行,试着给单元格设置个时间格式试试,如: Cells(1, 1).NumberFormatLocal = "h:mm:ss" 我用10版检测过楼主的代码,显示正常,值得注意的是操作系统是W...

在模块中动态数组可以定义声明为公共数组,并且在一个过程中给重新定义维数赋值后,在另一个过程中,能有效!

网站首页 | 网站地图
All rights reserved Powered by www.llgd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com