admin 管理员组文章数量: 887021
2024年2月21日发(作者：sql程序设计语言)
VBA 中将二维数组作为函数参数的方法
本文介绍了在 VBA 中如何将二维数组作为函数参数进行传递的方法。
在 VBA 中，将二维数组作为函数参数进行传递时，需要使用
ByRef 语句。例如：
```
Function Test(arr As Variant)
arr(1, 1)
arr(2, 3)
End Function
Sub Main()
Dim arr(1 To 10, 1 To 10)
arr(1, 1) = 1
arr(2, 3) = 2
Test arr
End Sub
```
在上述代码中，我们定义了一个名为 Test 的函数，该函数接受一个二维数组 arr 作为参数。在函数内部，我们通过
语句输出了数组 arr 的两个元素。在 Sub Main 过程中，我们创建 - 1 -
了一个 10 行 10 列的二维数组 arr，并将其元素初始化为 1 和 2。最后，我们调用 Test 函数，并将 arr 数组作为参数传递给函数。
通过使用 ByRef 语句，我们可以确保在函数内部对数组的修改会影响到原始数组。例如：
```
Function Test(arr As Variant)
arr(1, 1)
arr(1, 1) = 100
arr(1, 1)
End Function
Sub Main()
Dim arr(1 To 10, 1 To 10)
arr(1, 1) = 1
Test arr
End Sub
```
在上述代码中，我们在 Test 函数内部将 arr 数组的第一个元素修改为 100。由于我们使用了 ByRef 语句，所以这种修改会影响到原始数组。在 Sub Main 过程中，我们创建了一个 10 行 10 列的 - 2 -
二维数组 arr，并将其元素初始化为 1。最后，我们调用 Test 函数，并将 arr 数组作为参数传递给函数。在函数内部，我们首先输出了数组 arr 的第一个元素，然后将其修改为 100。
- 3 -
版权声明：本文标题：vba 二维数组 作为函数参数的方法 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/free/1708486271h525529.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论