PENGGUNAAN ELSE DAN ELSEIF DI VBA MACRO EXCEL

CARA MENGGUNAKAN ELSE DAN ELSEIF DI VBA MACRO EXCEL
Anda juga dapat mengunduh Aplikasi Form Login Dengan Sistem ON OFF

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


PENJELASAN
ELSE dan ELSEIF adalah satu rangkaian yang biasanya digunakan untuk dua atau banyak rangkaian pilihan contoh : jika A memilih 1 maka nilai selain 1 tidak dipilih dan seterusnya. untuk lebih jelasnya silahkan mengikuti langkah-langkah dibawah ini.

  • Buka Microsoft Excel
  • Tekan Alt+F11 maka Anda akan masuk di jendela Visual Basic for Application (VBA)
  • Buatlah satu buah userform, dau buah optionbutton dan satu commandbutton
  • Ganti tulisan optionbutton1 menjadi aktif, ganti tulisan optionbutton2 menjadi non aktif
  • Ganti tulisan commandbutton1 menjadi simpan
  • Klik dua kali tombol simpan (commandbutton1)
  • Salin Kode Macro dibawah ini
'===PENGGUNA HARUS MEMILIH===
'TRUE apabila dipilih FALSE apabila tidak dipilih
If OptionButton1 = True Then
OptionButton1 = True
ElseIf OptionButton2 = True Then
OptionButton2 = True
Else
MsgBox "maaf Sandi harus terisi", vbCritical, "sistem aplikasi"
Exit Sub
End If
'====PROSES INPUT KE WORKSHEET==
Dim inputkandata As Long
Sheet1.Activate
inputkandata = WorksheetFunction.CountA(Range("A:A")) + 1
'==proses input==
If OptionButton1.Value = True Then
Cells(inputkandata, 1).Value = "Laki-laki"
Else
If OptionButton2.Value = True Then
Cells(inputkandata, 1).Value = "perempuan"
End If
End If
OptionButton1 = ""
OptionButton2 = ""
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
  • Untuk mencobanya silahkan tekan F5 (RUN)
KESIMPULAN ELSE DAN ELSEIF
Jika Anda menggunakan ELSEIF maka setelahnya harus ada Then contohnya If OptionButton1 = True then Dan ini harus diakhiri ELSE sebagai penutup seperti contoh diatas.

Demikian dari kami semoga ini membantu. Jika Anda masih belum faham penggunaan ELSE dan ELSEIF silahkan hubungi kami untuk lebih lanjut.

"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"
Jabat Erat@Hak Cipta 2015
 Hak Cipta

Berlangganan berita via email..

0 Response to "PENGGUNAAN ELSE DAN ELSEIF DI VBA MACRO EXCEL"