[100% Worked] Coding Membuat Form Input Data Ke DB Excel VBA

Gambar 1.1 Form Entry/ Input Data

Pembahasan:

• Tutorial Pembuatan Form Untuk Simpan Data ke Database Excel

Kesempatan baik ini Admin akan berbagi cara membuat Entry Data dari Userform ke Sheet Excel. Hal ini tidaklah sulit selama dapat memahami apa saja yang perlu dipersiapkan. 

Daftar Isi:

1. Membuat Variable
2. Menentukan Nama Sheet
3. Mencari Baris Kosong
4. Fungsi Simpan Data Ke Database

Tidak perlu lama lagi, admin akan menjelaskan secara detail agar dapat mudah dimengerti.

Pertama

, buat vairable.

Dim bariskosong As Long
Dim wskNamaSheet As Worksheet

Kedua

, tentukan nama sheet untuk menyimpan data sebagai tempat databasenya.
Set wskNamaSheet = Worksheets("Nama Sheet")

Ketiga

, mencari baris kosong untuk simpan data.
bariskosong = wskNamaSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Keempat

, membuat fungsi untuk simpan data ke database Excel.

With wskNamaSheet
'Fungsi simpan data
.Cells(bariskosong, 1).Value = TBName1.Value
.Cells(bariskosong, 2).Value = TBName2.Value
.Cells(bariskosong, 3).Value = TBName3.Value
.Cells(bariskosong, 4).Value = TBName4.Value
.Cells(bariskosong, 5).Value = TBName5.Value
.Cells(bariskosong, 6).Value = TBName6.Value
.Cells(bariskosong, 7).Value = TBName7.Value
End With

Numerik "bariskosong" merupakan fungsi untuk mencari baris sel yang kosong secara otomatis untuk diisi data, sedangkan

angka 1 - 7 merupakan lokasi kolom yang harus disesuaikan dengan TBName1.Value - TBName7.Value.

Secara Lengkap akan terlihat seperti dibawah ini,

Private Sub TombolSimpanData_Click()

Dim bariskosong As Long
Dim wskNamaSheet As Worksheet

'Setting Worksheet untuk dijadikan Database
Set wskNamaSheet = Worksheets("Nama Sheet")

' Untuk mengecek/ mencari baris kosong pada worksheet
bariskosong = wskNamaSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

With wskNamaSheet
'Fungsi simpan data
.Cells(bariskosong, 1).Value = TBName1.Value
.Cells(bariskosong, 2).Value = TBName2.Value
.Cells(bariskosong, 3).Value = TBName3.Value
.Cells(bariskosong, 4).Value = TBName4.Value
.Cells(bariskosong, 5).Value = TBName5.Value
.Cells(bariskosong, 6).Value = TBName6.Value
.Cells(bariskosong, 7).Value = TBName7.Value
End With

End Sub

Untuk Fungsi simpan data (teks berwarna biru) bisa kalian sesuaikan dengan kebutuhan masing-masing seperti Gambar 1.1 diatas .

Tentunya mudah sekali kan?. Masih terkait VBA, jika ingin mengetahui cara menyimpan data ke database Access bisa baca pada artikel "Input Data Dari Userform Dengan Excel VBA Ke DB Access".