Sebuah pesan yang tampil biasanya ada berupa peringatan, ada yang berupa informasi, ada juga yang berupa pilihan. Anda dapat lihat beberapa tipe pesan yang menampilkan beberapa tombol di dalam pesan tersebut dibawah ini
Return Values
1 OK vbOk
2 Cancel vbCancel
3 Abort vbAbort
4 Retry vbRetry
5 Ignore vbIgnore
6 Yes vbYes
7 No vbNo
Type of Buttons
0 vbOKOnly merupakan tipe pesan yang menampilkan OK saja
1 vbOKCancel merupakan tipe pesan yang menampilkan tombol OK dan Cancel
2 vbAbortRetryIgnore merupakan tipe pesan yang menampilkan tombol Abort, Retry, dan Ignore
3 vbYesNoCancel merupakan tipe pesan yang menampilkan tombol Yes, No, dan Cancel
4 vbYesNo merupakan tipe pesan yang menampilkan tombol Yes dan No
5 vbRetryCancel tipe pesan yang menampilkan Retry dan tombol Cancel
Untuk lebih jelasnya aku akan mencoba menciptakan script pesan peringatan
Sub TampilkanPesan()Script diatas ditulis pada sebuah modul dan untuk menjalankannya Anda dapat gunakan atau tambahkan sebuah CommandButton atau tombol pada form misalnya
Dim Pesan As Integer
Pesan = MsgBox("Maaf Anda Perlu Registrasi untuk Versi lengkap", vbOKOnly, "PERINGATAN")
End Sub
Silakan double klik CommandButton1 dan tuliskan script dibawah ini untuk memanggil modul TampilkanPesan diatas
Untuk mencoba nya silakan klik RUN dan coba Anda klik tombol yang bertuliskan CommandButton1 . Apabila Anda klik maka akan muncul atau menampilkan sebuah pesan
Selesai. Sumber http://www.excel-id.com/