VBA 定义能返回数组公式的自定义函数

最新推荐文章于 2024-04-11 11:36:00 发布

weixin_34320159

最新推荐文章于 2024-04-11 11:36:00 发布

阅读量2.1k

点赞数

原文链接：http://www.cnblogs.com/lbnnbs/p/4784929.html

版权

本文介绍了如何在VBA中定义两个自定义函数，分别用于返回基于参数范围动态大小的数组和返回固定大小的数组。第一个函数根据输入范围的值计算乘以100的结果，第二个函数接收起始和结束时间，返回它们之间的时间差（小时、分钟、秒）。这两个函数都需要以数组公式的形式在Excel中输入。

摘要由CSDN通过智能技术生成

返回一个变量大小结果数组的方法

此方法返回基于一个参数范围的值的数组。结果数组的大小具体取决于参数数组中的元素数量波动。例如对于假定您要创建一个范围中的每个值乘以 100 的函数。下面的自定义函数接受作为其参数的数组（某一范围的值）：

      Function Multiply_Range(myrange As Object) As Variant
      Dim temp As Variant
      Dim i As Integer, j As Integer
      temp = myrange.Value 'creates a copy of the values in myrange
      ' if more than one element then loop through both dimensions of
      ' the array and multiply each element by 100.
      ' if not more than one element then temp is multiplied by 100.
      If IsArray(temp) Then
         For i = 1 To UBound(temp, 1)
            For j = 1 To UBound(temp, 2)
               temp(i, j) = temp(i, j) * 100
            Next j
         Next i
      Else
         temp = temp * 100
      End If