KODE MACRO INPUT DATA MELALUI USER FORM EXCEL

CARA ENTRI DATA MELALUI USER FORM EXCEL
Anda juga dapat mengunduh contoh file Input Data Menggunakan Userform Excel

Memberikan kepuasan dan kenyamanan bagi pengunjung termasuk prioritas kami sehingga ini akan sangat detail dan singkat, Kami harap Anda meluangkan waktu beberapa menit untuk membaca penjelasan kami secara cermat.

PENJELASAN
Entri data dari userform ke worksheet biasanya digunakan dalam sebuah aplikasi dan ini bisa Anda lakukan dengan membaca Langkah-langkah Membuat Entri Data Melalui Userform Macro Excel sebagai berikut.

Buka Microsoft Excel
Tekan Alt+F11 maka Anda akan disajikan dengan jendela Visual Basic for Application (VBA)
Buatlah satu buah Userform, tiga label, dua textbox, dua optionbutton dan dua commandbutton

Ganti tulisan label1 menjadi Nama Siswa, ganti tulisan label2 Menjadi tempat tanggal lahir, ganti tulisan label3 menjadi jenis kelamin
Ganti tulisan optionbutton1 menjadi Laki-laki, ganti tulisan optionbutton2 menjadi Perempuan
Ganti tulisan commandbutton1 menjadi Simpan, ganti tulisan commandbutton2 menjadi kembali

Klik dua kali tombol simpan dan salin Kode Macro dibawah ini

'membuat deglarasi untuk sebuah inputdata
Dim inputkandata As Long
'yaitu di sheet1
Sheet1.Activate
'nah nama deglarasi terdapat di cell A kesamping dan + 1 digunakan jika dikolom dimaksud sudah ada text/nilai maka otomatis data baru berada di bawahnya
inputkandata = WorksheetFunction.CountA(Range("A:A")) + 1
'==proses input==
Cells(inputkandata, 1).Value = TextBox1.Value
Cells(inputkandata, 2).Value = TextBox2.Value
If OptionButton1.Value = True Then
Cells(inputkandata, 3).Value = "Laki-laki"
Else
If OptionButton2.Value = True Then
Cells(inputkandata, 3).Value = "perempuan"
End If
End If
TextBox1 = ""
TextBox2 = ""
OptionButton1 = ""
OptionButton2 = ""
'Kembali ke textbox1
Me.TextBox1.SetFocus
'vbCrLf berfungsi seperti ENTER
pesan = MsgBox("data sudah tersimpan" & vbCrLf & "Apakah Anda ingin menambah data ?", vbYesNo, "sistem aplikasi")
Select Case pesan
Case vbYes
Me.TextBox1.SetFocus
Case vbNo
Unload Me
End Select
ActiveWorkbook.Save

Klik dua kali tombol kembali dan ketik kode macro ini "Unload Me"
Untuk mencobanya silahkan tekan F5
Simpan dengan type excel macro atau biasanya berextensi .xlsm

Jika Anda melakukan langkah-langkah diatas dengan benar maka sistem akan berjalan dengan lancar dan tidak ada pesan debug.

Aplikasi Form Login Dengan Sistem ON OFF adalah salah satu Koleksi Aplikasi Sederhana Kami yang dibagikan secara gratis dan mungkin ini bisa menjadi salah satu contoh yang dapat Anda unduh secara mudah dan nggak pekek ribet.

Jika Anda masih bingung dan kesulitan untuk memahami / cara membaca Kode macro diatas silahkan hubungi kami untuk meminta bantuan.

"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"

Jabat Erat@Hak Cipta 2015