Cara Membuat Aplikasi Virtual Basic Art (VBA) Excel
Permisi semua...
Kali ini saya akan memberikan langkah-langkah untuk membuat aplikasi VBA di microsoft excel. Aplikasi yang saya buat adalah "Data Utang".
1. Buka excel, dan klik file lalu pilih option.
2. Selanjutnya ceklis developer pada main tabs di kanan, dan klik ok.
3. Setelah melakukan hal diatas, mulai buatlah data yang di inginkan, dan di sini saya membuat data tentang catatan utang, dimana terdapat catatan tentang utang yang dimiliki.
5. Selanjutnya buat data yan sesuai, dengan cara mengetik insert dan pilih user form. lalu buatlah label, textbox, dan commandbutton, menggunakan toolbox yang ada.
6. Setelah semua form sudah di buat, maka klik simpan dua kali dan masuk kan rumus yang sesuai, termasuk rumus selesai dll.
Saya memasukkan rumus pada simpan dan selesai, yaitu :
Private Sub Simpan_Click()
Dim Kosong As Long
Sheet1.Activate
Kosong = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(Kosong, 1).Value = Tanggal.Value
Cells(Kosong, 2).Value = Nama.Value
Cells(Kosong, 3).Value = Jumlah.Value
Cells(Kosong, 4).Value = frekuensi.Value
Cells(Kosong, 5).Value = jangka.Value
End Sub
Private Sub Selesai_Click()
Unload Me
End Sub
7. Terakhir, jika rumus sudah ditulis dengan benar,ntekan tombol play. Dan jika rumus benar maka aplikasi dapat dipakai, selanjutnya masukkan data pada aplikasi dan tekan tombol simpan lalu tekan tombol selesai.
Sekian yang bisa saya berikan, kurang lebihnya mohon maaf, terima kasih.
Kali ini saya akan memberikan langkah-langkah untuk membuat aplikasi VBA di microsoft excel. Aplikasi yang saya buat adalah "Data Utang".
1. Buka excel, dan klik file lalu pilih option.
2. Selanjutnya ceklis developer pada main tabs di kanan, dan klik ok.
3. Setelah melakukan hal diatas, mulai buatlah data yang di inginkan, dan di sini saya membuat data tentang catatan utang, dimana terdapat catatan tentang utang yang dimiliki.
4. Lalu, klik developer dan pilih visual basic di pojok kiri dan akan muncul seperti di gambar.
5. Selanjutnya buat data yan sesuai, dengan cara mengetik insert dan pilih user form. lalu buatlah label, textbox, dan commandbutton, menggunakan toolbox yang ada.
6. Setelah semua form sudah di buat, maka klik simpan dua kali dan masuk kan rumus yang sesuai, termasuk rumus selesai dll.
Saya memasukkan rumus pada simpan dan selesai, yaitu :
Private Sub Simpan_Click()
Dim Kosong As Long
Sheet1.Activate
Kosong = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(Kosong, 1).Value = Tanggal.Value
Cells(Kosong, 2).Value = Nama.Value
Cells(Kosong, 3).Value = Jumlah.Value
Cells(Kosong, 4).Value = frekuensi.Value
Cells(Kosong, 5).Value = jangka.Value
End Sub
Private Sub Selesai_Click()
Unload Me
End Sub
7. Terakhir, jika rumus sudah ditulis dengan benar,ntekan tombol play. Dan jika rumus benar maka aplikasi dapat dipakai, selanjutnya masukkan data pada aplikasi dan tekan tombol simpan lalu tekan tombol selesai.
Sekian yang bisa saya berikan, kurang lebihnya mohon maaf, terima kasih.


Komentar
Posting Komentar