VBA开发带有不确定参数过程

laoau138

VBA开发带有不确定参数过程

一沫昔阳虹w

1. Function GetName(ByVal rngs As range, Optional ByVal val As Long = 2000, Optional ByVal joint As String = " ") As String
   
2.         'rngs为姓名所在区域；val为需要比较的数，默认2000；joint为连接符，默认为空格
   
3.         Dim arr(), rng As range, n As Long
   
4.         
   
5.         Application.Volatile    '易失性函数
   
6.         For Each rng In rngs
   
7.                 If rng.Offset(, 1) > val Then   '判断
   
8.                         n = n + 1
   
9.                         ReDim Preserve arr(1 To n)      '动态数组，保存已有数据
   
10.                         arr(n) = rng.Value
    
11.                 End If
    
12.         Next
    
13.         GetName = join(arr, joint)  '输出数据，将数组中元素连接，joint为连接符
    
14. 
    
15. End Function

复制代码

laoau138

一沫昔阳虹w 发表于 2016-12-7 17:57

果然是高手

laoau138

一沫昔阳虹w 发表于 2016-12-7 17:57

还有一条高手如何做

VBA用自定义函数  对多个区域计算含有公式的单元格个数


http://www.excelpx.com/thread-426204-1-1.html