EXCEL2016以降の関数をEXCEL2010に移植 その２

EXCEL2010で使用できるように自作

Option Explicit

Function IFS(ParamArray Data()) As Variant 'IFS関数（EXCEL2010で使用できるように自作）

Dim i As Integer

For i = 0 To UBound(Data) / 2
    If Data(i * 2) = True Then
            IFS = Data(i * 2 + 1)
            Exit For
    End If
Next i

 
 End Function

以上。