VBA数组中的常见错误.pdfVIP

VBA数组中的常见错误 使⽤数组时，出错是很容易的。如果你试图给数组赋予⽐声明数组时更多的成员的 话，VBA就 显⽰错误信息“下标越界” 。 图7-4 该错误出现于试图访问并不存在的数组成员 假设你声明了⼀个包含6个成员的⼀维数组，⽽你却试图给第⼋个成员赋值，当你运 ⾏该过程时，VB⽆法找到第⼋个成员，所以显⽰错误信息。点击调试按钮，VB将导 致错误的代码⾏ （见图7-5 ）加亮。检查数组的声明语句，并且更改被加亮代码⾏括号 ⾥的索引号。“下标越界”错误经常是由使⽤循环的过程引发的。下⾯的过程Zoo 1就是 这种情况的⼀个例⼦。在⽤户取消在输⼊框⾥输⼊数据之前，循环⾥的语句反复被执 ⾏。在执⾏该过程时，当变量 i 等于4 的时候，VB⽆法在这个只有三个成员的数组⾥ 找到第四个成员，那么错误信息就出现了。修改后的过程Zoo2⽰范了前⾯章节⾥介绍 的LBound和UBound函数如何能够避免试图访问不存在的数组成员的错误。 图7-5 当你点击错误信息的调试按钮，VB就 加亮引发错误的语句 1.在当前⼯程⾥插⼊新模块，命名为Errors_In_Arrays 2.输⼊下列过程Zoo 1和Zoo2 ： Sub Zoo1() this procedure triggers an error Subscript out of range 本过程引 误 Dim zoo(3) As String Dim i As nteger Dim response As String i = 0 Do i = i +1 response = nputBox(Enter a name of animal:) zoo(i) = response Loop until response = End Sub Sub Zoo2() this procedure avoids the error Subscript out of range本过程避免 Dim zoo(3) As String Dim i As nteger Dim response As String i = 1 Do While i=LBound(zoo) And i =UBound(zoo) response = nputBox(Enter a name of animal:) f response = Then Exit Sub zoo(i) = response i = i + 1 Loop For i = LBound(zoo) To UBound(zoo) MsgBox zoo(i) Next End Sub 另外⼀个使⽤数组时经常碰到的错误是类型不匹配。要避免这类错误，就要牢记⼀个 数组的每个成员都必须具有相同的数据类型。如果你试图给数组成员赋予和数组声明 的数据类型⽭盾的数据的话，你就将在执⾏代码时收到“类型不匹配”的错误。要让⼀ 个数组出错不同类型的数据类型的话，你就得声明数组为Variant类型。 数组作为参数 在前⾯的章节中，你学习了数据可以在⼦过程或者函数过程之间作为必须或者可选参 数传递。如果传递的参数不是过程执⾏⼀定要的话，那么这个参数名称就应该在前⾯ 加关键字O tional 。然⽽，有些时候，你事先并不知道你要传递多少个参数。⼀个典 型的例⼦就是加法。你可能想要将两个数字加和，或者，你也许要加和3个，10个， 或者15个数字。使⽤关键字ParamArray ，你就可以将⼀个包含任意个成员的数组传递 给你的⼦过程和函数过程。下⾯的函数过程AddMulti leArgs将加和你所需要的任何多 个数字。该函数以数组myNumbers的声明开始，注意关键字ParamArray的使⽤。该数 组必须声明为Variant类型，并且它必须是函数过程的最后⼀个参数。 1.在当前⼯程⾥插⼊⼀新模块，命名为ParameterArrays 2.输⼊如下函数过程AddMulti leArgs ： Function AddMultipleArgs(ParamArray myNumbers() As Variant) Dim mySum As Single Dim myValue As Variant For each myValue in myNumbers mySum=mySum+myValue Next AddMultip