vba数组怎么赋值

发布网友发布时间：2022-04-23 23:03

共3个回答

热心网友时间：2023-10-13 01:17

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

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

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

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

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

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

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

热心网友时间：2023-10-13 01:17

数组可以单个赋值，例如：

dim a(3)
a(1)=1
a(2)=2
a(3)=3

也可以使用Array一次性赋值，例如：

dim a
a=Array(1,2,3)

还可以从表格进行复制，例如：

dim a
a = Range("A1:D4")

热心网友时间：2023-10-13 01:18

字符串数组的定义：
Dim arr(1 to 3) as string
如此定义，但是不能直接给数组赋值
如果想直接给数组直接赋值，需要如下操作：
Dim arr() as Variant
arr=Array("a","b","c")