IFS関数
$ =IFS(条件1, 処理1(, 条件n, 処理n)*)
$ =IFS(A1>89, "A", A1>79, "B", A1>69, "C", A1>59, "D", TRUE, "F")
table:IFS
条件1
code:vba
Function IFS(ParamArray par())
Dim i As Integer
IFS = CVErr(xlErrNA)
If UBound(par) Mod 2 = 0 Then
Exit Function
End If
For i = LBound(par) To UBound(par) - 1 Step 2
If par(i) Then
IFS = par(i + 1)
Exit Function
End If
Next
End Function