level 13
公司都是2016,我装了个19 结果ifs函数在别的电脑上用不了,有招吗,都换成19不现实
2018年11月20日 07点11分
1
level 1
%E6%96%87%E7%AB%A0%E5%86%99%E7%9A%84%E6%98%AF%E6%9F%B3%E6%A0%91%2C%E4%B8%BA%E4%BB%80%E4%B9%88%E8%A6%81%E7%94%A8%E8%BF%99%E4%B9%88%E5%A4%9A%E5%A2%A8%E6%9D%A5%E5%86%99%E9%9D%92%E5%B1%B1%E5%92%8C%E5%8E%9F%E9%87%8E
2019年01月26日 13点01分
15
level 1
Function IFS(ByVal Logical1 As Variant, ByVal TrueVal1 As Variant, Optional ByVal Logical2 As Variant, Optional ByVal TrueVal2 As Variant, _
Optional ByVal Logical3 As Variant, Optional ByVal TrueVal3 As Variant, Optional ByVal Logical4 As Variant, Optional ByVal TrueVal4 As Variant, _
Optional ByVal Logical5 As Variant, Optional ByVal TrueVal5 As Variant, Optional ByVal Logical6 As Variant, Optional ByVal TrueVal6 As Variant, _
Optional ByVal Logical7 As Variant, Optional ByVal TrueVal7 As Variant, Optional ByVal Logical8 As Variant, Optional ByVal TrueVal8 As Variant, _
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
'暂定容纳10个条件
'IFS(条件1, 真值1 ,[条件2, 真值2 , …… 条件10, 真值10 ,] 假值)
If Logical1 Then
IFS = TrueVal1
ElseIf IsMissing(TrueVal2) Then
IFS = Logical2
ElseIf Logical2 Then
IFS = TrueVal2
ElseIf IsMissing(TrueVal3) Then
IFS = Logical3
ElseIf Logical3 Then
IFS = TrueVal3
ElseIf IsMissing(TrueVal4) Then
IFS = Logical4
ElseIf Logical4 Then
IFS = TrueVal4
ElseIf IsMissing(TrueVal5) Then
IFS = Logical5
ElseIf Logical5 Then
IFS = TrueVal5
ElseIf IsMissing(TrueVal6) Then
IFS = Logical6
ElseIf Logical6 Then
IFS = TrueVal6
ElseIf IsMissing(TrueVal7) Then
IFS = Logical7
ElseIf Logical7 Then
IFS = TrueVal7
ElseIf IsMissing(TrueVal8) Then
IFS = Logical8
ElseIf Logical8 Then
IFS = TrueVal8
ElseIf IsMissing(TrueVal9) Then
IFS = Logical9
ElseIf Logical9 Then
IFS = TrueVal9
ElseIf Logical10 Then
IFS = TrueVal10
Else
IFS = FalseVal
End If
End Function
2020年02月20日 00点02分
30