默认情况下,VBA没有很多针对数组的增删查改操作,需要我们自定义。本文讲解如何用VBA写代码实现对数组的增删查改操作。本文假定数组为不可变元素。针对数组的修改操作,都默认不修改原数组。
工作中经常需要用到判断数组中是否包含某个元素,查找元素,所以特意封装了元素查找相关的一些列方法。
查找数组是否包含某个元素。返回Boolean类型,True表示数组包含该元素,False表示不包含。
测试用例
Sub testInArray arr =Array(1,3,5) Debug.PrintUtils.InArray(arr,1)' 返回True Debug.Print Utils.InArray '返回FalseEnd Sub
测试用例
SubtestIndexOf()arr=Array(1,3,5)Debug.PrintUtils.IndexOf(arr,3)' 返回 1 Debug.Print Utils.IndexOf '返回-1EndSub
测试用例
Sub testGetLength Debug.PrintUtils.GetLength(Array())' 0 Debug.Print Utils.GetLength) '1End Sub
''判断数组是否为空.''FunctionIsEmptyArray As BooleanOnError Resume Nexttmp=arr(LBound(arr)) ' 如果数组为空,这里会报错IfErr.Number 0 ThenIsEmptyArray=TrueErr.ClearElseIsEmptyArray=FalseEndIfEndFunction
测试用例
Sub testIsEmptyArray Dim arr Debug.PrintUtils.IsEmptyArray(arr)' True Debug.Print Utils.IsEmptyArray) 'TrueDebug.PrintUtils.IsEmptyArray(Array(1))' FalseEnd Sub