我要做这个函数 target必要参数，target2和str 要 选用参数

alimjan15

大神们请查看 一下函数看看。 我要做这个函数 target必要参数，target2和str 要 选用参数。 但实际运行中excel 但愿输入该函数时 3个参数都选中才有正确结果， 第二和第三参数任意一个没有指定就显示#value 。 帮我怎么改 才能达到 第二和第三参数没有的情况下 正常运算出来。

1. Public Function test11(target As Range, target2 As Range, str As String) As Long
   
2.     Application.Volatile
   
3.     Dim colDistinct As New Collection, rng As Range, rng1 As Range
   
4.     On Error Resume Next
   
5.     If target2.Count = 0 Or Len(str) = 0 Then
   
6.         For Each rng In target
   
7.             If Not IsEmpty(rng.Value) Then
   
8.                 colDistinct.Add rng.Value
   
9.             End If
   
10.         Next
    
11.     Else
    
12.         For Each rng In target
    
13.             If Not IsEmpty(rng.Value) And target2.Cells(rng.Row - 1, 1).Value = str Then
    
14.                 colDistinct.Add rng.Value
    
15.             End If
    
16.         Next
    
17.     End If
    
18.     test11 = colDistinct.Count
    
19. End Function

复制代码

qline302

可选参数要配合 optional target2="xyz"这样的写法。赋值target2默认一个值才行.

boyayes

瞎侃几句，如有错误还请斧正。

alimjan15

boyayes 发表于 2024-2-13 17:48
瞎侃几句，如有错误还请斧正。

您把里面的 代码解释也非常仔细，  特别感谢您

boyayes

补充一句说明吧：
一个Sub或Function，可以没有参数，可以所有参数都是必选参数，可以一部分是必选参数另一部分是可选参数，但是，不允许所有参数全部是可选参数。
记往但是后边的话。
简单点说就是：如果有可选参数就必须要有必选参数。

alimjan15

boyayes 发表于 2024-2-15 15:46
补充一句说明吧：
一个Sub或Function，可以没有参数，可以所有参数都是必选参数，可以一部分是必选参数另 ...

谢谢 知道了