Macam-Macam Tombol dan Ikon Dalam Kotak Pesan VBA Excel

Tombol dalam kotak pesan excel adalah suatu alat sebagai perantara untuk menjalankan suatu printah VBA excel yang telah dimuat dalam suatu Sub Procedur function MsgBox. Misalnya kita ingin membuat kotak dialog yang berisi pertanyaan yang harus di jawab oleh user, maka tombol yes dan no harus di munculkan dalam kotak dialog. Berikut adalah macam-macam tombol kotak pesan VBA Excel :

A.1 vbOkOnly;
A.2 vbOkCancel;
A.3 vbAbortRetryIgnore;
A.4 vbYesNoCancel;
A.5 vbYesNo;
A.6 vbRetryCancel;
A.7 vbMsgBoxHelpButton.

Selain tombol, dalam kotak pesan juga bisa disisipkan ikon-ikon tertentu sebagai simbol dari kotak pesan tersebut. Berikut adalah macam-macam ikon kotak pesan Excel :

B.1 vbCritical;
B.2 vbQuestion;
B.3 vbExclamation;
B.4 vbInformation;

Untuk menjalankan script tombol dan ikon kotak pesan bisa dilakukan dengan langkah-langkah berikut :

Buka Aplikasi Ms Excel → Pilih menu Developer → Pilih View Code;
Setelah jendela VBA terbuka pilih menu Insert → Module;
Setelah jendela Module terbuka maka copy script VBA ke dalam jendela Module;
Pilih menu Run → Run Sub/User Form

A Tombol Kotak Pesan VBA Excel

A.1 vbOKOnly

vbOKOnly adalah tombol yang menampilkan tombol OK saja dalam kotak pesan excel. Nilai dai vbOKOnly adalah 0.

Contoh Script VBA vbOKOnly

Sub MessageBox_vbOKOnly()

Dim OutPut As Integer

OutPut = MsgBox("Terima kasih telah berkunjung ke web kami", vbOKOnly, "Contoh tombol vbOKOnly")

End Sub

Contoh hasil vbOKOnly

A.2 vbOKCancel

vbOKCancel adalah tombol yang menampilkan tombol Ok dan Cancel pada kotak pesan excel. Nilai dari vbOKCancel adalah 1.

Contoh Script VBA vbOKCancel

Sub MessageBox_vbOKCancel()

Dim OutPut As Integer

OutPut = MsgBox("Apakah benar anda hebat?", vbOKCancel, "Contoh Tombol vbOKCancel")

If OutPut = 1 Then

MsgBox "keren terus lanjutkan"

Else

MsgBox "Harus belajar lagi ya"

End If

End Sub

Contoh hasil vbOKCancel

A.3 vbAbortRetryIgnore

vbAbortRetryIgnore adalah tombol yang menampilkan tombol Abort, Retry, dan Ignore dalam kotak pesan excel. Nilai dari vbAbortRetryIgnore adalah 2.

Contoh Script VBA vbAbortRetryIgnore

Sub MessageBox_vbAbortRetryIgnore()

Dim OutPut As Integer

OutPut = MsgBox("koneksi terputus. Apakah anda ingin melanjutkannya?", vbAbortRetryIgnore, "Contoh tombol vbAbortRetryIgnore")

If OutPut = 3 Then

MsgBox "Abort!"

ElseIf OutPut = 4 Then

MsgBox "Retry!"

Else

MsgBox "Ignore!"

End If

End Sub

Contoh hasil vbAbortRetryIgnore

A.4 vbYesNoCancel

vbYesNoCancel adalah tombol yang menampilkan tombol Yes, No, dan Cancel dalam kotak pesan excel. Nilai dari vbYesNoCancel adalah 3.

Contoh Script VBA vbYesNoCancel

Sub MessageBox_vbYesNoCancel()

Dim OutPut As Integer

OutPut = MsgBox("File sudah ada, apakah anda ingin menggantinya?", vbYesNoCancel, "Contoh tombol vbYesNoCancel")

If OutPut = 6 Then

MsgBox "Yes!"

ElseIf OutPut = 7 Then

MsgBox "No!"

Else

MsgBox "Cancel!"

End If

End Sub

Contoh hasil vbYesNoCancel

