Saturday, February 11, 2017

Cara Bikin Berbagai Macam MsgBox VBA Excel

Berbagai pilihan Jenis Pesan Box "MsgBox" di VBA Excel - MsgBox di Excel merupakan salah satu fungsi yang paling sering digunakan dalam VBA Macro. fungsi MsgBox menampilkan pesan, ikon opsional, dan set yang dapat dipilih tombol perintah dalam kotak dialog.

Memberikan pilihan kepada pengguna untuk mengklik sebuah tombol, dan mengembalikan sebuah Integer menunjukkan tombol yang diklik pengguna. Berikut adalah sintaks dan berbagai jenis MsgBox di VBA. Kita akan melihat pilihan yang berbeda dan penggunaan MsgBox.

Perhatikan gambar gif dibawah yang menunjukkan berbagai macam pilihan Msgbox yang dapat digunakan.


Berbagai pilihan Jenis Pesan Box "MsgBox" VBA Excel :

1. MsgBox vbOKOnly
MsgBox yang menampilkan tombol OK saja. Ketika kita klik tombol OK, itu akan mengembalikan nilai 1 sebagai output
Private Sub CommandButton1_Click()
Dim OutPut As Integer
OutPut = MsgBox("Terimkasih Sudah Mengunjungi" & vbNewLine & " WWW.SENBAKUSEN.COM ", vbOKOnly, "Contoh MsgBox vbOKOnly")
End Sub

2. MsgBox vbOKCancel
MsgBox yang menampilkan tombol OK dan Cancel. Ketika kita klik tombol OK, akan mengembalikan nilai 1 sebagai output. Jika kita klik tombol Batal, akan mengembalikan nilai 2 sebagai output.

Private Sub CommandButton2_Click()
Dim OutPut As Integer
OutPut = MsgBox("Anda Yakin Akan Melanjutkan?", vbOKCancel, "Example of vbOKCancel")
If OutPut = 1 Then
MsgBox "Sukses..!! Aplikasi Dilanjutkan.!!", , "Ok - 1"
Else
MsgBox "Aplikasi Dibatalkan..!", , "Cancel - 2"
End If
End Sub

3. MsgBox vbAbortRetryIgnore
MsgBox yang menampilkan tombol Abort, Retry, dan Ignore. Ketika kita klik tombol Abort, akan mengembalikan nilai 3 sebagai output. Ketika kita klik tombol Retry, akan mengembalikan nilai 4 sebagai output. Jika kita klik tombol Ignore, akan mengembalikan nilai 5 sebagai output.
Private Sub CommandButton3_Click()
'Variable Declaration
Dim OutPut As Integer
'Example of vbAbortRetryIgnore
OutPut = MsgBox("Kembalikan Ke Pengaturan Awal..!! Apakah Ingin Dilanjutkan?", vbAbortRetryIgnore, "Example of vbAbortRetryIgnore")
If OutPut = 3 Then
'Output = 1(Abort)
MsgBox "Abort!", , "Abort - 3"
ElseIf OutPut = 4 Then
'Output = 4(Retry)
MsgBox "Retry!", , "Retry - 4"
Else
'Output = 5(Ignore)
MsgBox "Ignore!", , "Ignore - 5"
End If
End Sub

4. MsgBox vbYesNoCancel
MsgBox yang menampilkan Yes, No, dan Cancel. Ketika kita klik tombol Yes, akan mengembalikan nilai 6 sebagai output. Ketika kita klik tombol No, akan mengembalikan nilai 7 sebagai output.Jika kita klik tombol Batal, Ini akan mengembalikan nilai 2 sebagai output.

Private Sub CommandButton4_Click()
'Variable Declaration
Dim OutPut As Integer
'Example of vbYesNoCancel
OutPut = MsgBox("File Sudah Ada Dalam Folder..!! Apakah Anda Ingin Mengganti ?", vbYesNoCancel, "Example of vbYesNoCancel")
If OutPut = 6 Then
'Output = 6(Yes)
MsgBox "Yes!", vbInformation, "Yes - 6"
ElseIf OutPut = 7 Then
'Output = 7(No)
MsgBox "No!", vbInformation, "No - 7"
Else
'Output = 2(Cancel)
MsgBox "Cancel!", vbInformation, "Cancel - 2"
End If
End Sub

