Sabtu, 24 Desember 2016

Logika VBA Sederhana

Seperti yang sudah banyak diketahui oleh para pengguna Excel, fungsi logika (formula IF) digunakan untuk mencari sebuah hasil dari sebuah kondisi yang sudah ditentukan seblumnya, jika kondisi terpenuhi (Sesuai dengan kondisi yang sebelumnya telah ditentukan) maka akan menghasilkan nilai yang benar dan sebaliknya, jika kondisi tidak terpenuhi akan menghasilkan nilai yang salah. Yang secara umum syntax penulisan kode seperti berikut

=IF(Statement,True,false)

Sementara dalam Macro VBA, untuk membuat sebuah Fungsi logika dapat dilakukan melalui banyak metode. Ambil contoh seperti pernyataan berikut :

"Jika Nilai dalam sebuah TextBox sama dengan 1 maka sebuah Tombol akan muncul, jika tidak maka tombol akan sembunyi."

Kode yang tepat untuk menerjemahkan kalimat pernyataan di atas (dengan asumsi dalam sebuah sheet atau Userform terdapat Objek TextBox1 dan CommandButton1) adalah

If TextBox1 = 1 Then
CommandButton1.Visible = True
Else
CommandButton1.Visible = False
End If

Cara Membuat Logika VBA Sederhana

+ Buat atau buka sebuah dokumen excel
+ Aktifkan salah satu Sheet
+ Pilih tab Menu Developer dan pilih grup Insert (ActiveX Control)
+ Pada Grup Insert buat objek berikut dan letakkan dalam sebuah Sheet:

Text Box
Command Button

Cara Membuat Logika VBA Sederhana

+ Klik 2x objek Text Box, sehingga anda akan menuju aplikasi Visual Basic
+ Paste baris kode macro diatas
+ Tutup atau Minimize jendela Aplikasi Visual Basic
+ Sekarang coba ketikkan sebuah nilai dalam Text Box

Jika ingin mengganti kondisi untuk TextBox dalam format teks maka apit dengan tanda " ", contoh :
If TextBox1 = "Admin" then ...

Cara Membuat Logika VBA Sederhana


"Jika Nilai dalam sebuah TextBox sama dengan 1 maka sebuah Tombol OK akan muncul dan Jika Nilai dalam sebuah TextBox sama dengan 2 maka sebuah Tombol BATAL akan muncul , jika tidak maka tombol OK dan BATAL akan sembunyi."

Kode yang tepat untuk menerjemahkan kalimat pernyataan di atas (dengan asumsi dalam sebuah sheet atau Userform terdapat Objek TextBox1, CommandButton1 sebagai tombol OK dan CommandButton2 sebagai tombol BATAL) adalah


If TextBox1 = 1 Then
CommandButton2.Visible = False
CommandButton1.Visible = True
ElseIf TextBox1 = 2 Then
CommandButton1.Visible = False
CommandButton2.Visible = True
else
CommandButton1.Visible = False
CommandButton2.Visible = False
End If

Semoga dapat dipahami, semua tutorial ini dapat diaplikasikan dalam microsoft excel visual basic for application (VBA) - Logika VBA Sederhana


EmoticonEmoticon