Membuat UDF untuk Formula IFS di Versi Office Lama

Pada MS Office 2019 yang akan datang, banyak sekali perubahan terutama penambahan fungsi-fungsi baru untuk membantu kita menyelsaikan persoalan di spreadsheet Excel. Seperti salahsatunya adalah Formula atau rumus IFS, rumus IFS ini hadir sebagai update untuk penggunaan IF bertingkat.

Seperti kita tahu bahwa menggunakan IF bertingkat akan membuat rumus kita menjadi panjang karena didalam IF sendiri ada 3 parameter disetiap formulanya. Parameter formula IF yaitu Logikal, Parameter jika Benar / TRUE dan Parameter jika salah / FALSE. Pada update formula IFS, parametr ini menjadi dipersingkat menjadi :

 Sintaksis 

=IFS (test1, value1, [test2, value2], ...)

Bisa dilihat diatas, dengan menggunakan Formula IFS, penulisan rumus IF bertingkat menjadi semakin mudah dan tidak panjang. Mungkin kekurangan dari Fungsi IFS ini adalah bagi pengguna MS office dibawah 2019 belum bisa mencicipi nya. Namun tenang saja, disini ExcelNoob akan memberikan UDF (User Define Function) untuk fungsi IF atau istilahnya kita buat sendiri fungsi IFS ini di Versi Office kita.

Seperti biasa, silahkan kamu buka Visual Basic Editornya dengan cara masuk melalui Menu Developever atau dengan Menekan tombol shorcut ALT + F11. Buahlah sebuah Module. lalu Paste-kan Script dibawah ini.

 Visual Basic Editor 

Function IFS(ParamArray arguments() As Variant)
REM Auth : ExcelNoob.com
Dim j As Integer: j = UBound(arguments)
Dim c As Integer: c = 1
Dim k As Integer: k = (j + 1) / 2
Dim a As Integer
 
If (j + 1) Mod 2 = 1 Then
    IFS = CVErr(xlErrValue)
    Exit Function  
End If
 
For a = 1 To k
    If arguments(c - 1) Then
        IFS = arguments(c)
        Exit Function
    End If
    c = c + 2
Next a
IFS = CVErr(xlErrNA)
End Function

Jika sudah dipastekan jangan lupa Save sebagai .xlsm atau .xlsb agar script diatas tidak hilang. Untuk penggunaan Fungsi ini, sama seperti fungsi IFS di Excel 2019