Question

vba数组赋值

Dim strArr(10) As String
strArr = "物业费,电费,水费,电梯电费,装修保证金,业主门卡工本费,装修电梯使用费,电梯年检维护费,装修保证金"

赋值不能，咋改？

Answer 1

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

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

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

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

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

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

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

Answer 2

Dim strArr As Variant
strArr =Array （"物业费“,”电费“,”水费“,”电梯电费“,”装修保证金“,”业主门卡工本费“,”装修电梯使用费“,”电梯年检维护费“,”装修保证金")
张志晨

追问

为什么必须 As Variant？

追答

变体类型。隐式声明。

Answer 3

这样行吗？
Dim strArr
strArr = Split("物业费,电费,水费,电梯电费,装修保证金,业主门卡工本费,装修电梯使用费,电梯年检维护费,装修保证金", ",")

Answer 4

你等号的右边是一个字符串常量，所以不能直接赋值给一个数组，只能赋值给数组中的某一个元素。或者用split函数将其分解为数组常量之后，再赋值给数组，如下所示：

dim strArr()
strArr=split("物业费,电费,水费,电梯电费,装修保证金,业主门卡工本费,装修电梯使用费,电梯年检维护费,装修保证金",",")