Fungsi IF pada VBA Excel Untuk menggunakan fungsi

Fungsi IF pada VBA Excel

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 2> bernilai True maka <blok kode program 2> akan dikerjakan dan bila <kondisi 1> dan <kondisi 2> bernilai False maka <blok kode program 3> yang akan di kerjakan.

Contoh sederhana penggunaan IF Else Buka Aplikasi Microsoft Excel. Tekan tombol Alt+F 11 untuk menampilkan jendela Microsoft Visual Basic. Klik kanan pada Sheet 1(Sheet 1) pada VBAProject dan pilih view code. Kemudian masukkan script berikut ini: Private Sub Worksheet_Selection. Change(By. Val Target As Range) If Range("A 1") = 1 Then Range("B 1") = "Satu" Range("A 1"). Interior. Color. Index = 6 Else. If Range("A 1") = 2 Then Range("B 1") = "Dua" Range("A 1"). Interior. Color. Index = 4 Else. If Range("A 1") = 3 Then Range("B 1") = "Tiga" Range("A 1"). Interior. Color. Index = 3 End If End Sub

Setelah selesai, coba ketikkan angka 1, 2 dan 3 pada Sheet 1 Cell A 1 maka hasilnya akan seperti gambar ini: Terakhir jika ingin menyimpannya silahkan pilih ekstensi *. xlsm atau *. xlsb.