Macro for Newbie: Menggunakan Syntax IF-THEN

Macro for Newbie: Menggunakan Syntax IF-THEN

Mungkin bahwa dalam pemrograman Macro/VBA, syntax atau perintah If-Then adalah yang paling sering kita gunakan. Perintah If-Then digunakan untuk menjalankan perintah atau syntax lain berdasarkan kondisi tertentu, artinya bila memerlukan perintah yang berbeda bila dalam kondisi yang bervariasi, maka syntax ini akan sangat berguna. Seperti biasa, bila anda belum familiar dengan bahasa pemrograman Visual Basic for Applications (VBA) atau lebih sering disebut Macro silahkan baca posting "Membuat Aplikasi dalam Excel".

Format dasar penulisan perintah If-The adalah seperti ini:

If kondisi Then instruksi_benar [Else intruksi_salah]

Syntax Else bersifat optional, artinya bisa tidak disertakan dalam perintah If-Then. Contoh penggunaan perintah If-Then:

Sub HargaDiskon()
   jumlah = 650  

   If jumlah >= 500 Then diskon = 0.10

   MsgBox = "Diskon : " & diskon

End Sub

Bila jumlah lebih dari atau sama dengan 500, maka ditentukan diskon sebesar 0.10 (10.0%)

Sub HargaDiskon()
   jumlah = 650 

   If jumlah >= 500 Then diskon = 0.10

   If jumlah < 500 Then diskon = 0.05

   MsgBox = "Diskon : " & diskon

End Sub

Seperti contoh sebelumnya, tapi ditambahkan kondisi bila jumlah kurang dari 500, diskon menjadi 0.05 (5.0%)

Kedua contoh diatas bisa digabung dengan perintah yang lebih singkat menjadi:

Sub HargaDiskon()
   jumlah = 250 

   If jumlah >= 500 Then diskon = 0.10 Else diskon = 0.05

   MsgBox = "Diskon : " & diskon

End Sub

atau kita ubah menjadi bentuk seperti ini:

Sub HargaDiskon()
    jumlah = 150 

   If jumlah >= 500 Then

        diskon = 0.10
   Else

        diskon = 0.05
   End If   

   MsgBox = "Diskon : " & diskon

End Sub

Kedua contoh diatas akan menghasilkan output yang sama, bila kondisi perhitungan lebih rumit, kita bisa menggunakan bentuk seperti ini:

Sub HargaDiskon()
   jumlah = 600 

   If jumlah >= 500 Then

       diskon = 0.10
   ElseIf jumlah >=250 Then

       diskon = 0.05

   Else
       diskon = 0.03
   End If
   MsgBox = "Diskon : " & diskon

End Sub

Silahkan mencoba contoh-contoh diatas, variasikan nilai dari variable jumlah untuk memperoleh hasil yang berbeda juga sesuai dengan kondisi If-Then. Selamat mencoba...