5. MsgBox vbYesNo
MsgBox yang akan menampilkan tombol Yes dan No. Ketika kita klik tombol Yes, akan mengembalikan nilai 6 sebagai output. Ketika kita klik tombol No, itu akan mengembalikan nilai 7 sebagai output.

Private Sub CommandButton5_Click()
'Variable Declaration
Dim OutPut As Integer
'Example of vbYesNo
OutPut = MsgBox("Apakah Anda Akan Menyimpan Data.?", vbYesNo, "Example of vbYesNo")
If OutPut = 6 Then
'Output = 6(Yes)
MsgBox "Sukses..!! Data Tersimpan.!! ", vbInformation, "Yes - 6"
Else
'Output = 7(No)
MsgBox "Penyimpanan Data Dibatalkan..!!", , "No - 7"
End If
End Sub

6. MsgBox vbRetryCancel
MsgBox yang akan menampilkan tombol Retry dan Cancel. Ketika kita klik tombol Retry, akan mengembalikan nilai 4 sebagai output. Ketika kita klik tombol Cancel, akan mengembalikan nilai 2 sebagai output.

Private Sub CommandButton6_Click()
'Variable Declaration
Dim OutPut As Integer
'Example of vbRetryCancel
OutPut = MsgBox("Close the File.Try Again?", vbRetryCancel + vbDefaultButton2, "Example of vbRetryCancel")
If OutPut = 4 Then
'Output = 4(Retry)
MsgBox "Retry!", , "Retry - 4"
Else
'Output = 2(Cancel)
MsgBox "Cancel It!", , "Cancel - 2"
End If
End Sub

7. MsgBox vbCritical
MsgBox yang menampilkan pesan Critical dengan Iconnya. Ketika kita klik tombol Ok, akan mengembalikan nilai 1 sebagai output. Dan, akan menampilkan pesan Critical dengan Icon.

Private Sub CommandButton7_Click()
'Variable Declaration
Dim OutPut As Integer
'Example of vbCritical
OutPut = MsgBox("Masukkan Dengan Format Yang Bener..!!", vbCritical, "Example of vbCritical")
End Sub

8. MsgBox vbQuestion
MsgBox yang menampilkan pesan tanda tanya dengan Iconnya. Ketika kita klik tombol Ok, akan mengembalikan nilai 1 sebagai output. Dan, ini akan menampilkan Peringatan ikon dengan tanya tanya.

Private Sub CommandButton8_Click()
'Variable Declaration
Dim OutPut As Integer
'Example of vbQuestion
OutPut = MsgBox("Apakah Anda Yakin.?", vbQuestion, "Example of vbQuestion")
End Sub


9. MsgBox vbExclamation
MsgBox yang menampilkan Icon Warning. Ketika kita klik tombol Ok, akan mengembalikan nilai 1 sebagai output.

Private Sub CommandButton9_Click()
'Variable Declaration
Dim OutPut As Integer
'Example of vbExclamation
OutPut = MsgBox("Data Yang Dimasukkan Salah..!!", vbExclamation, "Example of vbExclamation")
End Sub

10. MsgBox vbInformation
MsgBox yang menampilkan Icon Pesan Informasi. Ketika kita klik tombol Ok, akan mengembalikan nilai 1 sebagai output. Dan akan menampilkan ikon Pesan Informasi.

Private Sub CommandButton10_Click()
'Variable Declaration
Dim OutPut As Integer
'Example of vbInformation
OutPut = MsgBox("Data Sukses Tersimpan..!!.", vbInformation, "Example of vbInformation")
End Sub

11. vbDefaultButton1
MsgBox yang menampilkan pilihan tombol Retry dan Cancel. Default pilihan pada tombol Retry. Ketika kita tekan enter maka akan mengakibatkan nilai tombol Retry sebagai 4.

Private Sub CommandButton11_Click()
'Variable Declaration
Dim OutPut As Integer
'Contoh vbDefaultButton1
OutPut = MsgBox("Tutup Aplikasi.!!Coba Lagi.?", vbRetryCancel + vbDefaultButton1, "Example of vbDefaultButton1")
End Sub

