Pada artikel kali ini, kita akan membahas tentang cara membuat input box, kalender/tanggal pada userform, program kasir konter HP, pengaturan kontrol VBA pada Microsoft Excel, serta cara membuat tombol cetak di Excel menggunakan VBA (Visual Basic for Applications). Tentu saja, kita akan membahasnya dengan bahasa yang mudah dipahami dan disertai dengan gambar untuk memperingan pemahaman kita.
Input Box di VBA Excel
Input box merupakan salah satu elemen interaktif dalam VBA Excel yang memungkinkan pengguna memasukkan nilai atau teks ke dalam sebuah program. Sebagai contoh, input box dapat digunakan untuk meminta pengguna memasukkan nilai untuk variabel, atau untuk meminta pengguna memasukkan suatu teks sebagai judul pada sebuah dokumen. Berikut adalah cara membuat input box di VBA Excel:
1. Buatlah sebuah makro baru dengan menekan tombol ALT + F11.
2. Klik menu “Insert” dan pilih “Module” untuk membuat sebuah module baru.
3. Ketikkan kode berikut untuk membuat input box:
“`
Sub InputBoxExample()
Dim UserInput As String
UserInput = InputBox(“Enter your value or text here”)
MsgBox (“You entered: ” & UserInput)
End Sub
“`
4. Menjalankan kode yang telah kita buat dengan salah satu cara berikut:
– Tekan F5 atau klik tombol Run di menu bar.
– Klik dua kali pada kode di jendela Project Explorer.
– Klik kanan pada nama makro dan pilih Run.
Gambar 1. Contoh penggunaan input box di VBA Excel
Dalam kode di atas, variabel UserInput bertipe String dan berfungsi untuk menyimpan nilai atau teks yang dimasukkan oleh pengguna pada input box. Input box dibuat dengan memanggil fungsi InputBox dengan argumen “Enter your value or text here”, yang akan menjadi pesan prompt yang akan ditampilkan pada input box. Hasil input akan ditampilkan dengan menggunakan fungsi MsgBox.
Kalender/Tanggal pada Userform di VBA Excel
Pada kalian yang masih baru belajar VBA, hal ini sangat berguna bagi kalian yang ingin membuat sebuah program dengan fitur tanggal. Salah satunya membuat sebuah program catat pengeluaran. Kalian bisa menambahkan fitur pilihan tanggal menggunakan kalender. Berikut adalah cara membuat kalender/tanggal pada userform di VBA Excel:
1. Buat Userform baru dengan menekan tombol ALT + F11, lalu klik menu “Insert” dan pilih “Userform”.
2. Tambahkan komponen Date and Time Picker pada userform dengan memilih komponen “Date and Time Picker” dari Toolbox.
3. Tambahkan sebuah tombol Command Button ke Userform dengan memilih komponen tombol pada Toolbox. Setelah berhasil menambahkan tombol ke userform, kalian dapat mengkliknya dan menambahkan kode program.
4. Ketikkan kode berikut:
“`
Private Sub CommandButton1_Click()
Range(“A1”).Value = UserForm1.DateTimePicker1.Value
End Sub
“`
Gambar 2. Tampilan Kalender/Tanggal pada userform VBA Excel
Dalam kode di atas, kami membuat sebuah tombol Command Button yang akan menampilkan tanggal yang dipilih pada sel A1 di lembar kerja. Argumen DateTimePicker1.Value akan memberikan tanggal yang dipilih di komponen Kalender/Tanggal.
Program Kasir Konter HP Sederhana Menggunakan Microsoft Excel
Pada artikel kali ini, kita akan membahas tentang bagaimana cara membuat program kasir konter HP sederhana menggunakan Microsoft Excel. Berikut ini cara membuat program kasir konter HP sederhana menggunakan Microsoft Excel:
1. Buatlah sebuah tabel untuk daftar barang yang dijual pada konter HP sederhana.
2. Tambahkan komponen ActiveX Label, TextBox, ComboBox, dan CommandButton ke Userform.
3. Beri nama komponen seperti yang terlihat pada gambar.
Gambar 3. Tampilan form kasir konter HP sederhana
4. Ketikkan kode program untuk mengisi ComboBox Barang dengan nama barang pada tabel.
“`
Private Sub UserForm_Initialize()
With ComboBoxBarang
.AddItem “Samsung Galaxy S4”
.AddItem “Xiaomi Redmi 4X”
.AddItem “ASUS ZenFone 2”
.AddItem “OPPO F1s”
End With
End Sub
“`
5. Setelah menambahkan komponen ComboBox, tambahkan kode program untuk mengisi TextBox berdasarkan barang yang dipilih oleh pengguna. Kode berikut dapat digunakan untuk mengisi TextBox dengan harga barang yang dipilih dari ComboBox.
“`
Private Sub ComboBoxBarang_Change()
Select Case ComboBoxBarang.ListIndex
Case 0
TextBoxHarga.Value = 3000000
Case 1
TextBoxHarga.Value = 1800000
Case 2
TextBoxHarga.Value = 2500000
Case 3
TextBoxHarga.Value = 2200000
End Select
End Sub
“`
6. Setelah menambahkan fungsi ComboBoxBarang_Change untuk menambahkan harga barang ke TextBox, tambahkan fungsi untuk menghitung total pembayaran yang dilakukan oleh pengguna.
“`
Private Sub CommandButtonHitung_Click()
Dim harga As Long
Dim qty As Integer
Dim total As Long
qty = Val(TextBoxQty.Value)
harga = Val(TextBoxHarga.Value)
total = qty * harga
TextBoxTotal.Value = total
End Sub
“`
7. Terakhir, tambahkan fungsi CommandButtonSelesai_Click saat pengguna menekan tombol “Selesai” pada userform.
“`
Private Sub CommandButtonSelesai_Click()
Dim hasil As VbMsgBoxResult
hasil = MsgBox(“Apakah anda yakin ingin menyelesaikan transaksi?”, _
vbQuestion + vbYesNo, “Konfirmasi Selesai”)
If hasil = vbYes Then
Range(“B2”).Value = Val(Range(“B2”).Value) + Val(TextBoxTotal.Value)
Unload Me
ElseIf hasil = vbNo Then
Exit Sub
End If
End Sub
“`
Dalam kode di atas, variabel hasil digunakan untuk menampilkan kotak pesan konfirmasi apakah pengguna yakin ingin menyelesaikan transaksi. Jika pengguna menekan tombol “Ya”, maka nilai pada sel B2 akan ditambahkan dengan nilai pada TextBoxTotal.
Mengenal Lebih Dekat Pengaturan Kontrol VBA Pada Microsoft Excel
Pada artikel kali ini, kita akan membahas tentang pengaturan kontrol VBA pada Microsoft Excel. Berikut ini adalah penjelasan singkat tentang pengaturan kontrol VBA pada Microsoft Excel:
1. Kontrol Form: Kontrol ini digunakan untuk membuat form utama pada suatu aplikasi. Dalam form ini, kita dapat menambahkan tombol, label, gambar, dan beberapa komponen lainnya.
2. Kontrol Combo Box: Kontrol ini digunakan untuk membuat daftar pilihan yang dapat dipilih oleh pengguna. Seluruh pilihan yang tersedia dapat ditampilkan pada ComboBox.
3. Kontrol Check Box: Kontrol ini digunakan untuk membuat pilihan yang dapat dipilih oleh pengguna. Jika kontrol ini diaktifkan, maka pengguna dapat memilih atau mengaktifkannya.
4. Kontrol Option Button: Kontrol ini digunakan untuk membuat beberapa pilihan yang memungkinkan pengguna untuk memilih salah satu pilihan. Hanya satu pilihan yang dapat dipilih pada satu waktu.
5. Kontrol Label: Kontrol ini digunakan untuk menampilkan teks atau gambar dalam suatu aplikasi. Kontrol ini sering digunakan untuk memberikan deskripsi atau penjelasan tentang suatu aplikasi atau tampilan.
6. Kontrol Text Box: Kontrol ini digunakan untuk memberikan pengguna kemampuan untuk memasukkan teks pada suatu aplikasi. Kontrol ini sering digunakan untuk memberikan pengguna kemampuan untuk memasukkan teks atau nilai numerik, seperti nilai permintaan pembayaran.
7. Kontrol Command Button: Kontrol ini digunakan untuk menambahkan tombol pada aplikasi. Ketika tombol ini ditekan, suatu perintah akan dieksekusi dan dapat ditentukan oleh pengembang.
Cara Membuat Tombol Cetak di Excel dengan VBA
Pada artikel kali ini, kita akan membahas tentang bagaimana cara membuat tombol cetak di Excel menggunakan VBA. Berikut ini cara membuat tombol cetak di Excel menggunakan VBA:
1. Buatlah sebuah tombol Command Button di worksheet dengan memilih Insert > Form Controls > Button pada Ribbon.
2. Klik dua kali tombol Command Button untuk membuka jendela Codes Editor.
3. Ketikkan kode program untuk tombol cetak di Excel seperti berikut:
“`
Private Sub CommandButton1_Click()
ActiveSheet.PrintOut
End Sub
“`
Dalam kode di atas, kami menggunakan perintah PrintOut untuk mencetak lembar kerja aktif.
FAQ
1. Apakah VBA bisa memproses file di luar aplikasi Excel?
– Ya, dengan VBA, Anda dapat mengakses file di luar aplikasi Excel, seperti file teks, file PDF, atau file Word. Anda dapat memanipulasi data dalam file tersebut sebagai bagian dari proses bisnis Anda.
2. Bagaimana cara menjalankan kode VBA di Excel?
– Anda dapat menjalankan kode VBA di Excel dengan menekan tombol F5, atau dengan mengklik tombol Run di menu bar. Anda juga dapat menjalankan kode dengan mengklik dua kali pada kode di jendela Project Explorer, atau dengan mengklik kanan pada nama makro dan memilih Run.