How to Create Input Data Forms VBA in Excel | Baskara Tutorial
ฝัง
- เผยแพร่เมื่อ 26 ต.ค. 2018
- Cara Membuat Form Input Data untuk Database Excel
untuk meringankan pekerjaan anda di kantor.
silahkan pilih yg paling bawah yg tanpa iklan jd g repot2 klik iklan wkkw
Tetap dukung kami agar terus berkarya dengan cara subscribe, like dan bagikan video ini.
Untuk setiap pertanyaan yg teman-teman ajukan, akan kami jawab dengan video tutorial.
jadi mohon maklum jika komentar tidak kami balas semua.
Nyari Domain murah aman dan cepet? ya niagahoster dong.
Dapatkan Domain murah dengan diskon upto 70% dengan memasukan kode dari baskara loh
order domain di : bit.ly/domainbaskara
Kode Kuponnya : baskaradiskon
ayo kapan lagi dapet domain murah cepet enteng ngegassss.... murah lagi...
kuy daftar
✰ HARAP BACA PERTAMA INI ✰
➭ File dilindungi oleh kata sandi
➭ Tonton Tutorial ini di Aplikasi TH-cam Anda untuk mendapatkan kata sandi.
➭ Kata Sandi akan muncul sebagai Kartu (Sudut kanan atas layar)
✰ FILE LATIHAN SUDAH KAMI SEDIAKAN DIBAWAH INI ✰
➭FILE LATIHAN : bit.ly/forminputbaskara
➭MIRROR : TIDAK ADA
➭SCRIPT : TIDAK ADA
➭MIRROR : TIDAK ADA
UNTUK MENDAPATKAN SEMUA FILE LATIHAN YANG ADA DI CHANNEL INI TANPA PASSWORD SILAHKAN KLIK LINK DIBAWAH INI MURAH MULAI DARI IDR.50.000;- Saja:
bit.ly/filelengkapbaskaratuto...
KASIH KAMI KOPI BIAR TETAP BERKREASI DENGAN CARA KLIK LINK DIBAWAH INI :
bit.ly/donasipakekopi
INFO :
APLIKASI EDIT
Premiere Pro CC
APLIKASI REKAM SUARA
Audition CC
SCREEN RECORD
Obs Studio
MIC
BM800
PLAYLIST TUTORIAL DI CHANNEL INI
BASKARAPEDIA
bit.ly/baskarapedia
APLIKASI EXCEL
bit.ly/aplikasiexcell
APLIKASI INVENTORI EXCEL
bit.ly/inventoriexcel
APLIKASI ANALISIS PENJUALAN EXCEL
bit.ly/analisispenjualan
APLIKASI TRANSAKSI PENJUALAN EXCEL
bit.ly/transpenjualan
APLIKASI STOCK BARANG EXCEL
bit.ly/stokbarangexcel
APLIKASI RAPOR EXCEL
bit.ly/raporexcel
APLIKASI KEHADIRAN EXCEL
bit.ly/presensiexcel
APLIKASI PENGELOMPOKAN BARANG
bit.ly/groupingexcel
Channel Lain
rebrand.ly/padarincang
Fanspage
/ baskaratutorial
#baskaratutorial #tutorialexcelpemula #tutorialvbaexcel #tutorialexcel #tutorialmacroexcel
form input yg lain nih... gak pake password langsung gas
th-cam.com/video/WqELQd4PHto/w-d-xo.html
Mas admin, terima kasih video tutorial nya .. sangat membantu .. kalau boleh saya minta dikirimkan scrypt nya ke email saya mas, lukmansmart2016@gmail.com
Terima Kasih Channel Baskara Tutorial Sangat Membantu Sekali Jikw Berkenan Untuk Mengirimkan Script.y di email saya
Prince.latiief@gmail.com
terima kasih video tutorial nya .. sangat membantu sekali .. jika berkenan saya minta dikirimkan scrypt nya ke email saya yaaa mas, yusdiirvan88.aws@gmail.com
pak baskara, sy sdh masuk ke web panjenengan, www.baskaratutorial.com/2019/05/cara-membuat-form-input-data-untuk.html
dan sdh sy download file excel, tp saat sy ingin custome form, ternyata ada password,
sudah berkali-kali reload video ini yg tujuanya agar nemu password, ternyata stlh ketemu passwordx, kok masih invalid password? mohon bantuanya, kirim password VB ke halim.ashiddiqy@gmail.com, maturnuwon....
Passwordnya "kepo" tanp tanda kutip
Ulasan yg sangat mudah dipahami, tidak membingungkan,
Ilmu yg sangat berharga, Semoga om selalu dberikan kesehatan.
Sukses selalu maju trus..
Buat donk mail merge hasil data ke word, ditunggu tutorialnya... Tetap berkarya mas...
kalo gak salah ada di channel ini video tntng mailmerge
Sangat membantu sekali semoga bisa berkarya terus... semoga kita yang awam juga bisa ikut belajar, terima kasih..👍
Mantap pak, ditunggu tutorial2 berikutnya.
Pak gmn klo utk perkalian... Misal input A... It d kali 12 input B itu d kali 15.. Jadi saat masukan parameter tinggal d kali inputan mana
Mohon maaf... ini yg saya dapat...
silahkan di amati dan di pelajari tanyakan ke ADMIN untuk lebih jelasnya
makasih...
Private Sub UserForm_Activate()
Dim Ws As Worksheet
Set Ws = Worksheets("DATABASE")
txtNOMOR.SetFocus
End Sub
'menyimpan data
Private Sub cmdINPUT_Click()
Dim iRow As Long
Dim Ws As Worksheet
Set Ws = Worksheets("DATABASE")
'menemukan baris kosong pada database
iRow = Ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'Cek untuk sebuah kode
If Trim(Me.txtNOMOR.Value) = "" Then
Me.txtNOMOR.SetFocus
MsgBox "TIDAK MENGOSONGKAN NOMOR URUT"
Exit Sub
End If
'menemukan nomor yang sama
Data = Me.txtNOMOR.Value
With Worksheets("DATABASE").Range("A5:A45")
Set C = .Find(Data, LookIn:=xlFormulas)
If C Is Nothing Then
MsgBox "CEK NOMOR URUT IS OKE"
Else
MsgBox "NOMOR URUT SUDAH ADA"
Me.txtNOMOR.Value = ""
Me.txtNOMOR.SetFocus
Exit Sub
End If
End With
'copy data ke database
Ws.Cells(iRow, 1).Value = Me.txtNOMOR.Value
Ws.Cells(iRow, 2).Value = Me.txtNISN.Value
Ws.Cells(iRow, 3).Value = Me.txtSISwa.Value
Ws.Cells(iRow, 4).Value = Me.txtLAHIR.Value
Ws.Cells(iRow, 5).Value = Me.cmbGENDER.Value
Ws.Cells(iRow, 6).Value = Me.cmbAGAMA.Value
Ws.Cells(iRow, 7).Value = Me.cmbSTATUS.Value
Ws.Cells(iRow, 8).Value = Me.cmbANAKE.Value
Ws.Cells(iRow, 9).Value = Me.txtALMTSISWA.Value
Ws.Cells(iRow, 10).Value = Me.txtHPSISWA.Value
Ws.Cells(iRow, 11).Value = Me.txtSKLASAL.Value
Ws.Cells(iRow, 12).Value = Me.cmbKELAS.Value
Ws.Cells(iRow, 13).Value = Me.txtTERIMA.Value
Ws.Cells(iRow, 14).Value = Me.txtAYAH.Value
Ws.Cells(iRow, 15).Value = Me.txtIBU.Value
Ws.Cells(iRow, 16).Value = Me.txtALMTORTU.Value
Ws.Cells(iRow, 17).Value = Me.txtHPORTU.Value
Ws.Cells(iRow, 18).Value = Me.cmbKRJAYAH.Value
Ws.Cells(iRow, 19).Value = Me.cmbKRJIBU.Value
Ws.Cells(iRow, 20).Value = Me.txtWALI.Value
Ws.Cells(iRow, 21).Value = Me.txtALMTWALI.Value
Ws.Cells(iRow, 22).Value = Me.txtHPWALI.Value
Ws.Cells(iRow, 23).Value = Me.cmbKRJWALI.Value
'clear data
Me.txtNOMOR.Value = ""
Me.txtNISN.Value = ""
Me.txtSISwa.Value = ""
Me.txtLAHIR.Value = ""
Me.cmbGENDER.Value = ""
Me.cmbAGAMA.Value = ""
Me.cmbSTATUS.Value = ""
Me.cmbANAKE.Value = ""
Me.txtALMTSISWA.Value = ""
Me.txtHPSISWA.Value = ""
Me.txtSKLASAL.Value = ""
Me.cmbKELAS.Value = ""
Me.txtTERIMA.Value = ""
Me.txtAYAH.Value = ""
Me.txtIBU.Value = ""
Me.txtALMTORTU.Value = ""
Me.txtHPORTU.Value = ""
Me.cmbKRJAYAH.Value = ""
Me.cmbKRJIBU.Value = ""
Me.txtWALI.Value = ""
Me.txtALMTWALI.Value = ""
Me.txtHPWALI.Value = ""
Me.cmbKRJWALI.Value = ""
Me.txtNOMOR.SetFocus
MsgBox "DATA SUDAH DIENTRY KE DATABASE"
End Sub
Private Sub UserForm_Initialize()
With cmbGENDER
.AddItem "Laki-Laki"
.AddItem "Perempuan"
End With
With cmbAGAMA
.AddItem "Islam"
.AddItem "Protestan"
.AddItem "Katholik"
.AddItem "Hindu"
.AddItem "Budha"
End With
With cmbSTATUS
.AddItem "Anak Kandung"
.AddItem "Anak Tiri"
.AddItem "Anak Asuh"
.AddItem "Anak Angkat"
End With
With cmbANAKE
.AddItem "1(satu)"
.AddItem "2(dua)"
.AddItem "3(tiga)"
.AddItem "4(empat)"
.AddItem "5(lima)"
.AddItem "6(enam)"
.AddItem "7(tujuh)"
.AddItem "8(delapan)"
.AddItem "9(sembilan)"
.AddItem "10(sepuluh)"
.AddItem "11(sebelas)"
.AddItem "12(selusin)"
End With
With cmbKELAS
.AddItem "7(tujuh)"
.AddItem "8(delapan)"
.AddItem "9(sembilan)"
End With
With cmbKRJAYAH
.AddItem "PNS"
.AddItem "POLRI"
.AddItem "TNI"
.AddItem "Pegawai Pemerintah"
.AddItem "Pegawai Swasta"
.AddItem "Wiraswasta"
.AddItem "LSM"
.AddItem "Tani"
.AddItem "Buruh"
.AddItem "Nanem Jagung"
End With
With cmbKRJIBU
.AddItem "PNS"
.AddItem "POLRI"
.AddItem "TNI"
.AddItem "Pegawai Pemerintah"
.AddItem "Pegawai Swasta"
.AddItem "Wiraswasta"
.AddItem "IRT"
.AddItem "Tani"
.AddItem "Buruh"
.AddItem "LSM"
.AddItem "Dukun Beranak"
End With
With cmbKRJWALI
.AddItem "PNS"
.AddItem "POLRI"
.AddItem "TNI"
.AddItem "Pegawai Pemerintah"
.AddItem "Pegawai Swasta"
.AddItem "Wiraswasta"
.AddItem "LSM"
.AddItem "Tani"
.AddItem "Dukun Batu Akik"
End With
End Sub
'membatalkan input data
Private Sub cmdBATAL_Click()
Me.txtNOMOR.Value = ""
Me.txtNISN.Value = ""
Me.txtSISwa.Value = ""
Me.txtLAHIR.Value = ""
Me.cmbGENDER.Value = ""
Me.cmbAGAMA.Value = ""
Me.cmbSTATUS.Value = ""
Me.cmbANAKE.Value = ""
Me.txtALMTSISWA.Value = ""
Me.txtHPSISWA.Value = ""
Me.txtSKLASAL.Value = ""
Me.cmbKELAS.Value = ""
Me.txtTERIMA.Value = ""
Me.txtAYAH.Value = ""
Me.txtIBU.Value = ""
Me.txtALMTORTU.Value = ""
Me.txtHPORTU.Value = ""
Me.cmbKRJAYAH.Value = ""
Me.cmbKRJIBU.Value = ""
Me.txtWALI.Value = ""
Me.txtALMTWALI.Value = ""
Me.txtHPWALI.Value = ""
Me.cmbKRJWALI.Value = ""
Me.txtNOMOR.SetFocus
MsgBox "DATA SUDAH DIENTRY KE DATABASE"
End Sub
'tombol keluar
Private Sub cmdKELUAR_Click()
Unload Me
End Sub
'perintah keluar menggunakan tombol perintah
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Tekan Tombol 'KELUAR', Exit"
End If
End Sub
Kirim lewat email dong skripnya
please kirim donk skripnya lewat. wisnusaputra93@gmail.com
Bisa minta tolong skripnya dikirim lewat email lentera_koko@yahoo.com
Trimakasih..maaf merepotkan
alhamdulillah sy dapat ilmu, terima kasih bang..
Terbaik serta bermanfaat bagi kita semua, terima kasih banyak 👍
karena masih banyak yg bingung, saya pisah ya script dan file nya silahkan cek deskripsi.
password muncul di sudut kanan atas, jangan dskip jika ingin password muncul thx
Baskara Tutorial script file nya egk bisa dibuka mas,bisa tolong kirim kn ke email saya delviani1401@gmail.com terima ksih mas😊
boleh minta scrip nya om ..di zhambackq@gmail.com...terimakasih sebelumnya
Om Baskara tolong kirim script filenya ke indra.gtplantc@gmail.com
Boleh di kirim scrip nya mas ke email fadriyansyah@gmail.com makasih🙏
Om Baskara boleh minta script nya ke saya. pryan3432ube@gmail.com
Makasih
Selamat pagi, pak. Terima kasih atas ilmunya dlm tutorial ini.
Keren ni materi yg lama terlupakan, jadi ingat lagi.sukses selalu🙏
Luar biasa ilmu nya pak, terima kasih banyak 🙏
asik banget tutorialnya....good
Luar biasa sharing nya Pak , semoga sukses selalu
Lebih baik daripada yg pra kerja, gratis pula..semangat untuk terus berbagi ilmunya boss..Bisa makin banyak pahala.
Alkhamdulilah semoga berkah
Terimakasih. Mengingatkan pelajaran saya yang dulu terlupa
Terima kasih mas baskara ilmunya bermanfaat...
Terimakasih video tutorialnya, sangat2 bagus
Terima kasih Bang
"BASKARA TUTORIAL" mantap
Alhamdulilla...terimakasih ya pak. Sangat bermanfaat iutk saya.
Mksh tutorialnya. Sangat bermanfaat.
ini baru tutorial,jelas sekali penjelasannya
TERIMA KASIH SUDAH MENGENALKAN MACRO , CUMA YANG TERAKHIR DI HIDE YA SUARANYA .... BUT OVERALL MAKASIH.
keren bang..mantap ilmunya
semoga sehat sll bapak...sangat bermanfaat sekali
Merasa di ceritain pak.... sambil belajar banyak.. sukses pak... bermanfaat sekali
keren...... ilmunya tinggi
Hadir nyimak... mantap... tutornya sangat membantu..salam sukses...👍👍👍
Mantul Bang.....
Sangat bermanfaat bagi kami guru tendik.
Makasih banyak Bang... terus berkarya.
baik, bagus sangat mmbantu. sukses pak
Untuk variasi, sebaiknya Jenis Kelamin menggunakan option button (radio button).
Cara membuat skrip pada userform tolong diajarkan dan diberi contohnya dong, terimakasih Kang Baskara..
Mas ikutan TH-cam akademi edukreator... Bagus bgt ini
Terima kasih bang. Ilmu bermanfaat sekali
terima kasih ilmunya mas nanti sy coba, mantap
Vidio lama tapi baru sy liat skrg.... nmbh ilmu lagi....makasih bang admin
Info bermanfaat pak, salam dari teman baru semoga bisa saling silaturahmi
MANTAB
MAKASIH PAK, BUAT BELAJAR
Keren dan sangat detail... Klo bisa buatkan lagi vid tutorial pembuatan script atau rumus rumusnya...🙏🙏🙏
keren. sangat bermanfaat
Dibalik karya yang keren dan rapi, ada proses yang panjang..
Semangat belajar.. wiw sinau maneh q. Hahaa..
Makasih ilmunya.
Sangat membantu pemula spt kami, sukses selalu Pak Baskara
Panduannya jelas dan sangat membantu. Terima kasih banget ya...❤
Luar biasa super 👍
Perfect,,,,
Auto subs,,,
Mantap pak. Ttp Semangat memberi ilmu
Menambah pengetahuan
keren dan bermanfaat
Terimakasih ilmunya pak😊
Selamat siang Pak bagus tutorialnya
Membantu banget dlm ngerjain tugas :)
Masternya excel niiii mahhhh
Tks... pencerahannya🙏
Mantep pak baskara.... trima kasih
script joss, makasih sharingnya gan... tkp langsung work
Trm kasih ilmunya pak
Mantap...
terimaksih atas ilmunya
Alhamdulillah, bisa meringankan kerja saya sebagai OPS. Input data ke DAPODIK tinggal copas dari database.
Kalo boleh usul, mungkin ada video tips dan trik mengenai input/edit data ke dapodik.
Terima kasih ilmu nya,
Request belajar visual basic
terimakasih tutorialnya sangat membantu
Baskara tutorial excel 👍
mantap kali bg
semakin semangat ya bg
membuat konten nya ya
Alhmdhulillah..,terima kasih sekali tutorialnya Mas, sy mw tanya kalau nomor ditambahi lagi NIS bagaimana caranya Mas,
Terima kasih bayak sebelumnya....
Terima kasih, tutorialnya sangat bermanfaat membantu saya belajar lebih banyak. Mohon kesediaannya mengirimkan scriptnya. Terima kasih.
Sy sangat berterimakasih kpd Om Baskara , atas ilmunya , saya minta scrip nya untuk Input ; edit ; cari dan hapus Data ... terimakasih banyak .....
mantap pak bermanfaat
Bagus mas....semoga sukses selalu.
Nyimak dulu
Mantapz Kang..
Mantap Om, sukses selalu 🙏🤝
Mohon penjelasan langkah2 awal yg hrs dilakukan.ql ini bagi yg msh pemula bingung.mksh bnyk bapak
Pada saat mencari nilai MAX, jika jumlah record sudah lebih dari batas range yg dibuat (A1), jadi harus selalu dirange ulang dong untuk mendapatkan nilai MAX nya.
Aplikasi ini cocoknya untuk input surat masuk dan surat keluar.
Akhirnya bisa download juga file di deskripsi setelah puluhan kali mencoba.. 😅
Paswword nya apa yg mbak ?🙏
Terimaksih mas bro
Sangat bermanfaat tutorialnya bang,,,,,,!!!!
Bikin dong bang konten pembuatan website berbasis php mysql!!
mantab pk.. sy subscribe
asl. sehat selalu pak....ilmunya sangat bermanfaat,
bs kirimkan link buat download visual basicnya
Terimakasih Pak
Terima kasih ilmunya. Mohon dukungan 🙏
Sukses bos
Pak. Tolong bikin tutor buat populasi penduduk di desa
Keren
Assalamu'alaikum Pak.. Tutorial yang bermanfaat dan membantu. Tapi rumusnya bisa di share pak
akhirnya saya menemukan tutorial dari mentor yang saya mengerti bener2 tadinya saya tidak tau kalau harus pke vb itu gimana apa harus download dlu? eh ternyata tidak cukup alt+f11 (terimkasih pak ilmu mu sangat bermanfaat bagi saya terimakasih pak )
saya blom berhasil make alt+f11, solusinya gimana pak
Trimakasi pak buat Vidio yg bermanfaat bagi semua orang yg lihat vidio ini
Izin minta skrip nya pak
Baskaraa tutorial excel!!!
hhhh
next apload bikin tutorial coding nya secara rinci pak!
Mantaff
Terima kasih utk Videonya ini sangat membantu, yang ingin sy tanyakan adalah bagaimana caranya memasukkan rumus nya ke Userform dan lainnya. demikian Terima kasih.
Terima kasih pak, sangat bermanfaat sekali..pak boleh tau pasword macro / VBA Project dari form input data sample
Mau belajar.. Bang buat aplikasi Pengisian pelaporan Survelans..
Terima kasih om....smoga berguna untuk memudahkan dlm pekerjaan...apakah bisa kalau saya buat 45 kolom di lembar kerja di axel....dgn menggunakan form input database...
Terimakasih
Mantaps, pak adakah untuk apliaksi laundry bebrbasis excel?
Thanks video tutorialnya min, btw kenapa saat menggunakan combobox list yang saya buat tidak muncul ya? dan juga no urut tertinggi tidak muncul. Mohon bantuannya
Terimakasih ilmunya pak, dan mohon bantuan bagaimana cara menyimpan VBA, agar setelah di tutup tetap bisa digunakan?
saya sudah mencoba dengan menyimpan menggunakan format macro tetap saja setelah close, ga bisa di run lagi visual basicnya.