Question

vba数组怎么赋值？

Sub t()
Dim arr(1 To 3)
arr(1) = 11
arr(2) = 22
arr(3) = 33
brr = [a1:c2]
brr(1) = arr
End Sub

用brr(1)提示下标越界！
如何用brr表示[a1:c1]该区域让其等于arr?

Answer 1

brr = [a1:c2] 这是python的写法吧 你啥时候看见vb也这样写了？
再说a1和c2的值是多少，默认值是0？

Answer 2

1、打开一个Excel的文件，在表格中输入简单的表格，比如学生身高表格，如下图所示。

2、接着，在表格中输入一维数组的说明文字，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择按钮控件，如下图所示。

3、然后，在表格中绘制出按钮控件，并修改控件名称，比如使用一维数组的名称，如下图所示。

4、接着，选择按钮控件，并鼠标左键单击【查看代码】按钮，如下图所示。

5、然后，在代码窗口中输入VBA语句，比如输入定义一维数组的语句，并给一维数组赋值，如下图所示。

6、接着，在代码窗口中，输入一维数组给单元格赋值的VBA语句，如下图所示。

7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序的一维数组，并输出到身高的单元格中，显示出数据了，如下图所示。完成效果图。