Cara Membuat Visual Basic Application (VBA) sederhana Menggunakan Microsoft Visual Basic for Applications dengan Tampilan Form Bagi Para Pemula

Hi, guys!!!

kali ini saut mau ngasih tutorial untuk membuat suatu aplikasi sederhana. Nah, buat temen-temen yang ingin buat suatu aplikasi sederhana gak perlu khawatir lagi, karena sebenarnya buatnya mudah kok. Coding yang digunakan juga simpel.

Selama ini kan kita peke software excel cuma buat itung-itungan, baik finansial, logika, statistik dan lain-lain. Tapi guys, tau gak sih! ternyata dengan excel kita juga bisa buat aplikasi sederhana loh. Microsoft Excel ternyata menyediakan Visual Basic Application pada developer nya. Wah, pasti dah pada penasaran kan?? ya sudah langsung aja ya kita ke implementasinya.

Kali ini kita mau buat aplikasi untuk penjualan ayam penyet guys, miriplah seperti yang di minimarket gitu, tapi gak sebagus yang minimarket punya juga sih, heheh. Maklum masih pemula, belum ulung, hehehe.

Macro Excell :

1.   Buatlah tampilan pada Sheet1 pada  Worksheet Excel seperti dibawah ini.

Pilih  Developer  - Insert  - Combo Box

Pilih  Developer  - Insert  - Check Box

Pilih  Developer  - Insert  - Command Button

kemudian klik kanan Command Button - Properties - Caption, ubahlah Caption name-nya menjadi Cetak Struk

Tampilan Developer

Pilih insert - shape - Up Arrow

Pilih insert - shape - Down Arrow

Tampilan Insert

Tampilan yang Dibuat di Sheet1 pada  Worksheet Excel

2.                  Buatlah  sebuah UserForm  dengan tampilan  seperti berikut :

Developer - Visual Basic - Insert - UserForm

Tampilan yang Dibuat

3.                  Buatlah  sebuah modul  kemudian susun Coding Modul-nya

Developer -Visual Basic - Insertà Module

Klik ganda pada  Module, ketikkan Coding dibawah ini :

Function harga_awal_Paket(harga, jumlah)

harga_awal_Paket = harga * jumlah

End Function

Function Potongan_harga(harga_Paket, Diskon)

Potongan_harga = harga_Paket * Diskon

End Function

Function Harga_Total(harga_Paket, Potongan_harga)

Harga_Total = harga_Paket - Potongan_harga

End Function

'Penambahan Jumlah Pesanan

Sub Naikkan()

Range("E6") = Range("E6") + 1

End Sub

'Pengurangan Jumlah Pesanan

Sub Turunkan()

If Range("E6") = 0 Then

MsgBox ("Masukkan Jumlah Pesanan Anda")

Else

Range("E6") = Range("E6") - 1

End If

End Sub

'Penghasilan

Sub Omset()

Range("J8") = Range("J6")

End Sub

Tampilan Coding pada Module

4.                  Assign Macro sesuai dengan kriteria

Klik kanan pada shape - Assign Macroà Pilih Macro Name - Ok

Assign Macro

5.                  Buatlah  Coding  pada  Sheet1

Developer - Visual Basic - Klik ganda pada Sheet1

ketikkan Coding dibawah ini :

Dim dropbuttonclick As Boolean

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then

Sheet1.Range("H6").Value = 0.045

            Else

Sheet1.Range("H6").Value = 0

End If

End Sub

Private Sub ComboBox1_dropbuttonclick()

dropbuttonclick = Not dropbuttonclick

If dropbuttonclick = True Then

ComboBox1.Clear

Cells(6, 3) = ""

Cells(6, 4) = ""

ComboBox1.AddItem ("NMRL")

ComboBox1.AddItem ("FMLY")

ComboBox1.AddItem ("BTHDY")

End If

End Sub

Private Sub combobox1_change()

If ComboBox1.Value = "NMRL" Then

Cells(6, 3) = "Paket Biasa"

Cells(6, 4) = 24500

ElseIf ComboBox1.Value = "FMLY" Then

Cells(6, 3) = "Paket Keluarga"

Cells(6, 4) = 175000

ElseIf ComboBox1.Value = "BTHDY" Then

Cells(6, 3) = "Paket Ulang Tahun"

Cells(6, 4) = 275000

End If

End Sub

Private Sub CommandButton1_Click()

struk1.Label9 = Cells(6, 1)

struk1.Label10 = Sheet1.ComboBox1.Text

struk1.Label11 = Cells(6, 3)

struk1.Label12 = Cells(6, 4)

struk1.Label13 = Cells(6, 8)

struk1.Label14 = Cells(6, 7)

struk1.Label16 = Cells(6, 5)

struk1.Label18 = Cells(6, 10)

struk1.Show

End Sub

  

Tampilan Coding pada Sheet1

6.                  Run Program

Tampilan Run Program

7.                  Buka kembali tampilan worksheet yang telah di disain, kemudian isikan data sesuai keinginan lalu jalankan programnya.

(1)   Menjalankan Rumus Fungsi Macro :

-          Fungsi pada Combo Box

Hasil Tampilan untuk Fungsi pada Combo Box

                                

                                                          

-          Fungsi Menaikan dan mengurangi jumlah pesanan

Hasil Tampilan untuk Fungsi Menaikan dan mengurangi Jumlah Pesanan

-          Fungsi Persen Diskon

Klik pada CheckBox hingga muncul tanda centang

Hasil Tampilan untuk Fungsi  Persen Diskon

-          Fungsi Harga Awal Paket

Hasil Tampilan untuk Fungsi Harga Awal Paket

-          Fungsi Potongan Harga

 Hasil Tampilan untuk Fungsi  Potongan Harga

-          Fungsi Harga Total

Hasil Tampilan untuk Fungsi  Harga Total

-          Fungsi  Omset

 Hasil Tampilan untuk Fungsi  Omset

(2)   Menampilkan UserForm

-          Klik pada Command Button (Cetak Struk)

Hasil Tampilan UserForm

*******

Wah, simpel kan guys. Bagaimana? Jalan gak aplikasinya? Semoga temen-temen bisa ngikuti dengan benar ya. Jangan sampai salah dalam menuliskan coding ya guys. terkhusus untuk name pada tombol-tombol fungsinya. karena kalau sampai salah yang ada program gak akan jalan, dan bakalan error terus.

Sekian tutorial untuk VBA, thanks uda ngunjungi blog aku ya guys,,,,,,:):):)

Sampai ketemu di artikel berikutnya!!!