BELAJAR VBA SESSION 1 - Crud Input Data

Kali ini Blog Belajar VBA Macro Excel  akan mengupas bagaimana input data menggunakan script vba macro. Dalam Session 1 ini kita akan mengupas bagaimana input data menggunakan macro, sehingga ketika klik tombol simpan (command bar) data akan tersimpan otomatis ke dalam sheet tabel dibawahnya.

1. Pertama tama buatlah tampilan seperti dibawah ini :
   
   
   
   
2. Selanjutnya lakukan merge  cell C2:D2, seperti silahkan perhatikan gambar dibawah ini:
   
   
   Keterangan
   pastikan tab berada diposisi Home, kemudian sorot C2 sampai D2 seperti no.1 digambar, kemudian klik merge center seperti ditunjukan pada no.2
   
   
3. Selanjutnya lakukan merge  cell C3:D3, seperti silahkan perhatikan gambar dibawah ini:
   
   
   Keterangan
   pastikan tab berada diposisi Home, kemudian sorot C3 sampai D3 seperti no.1 digambar, kemudian klik merge center seperti ditunjukan pada no.2
   
   
4. Selanjutnya lakukan merge  cell C4:D4, seperti silahkan perhatikan gambar dibawah ini:
   
   
   Keterangan
   pastikan tab berada diposisi Home, kemudian sorot C4 sampai D4 seperti no.1 digambar, kemudian klik merge center seperti ditunjukan pada no.2
   
   
5. Selanjutnya Klik Develover kemudian lanjutkan seperti dalam keterangan  gambar dibawah ini:
   
   
   Keterangan
   - Klik insert (no.2) kemudian klik no.3 dan tempelkan di no.4


6. Selanjutnya Klik Kanan CommandButton1 kemudian pilih properties seperti dalam keterangan  gambar dibawah ini, maka akan muncul kotak properti :
   
   
   
   
   
   Keterangan
   - Ganti name seperti ditunjuk tanda panah dari CommandButton1 menjadi cmdSave


7. Selanjutnya Klik Ganti Nilai Caption menjadi Save seperti dalam gambar dibawah ini :
   
   
   
   
   
   Keterangan
   - Ganti name seperti ditunjuk tanda panah dari CommandButton1 menjadi cmdSave


8. Ganti Nama Sheet menjadi Macro, seperti silahkan perhatikan gambar dibawah ini:
   
   
   
   
9. Selanjutnya Klik No.1 Design Mode (pastikan sampai berubah warna jadi agak gelap, artinya kita ada dalam mode Design) seperti dalam gambar dibawah ini :
   
   
   
   
   
   Keterangan
   - Double klik No.2 (Command Button Save)

    Rubah kode ini :
    
    Private Sub cmdSave_Click()
	.....
	End Sub	
    
    Menjadi seperti ini :
    
    Private Sub cmdSave_Click()
    Dim lngBaris As Long
    If Worksheets("Macro").Cells(2, 3) = "" Then
        MsgBox "isian nama tidak boleh kosong!"
        Exit Sub
    End If
    If Worksheets("Macro").Cells(3, 3) = "" Then
        MsgBox "isian alamat tidak boleh kosong!"
        Exit Sub
    End If
    If Worksheets("Macro").Cells(4, 3) = "" Then
        MsgBox "isian kota tidak boleh kosong!"
        Exit Sub
    End If
    
    lngBaris = 9
    Do While True
        If Worksheets("Macro").Cells(lngBaris, 2) = 0 Then Exit Do
        lngBaris = lngBaris + 1
    Loop
    
    Worksheets("Macro").Cells(lngBaris, 2) = Worksheets("Macro").Cells(2, 3)
    Worksheets("Macro").Cells(lngBaris, 3) = Worksheets("Macro").Cells(3, 3)
    Worksheets("Macro").Cells(lngBaris, 4) = Worksheets("Macro").Cells(4, 3)
    MsgBox "Penyimpanan selesai"
	
    End Sub



10. Selanjutnya Klik Design Mode (pastikan sampai berubah warna menjadi kembali terang, artinya kita ada dalam mode Normal) seperti dalam gambar dibawah ini :
    
    
    
    
    


Selanjutnya Pemrograman macro sudah selesai dibuat silahkan coba, dengan mengisi bagian no.1 kemudian klik save dibagian no.2 jika keluar pesan Penyimnanan selesai berarti pemrograman vba macro selesai dibuat :

Semoga bermanfaat, jika ada yang mau ditanyakan silahkan tulis di comment :