求自定义函数IFS，这个要求是不是有些过分？

keaney

excel2013、2016版本没有IFS函数，只有365有，求VBA写个等同于IFS函数。

microyip

不知道这个是否符合要求

1. Function IFS(ByVal Logical1 As Variant, ByVal TrueVal1 As Variant, Optional ByVal Logical2 As Variant, Optional ByVal TrueVal2 As Variant, _
   
2.         Optional ByVal Logical3 As Variant, Optional ByVal TrueVal3 As Variant, Optional ByVal Logical4 As Variant, Optional ByVal TrueVal4 As Variant, _
   
3.         Optional ByVal Logical5 As Variant, Optional ByVal TrueVal5 As Variant, Optional ByVal Logical6 As Variant, Optional ByVal TrueVal6 As Variant, _
   
4.         Optional ByVal Logical7 As Variant, Optional ByVal TrueVal7 As Variant, Optional ByVal Logical8 As Variant, Optional ByVal TrueVal8 As Variant, _
   
5.         Optional ByVal Logical9 As Variant, Optional ByVal TrueVal9 As Variant, Optional ByVal Logical10 As Variant, Optional ByVal TrueVal10 As Variant, Optional ByVal FalseVal As Variant) As Variant
   
6. '暂定容纳10个条件
   
7. 'IFS(条件1, 真值1 ,[条件2, 真值2 , …… 条件10, 真值10 ,] 假值)
   
8.     If Logical1 Then
   
9.         IFS = TrueVal1
   
10.     ElseIf IsMissing(TrueVal2) Then
    
11.         IFS = Logical2
    
12.     ElseIf Logical2 Then
    
13.         IFS = TrueVal2
    
14.     ElseIf IsMissing(TrueVal3) Then
    
15.         IFS = Logical3
    
16.     ElseIf Logical3 Then
    
17.         IFS = TrueVal3
    
18.     ElseIf IsMissing(TrueVal4) Then
    
19.         IFS = Logical4
    
20.     ElseIf Logical4 Then
    
21.         IFS = TrueVal4
    
22.     ElseIf IsMissing(TrueVal5) Then
    
23.         IFS = Logical5
    
24.     ElseIf Logical5 Then
    
25.         IFS = TrueVal5
    
26.     ElseIf IsMissing(TrueVal6) Then
    
27.         IFS = Logical6
    
28.     ElseIf Logical6 Then
    
29.         IFS = TrueVal6
    
30.     ElseIf IsMissing(TrueVal7) Then
    
31.         IFS = Logical7
    
32.     ElseIf Logical7 Then
    
33.         IFS = TrueVal7
    
34.     ElseIf IsMissing(TrueVal8) Then
    
35.         IFS = Logical8
    
36.     ElseIf Logical8 Then
    
37.         IFS = TrueVal8
    
38.     ElseIf IsMissing(TrueVal9) Then
    
39.         IFS = Logical9
    
40.     ElseIf Logical9 Then
    
41.         IFS = TrueVal9
    
42.     ElseIf Logical10 Then
    
43.         IFS = TrueVal10
    
44.     Else
    
45.         IFS = FalseVal
    
46.     End If
    
47. End Function

复制代码

keaney

调试了几个，可以的，目前没发现BUG，谢谢楼上

梁哈哈

太感谢题主的问题啦！！！我们用的Excel2007，IF嵌套套了我一上午！！谢谢！

laoera

太感谢了。记得那个版本有ifs，后面2016更新了就没有了。