A.5 vbYesNo

vbYesNo adalah tombol yang menampilkan tombol Yes dan No dalam kotak pesan excel. Nilai dari vbYesNo adalah 4

Contoh Script VBA vbYesNo

Sub MessageBox_vbYesNo()

Dim OutPut As Integer

OutPut = MsgBox("Apakah anda ingin mengganti file tersebut?", vbYesNo, "Contoh tombol vbYesNo")

If OutPut = 6 Then

MsgBox "Yes!"

Else

MsgBox "No!"

End If

End Sub

Contoh hasil vbYesNo

A.6 vbRetryCancel

vbRetryCancel adalah tombol yang menempilkan tombol Retry dan Cancel dalam kotak pesan excel. Nilai dari vbRetryCancel adalah 5.

Contoh Script VBA vbRetryCancel

Sub MessageBox_vbRetryCancel()

Dim OutPut As Integer

OutPut = MsgBox("Tutup file, dan lanjutkan?", vbRetryCancel + vbDefaultButton2, "Contoh tombol vbRetryCancel")

If OutPut = 4 Then

MsgBox "Retry!"

Else

MsgBox "Cancel!"

End If

End Sub

Contoh hasil vbRetryCancel

A.7 vbMsgBoxHelpButton

vbMsgBoxHelpButton adalah tombol yang menempilkan tombol help dalam kotak pesan excel. Nilai dari vbMsgBoxHelpButton adalah 16384.

Contoh Script VBA vbMsgBoxHelpButton

Sub MessageBox_vbMsgBoxHelpButton()

Dim OutPut As Integer

OutPut = MsgBox("Terima kasih terlah berkunjung", vbMsgBoxHelpButton, "Contoh tombol vbMsgBoxHelpButton")

End Sub

Contoh hasil vbMsgBoxHelpButton

B Ikon Kotak Pesan VBA Excel

B.1 vbCritical

vbCritcal adalah ikon yang menampilkan simbol critical message. Nilai dari vbCritical adalah 16.

Contoh Script VBA vbCritical

Sub MessageBox_vbCritical()

    Dim OutPut As Integer

        OutPut = MsgBox("Tolong masukan data yang benar!", vbCritical, "Contoh ikon vbCritical")

End Sub

Contoh hasil vbCritical

B.2 vbQuestion

vbQuestion adalah ikon yang menampilkan simbol warning query. Nilai dari vbQuestion adalah 32.

Contoh Script VBA vbQuestion

Sub MessageBox_vbQuestion()

Dim OutPut As Integer

OutPut = MsgBox("Apakah anda ngantuk?", vbQuestion, "Contoh ikon vbQuestion")

End Sub

Contoh hasil vbQuestion

B.3 vbExclamation

vbExclamation adalah ikon yang menampilkan simbol warning mesasge. Nilai dari vbExclamation adalah 48.

Contoh Script VBA vbExclamation

Sub MessagExclamationeBox_vbExclamation()

Dim OutPut As Integer

OutPut = MsgBox("Masukan data yang benar!", vbExclamation, "Contoh ikon vbExclamation")

End Sub

Contoh hasil vbExclamation

B.4 vbInformation

vbInformation adalah ikon yang menampilkan simbol information mesasge. Nilai dari vbInformation adalah 64.

Contoh Script VBA vbInformation

Sub MessageBox_vbInformation()

Dim OutPut As Integer

OutPut = MsgBox("Selamat anda berhasil login", vbInformation, "Contoh ikon vbInformation")

End Sub

Contoh hasil vbInformation

Demikian artikel kali ini.

Mohon maaf apabila ada salah-salah kata.
Apabila ada yang ingin ditanyakan atau disampaikan, silahkan untuk menulis pada kolom komentar di bawah.

Referensi :

https://docs.microsoft.com

Salam,
Muhamad Pajar Sidik
President Director of (matematikaakuntansi.blogspot.com)
Email : fajarmoehamad@gmail.com
IG : @mupasid

BEANBAG TRIANGLE SIZE LARGE TERMASUK ISI , SIAP PAKAI😊

Jika ingin bertanya secara privat, Silahkan hubungi no 085709994443 dan untuk berkomentar silahkan klick link di bawah ini 👇

Wednesday, November 18, 2020