Tombol Simpan VBA Excel

Merancang Aplikasi Data untuk menjalankan fungsi penyimpanan data sangat mudah. disini saya mencoba untuk memberikan tutorial singkat menyangkut membuat aplikasi menggunakan VBA Excel dengan fungsi menyimpan data dari UserForm ke Tabel Pada Sheet Excel. 

Mempelajari membuat tombol simpan dan memasukkan kode pada tombol yang dijadikan tombol simpan akan memberikan fungsi untuk menyimpan data (ribet amat yeah tulisan admin). 
Tombol Simpan VBA Excel

Intinya kita akan membuat sebuah commandbutton dengan fungsi sebagai tombol simpan data.

Admin sangat menyarankan bagi yang sedang mempelajari kode Vba Excel agar membuat file contoh penerapan kode.

Dengan membuat file contoh penerapan kode akan mempercepat memahami penggunaan dan fungsi dari kode yang diterapkan


Langkah-Langkah Membuat Tombol "SIMPAN" VBA Excel :
  • Buka Excel, pada "Sheet1" rename jadi "DB", Save File dengan nama "Aplikasi Data" dan buatlah tabel seperti contoh gambar dibawah
  • Pada Tab Developer ==> Visual Basic  Perhatikan Gambar dibawah
  • Rancanglah Userform seperti gambar dibawah ini 
  • Selanjut kita akan bermain di properties, ganti Caption "UserForm1" dengan "Aplikasi Data", ganti (name) Textboxnya : TxtNoInduk, TxtNamaSiswa, TxtAlamat. Untuk OptionButton ganti (name) dengan OptLaki dan OptPerempuan. Untuk CommandButton ganti (name) dengan CmdSimpan dan CmdBatal.
  • Klik kanan pada Tombol Simpan dan View Code, masukkan kode untuk CmdSimpan berikut :

Private Sub CmdSimpan_Click()
Dim Baris As Long
Dim Ws As Worksheet
Dim path As String
Set Ws = Worksheets("DB")

'Temukan Baris
Baris = Ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'peringatan Bila data tidak diisi
If UserForm1.TxtNoInduk.Value = "" Or UserForm1.TxtNamaSiswa.Value = "" Then
MsgBox " Lengkapi Data Yang Kosong..!!!", 48, "Aplikasi Data"
Exit Sub: End If

'Peringatan bila jenis kelamin bleom di pilih
If UserForm1.OptLaki.Value = False And UserForm1.OptPerempuan.Value = False Then
MsgBox "Pilih Jenis Kelamin..!!", 48, "Aplikasi Data"
Exit Sub: End If

If WorksheetFunction.CountIf(Ws.Range("B:B"), TxtNoInduk.Text) = 1 Then
MsgBox "No. Pendaftar Ganda..!!!", 48, "Aplikasi Seleksi Siswa Baru.."
Exit Sub: End If

Ws.Cells(Baris, 1).Value = "=Row()-3"
Ws.Cells(Baris, 2).Value = Me.TxtNoInduk.Value
Ws.Cells(Baris, 3).Value = Me.TxtNamaSiswa.Value
If OptLaki.Value = True Then
Ws.Cells(Baris, 4).Value = "Laki-Laki"
End If
If OptPerempuan.Value = True Then
Ws.Cells(Baris, 4).Value = "Perempuan"
End If
Ws.Cells(Baris, 5).Value = Me.TxtAlamat.Value

MsgBox "Data telah Di Tambah", 64, "Aplikasi Data"
Call CmdBatal_Click
End Sub
  • Untuk Tombol Reset yang berfungsi mereset form pengisian data. masukkan kode berikut ini 
Private Sub CmdBatal_Click()
With UserForm1
.TxtNoInduk.Value = ""
.TxtNamaSiswa.Value = ""
.OptLaki.Value = False
.OptPerempuan.Value = False
.TxtAlamat.Value = ""
End With
End Sub
  • Coba jalankan fungsinya dengan menekan tombol F5. Jika anda mengikuti dengan benar maka Aplikasi Akan Jalan dengan baik.
  • Download File Aplikasi Data

Demikian tutorial cara membuat Tombol Simpan Aplikasi di VBA Excel. Semoga dapat dikembangkan dengan kemampuan dan keperluan masing-masing.

Semoga menjadi Referensi bagi yang sedang mempelajari cara membuat tombol simpan vba excel menggunakan userform.

Jika artikel ini dirasakan bermanfaat dan berguna mohon dapat dishare ke media sosial agar teman-teman lainnya dapat mengetahuinya juga.

Sampaikan pertanyaan, saran dan kritikan pada kolom  komentar yang tersedia.




Berlangganan update artikel terbaru via email:

11 Responses to "Tombol Simpan VBA Excel"

  1. Assalamualaikum abang,
    mohon pencerahan tentang VBA excell.

    Bagaimana membuat perinta edit/ubah pada data yang sudah tersimpan?

    ReplyDelete
    Replies
    1. Untuk membuat perintah tombol Edit bisa di lihat pada link berikut ini
      http://www.senbakusen.com/2015/12/edit-data-melalui-userform-vba-excel.html

      Delete
  2. Saya ada file excel, tidak bisa menampilkan hasil rumus di tiap cell nya.
    karena sudah kadaluarsa. apabila saya ganti date pc saya ditahun sblm kadaluarsanya file akan kembali seperti biasa. bagaimana cara agar saya bisa menghapus expired sehingga bisa digunakan kapanpun ?

    ReplyDelete
    Replies
    1. perintah kadarluarsa dibuat untuk melindungi file aplikasi excel yang dibuat oleh pemiliknya.. menghapus perintah kadarluarsa memang dapat dilakukan.. namun kita harus menghargai program aplikasi yang dibangun dengan pikiran.. waktu dan tenaga. alangkah lebih baik kita menghbungi pemiliki filenya saja..

      Delete
    2. Duper super komentar bang... mantap

      Delete
    3. Terimkasih atas komentar terbaiknya..

      Delete
  3. BAng skalian tambah comboboxnya lagi dong.... banyak makasih sbelumnya...

    ReplyDelete
    Replies
    1. Untuk menambahkan combobox pada baris kode perintah simpan sama saja dengan textbox.. hanya ganti TextBox menjadi Combobox...

      Untuk mengisi List Combobox dalam baris kode dapat dibaca artikel pada link berikut :
      https://www.senbakusen.com/2016/10/vba-excel-pemula-28-pengenalan-combobox.html

      Untuk menambahkan List Combobox dari data cell dapat dipelajari artikel pada link berikut :
      https://www.senbakusen.com/2016/10/vba-excel-pemula-29-pengenalan-combobox.html

      Semoga membantu...!!

      Delete
    2. Makasih banyak bang...
      kira2 file fullnya ada gak bang... boleh saya minta bang... email saya bang... boriiakkaratemhooru@gmail.com
      makasih bang...sudah membantu.. GB

      Delete
    3. Terimkasih atas kunjungannya..!!

      untuk contoh file..silahkan merujuk pada posting dengan alamat url berikut :
      https://www.senbakusen.com/2018/04/contoh-file-penerapan-vba-excel-dan.html

      Delete
  4. master, bila ada tambahan jumlah, harga, total gmna cara buat coding editnya? mks

    ReplyDelete

Komentar Anda Sangat Menentukan Kelangsungan Blog ini

Iklan Atas Artikel

Iklan Tengah Artikel 2

Iklan Bawah Artikel