12. vbDefaultButton2
MsgBox yang menampilkan pilihan tombol Retry dan Cancel. Masih sama dengan MsgBox pada nomor 11. Perbedaannya hanya default pilihan pada tombol Cancel. Ketika kita tekan enter maka akan mengakibatkan nilai tombol Retry sebagai 4.

Private Sub CommandButton12_Click()
'Variable Declaration
Dim OutPut As Integer
'Example of vbDefaultButton2
OutPut = MsgBox("Tutup Aplikasi.Coba Lagi?", vbRetryCancel + vbDefaultButton2, "Example of vbDefaultButton2")
End Sub

13. vbDefaultButton3
MsgBox yang menampilkan tiga tombol pilihan yaitu Yes, No, dan Cancel. Standar pilihan tombol cancel.

Private Sub CommandButton13_Click()
'Variable Declaration
Dim OutPut As Integer
'Example of vbDefaultButton2
OutPut = MsgBox("Tutup Aplikasi.!!Coba Lagi?", vbYesNoCancel + vbDefaultButton3, "Example of vbDefaultButton3")
End Sub

14. vbApplicationModal
Pengguna harus menanggapi kotak pesan sebelum melanjutkan bekerja di aplikasi saat ini.

Private Sub CommandButton14_Click()
'Variable Declaration
Dim OutPut As Integer
'Contoh vbApplicationModal
OutPut = MsgBox("Terimkasih Lanjut Belajar di WWW.SENBAKUSEN.COM", vbApplicationModal, "Example of vbApplicationModal")
End Sub

15. vbSystemModal
Semua aplikasi ditangguhkan sampai pengguna merespon kotak pesan.

Private Sub CommandButton15_Click()
'Variable Declaration
Dim OutPut As Integer
'Contoh of vbApplicationModal
OutPut = MsgBox("Thanks for visiting www.senbakusen.com!", vbMsgBoxSetForeground, "Example of VbMsgBoxSetForeground")
End Sub

16. vbMsgBoxHelpButton
Menampilkan MsgBox yang mempunyai tombol Help.

Private Sub CommandButton16_Click()
'Variable Declaration
Dim OutPut As Integer
'Contoh of vbMsgBoxHelpButton
OutPut = MsgBox("Thanks for visiting www.senbakusen.com!", vbMsgBoxHelpButton, "Contoh vbMsgBoxHelpButton")
End Sub

17. VbMsgBoxSetForeground
Jendela kotak pesan sebagai jendela depan

Private Sub CommandButton17_Click()
'Variable Declaration
Dim OutPut As Integer
'Contoh vbApplicationModal
OutPut = MsgBox("Thanks for visiting www.senbakusen.com!", vbMsgBoxSetForeground, "Contoh VbMsgBoxSetForeground")
End Sub

18. vbMsgBoxRight
Text MsgBox yang ditampilkan rata dari kanan.

Private Sub CommandButton18_Click()
'Variable Declaration
Dim OutPut As Integer
'Contoh  vbMsgBoxRight
OutPut = MsgBox("Data Yang Di Input Tidak Valid!", vbMsgBoxRight, "Contoh vbMsgBoxRight")
End Sub


19. vbMsgBoxRtlReading
Teks pada MsgBox muncul sebagai kanan-ke-kiri mengikuti sistem penulisan Arab


Private Sub CommandButton19_Click()
'Variable Declaration
Dim OutPut As Integer
'Contoh of vbMsgBoxRtlReading
OutPut = MsgBox("Thanks for visiting www.senbakusen.com!", vbMsgBoxRtlReading, "Contoh vbMsgBoxRtlReading")
End Sub

Banyak ya..!? Pilihan MsgBox yang dapat di tampilkan pada Aplikasi berbasis VBA Excel. Silahkan dipilih dan disesuaikan dengan kebutuhan masing-masing. MsgBox dibutuhkan dalam Aplikasi untuk memberikan informasi penting saat aplikasi digunakan. Informasi dan langkah yang disajikan dalam MsgBox singkat dan jelas sehingga dengan mudah dapat dipahami oleh pengguna aplikasi rancangan anda.

Demikian posting Cara Bikin Berbagai Macam MsgBox VBA Excel. Saya tunggu modifikasi dan lainnya di kolom komentar.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon