Ads Here

Monday, October 22, 2018

Cara Menggunakan IF Else di Excel


Fungsi IF pada VBA Excel merupakan salah satu dari struktur kontrol, struktur kontrol adalah perintah dengan bentuk (struktur) tertentu yang digunakan untuk mengatur (mengontrol) jalannya program.

Fungsi IF Else sangat banyak kegunaannya dalam pemrograman Macro VBA Excel seperti untuk pembuatan Form Login atau bisa juga untuk Validasi TextBox dan masih banyak lagi kegunaannya.

Untuk menggunakan fungsi IF di VBA Excel, penulisan (syntax)nya ada beberapa cara seperti:

IF<kondisi>THEN <blok kode program> END IF

Bila kondisi bernilai True maka blok kode program akan dikerjakan.

IF <kondisi> THEN
     <blok kode program 1>
ELSE
     <blok kode program 2>
END IF

Bila kondisi bernilai True maka blok kode program 1 yang akan dikerjakan, tetapi bila kondisi bernilai False maka blok kode program 2 yang akan dikerjakan.

IF <kondisi 1> THEN
     <blok kode program 1>
ELSEIF <kondisi 2> THEN
     <blok kode program 2>
ELSE
     <blok kode program 3>
END IF

Bila kondisi 1 bernilai True maka blok kode program 1 akan dikerjakan, bila kondisi 2bernilai True maka blok kode program 2 akan dikerjakan dan bila kondisi 1 dan kondisi 2bernilai False maka blok kode program 3 yang akan di kerjakan.

Contoh sederhana penggunaan IF Else adalah sebagai berikut:

1Buka Aplikasi Microsoft Excel.

2Tekan tombol Alt+F11 untuk menampilkan jendela Microsoft Visual Basic.

3Klik kanan pada Sheet1(Sheet1) pada VBAProject dan pilih view code.

4Kemudian masukkan script berikut ini:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = 1 Then
   Range("B1") = "Satu"
   Range("A1").Interior.ColorIndex = 6
ElseIf Range("A1") = 2 Then
   Range("B1") = "Dua"
   Range("A1").Interior.ColorIndex = 4
ElseIf Range("A1") = 3 Then
   Range("B1") = "Tiga"
   Range("A1").Interior.ColorIndex = 3
End If
End Sub

5Setelah selesai, coba ketikkan angka 1, 2 dan 3 pada Sheet 1 Cell A1 maka hasilnya akan seperti gambar ini:


6Terakhir jika ingin menyimpannya silahkan pilih ekstensi *.xlsm atau *.xlsb.

Sumber : https://www.rumusexcel.com

No comments:

Post a Comment