VBA EXCEL PENGGUNAAN KODE MACRO OPTIONBUTTON

KODE MACRO UNTUK OPTIONBUTTON EXCEL

Memberikan hasil yang maksimal dan kenyamanan terhadap pengunjung termasuk prioritas kami sehingga ini akan sangat detail dan singkat, Kami harap Anda meluangkan waktu beberapa menit untuk membaca penjelasan kami dibawah ini secara cermat.

PENJELASAN
Kode Macro Untuk OptionButton hampir sama dengan input Data menggunakan TextBox, hanya saja ini harus ada nilai TRUE atau FALSE. (TRUE jika dipilih dan FALSE jika tidak dipilih) OptionButton biasanya digunakan untuk jenis kelamin untuk pendataan.
  • 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
If TextBox1 = "" Then
MsgBox "maaf kolom nama harus terisi", vbCritical, "sistem aplikasi"
Me.TextBox1.SetFocus
Exit Sub
End If
If TextBox2 = "" Then
MsgBox "maaf kolom TTGL harus terisi", vbCritical, "sistem aplikasi"
Me.TextBox2.SetFocus
Exit Sub
End If
'=================
If OptionButton1 = True Then
OptionButton1 = True
ElseIf OptionButton2 = True Then
OptionButton2 = True
Else
MsgBox "maaf jenis kelamin harus terisi", vbCritical, "sistem aplikasi"
Exit Sub
End If
'================
Dim inputkandata As Long
Sheet1.Activate
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 = ""
Me.TextBox1.SetFocus
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
 Hak Cipta

Post a Comment for "VBA EXCEL PENGGUNAAN KODE MACRO OPTIONBUTTON"