Tutorial Simpan Data Dengan Macro VBA

Daftar Isi Artikel

1 Tutorial Simpan Data Dengan Macro VBA
- 1.1 Langkah-Langkah Membuat Tombol “SIMPAN” VBA Excel :

Merancang Aplikasi Simpan Data Dengan Macro VBA untuk menjalankan fungsi penyimpanan data sangat mudah. disini saya mencoba untuk memberikan tutorial singkat menyangkut membuat aplikasi menggunakan VBA Excel denga fungsi menyimpan data dari UserForm ke Tabel Pada Sheet Excel. ikuti saja langkah-langkah mudah yang saya sajikan ini.

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.

admin

Seorang pengajar dan pembelajar yang mengurus lembaga pelatihan dan kursus komputer bernama LKP Naura

Tutorial Simpan Data Dengan Macro VBA