Wa'alaikumussalam Wr. Wb.
mas Agus,
MsgBox sebenarnya adalah sebuah methods milik object yang dibentuk dari
class alias blueprint object yang bernama VBA.
Penggunaan methods :
1. bisa dipanggil secara langsung tanpa kurung jika tidak mengharapkan atau
memang tidak memiliki nilai balik
2. sebagai pengisi sesuatu (dikanan sama dengan) dan harus menggunakan
kurung bila methods tersebut memiliki nilai balik
MsgBox adalah methods yang memiliki nilai balik (jenis Function).
Nilai balik MsgBox disimpan pada VbMsgBoxResult.
> Function MsgBox(Prompt, [Buttons As VbMsgBoxStyle = vbOKOnly], [Title],
> [HelpFile], [Context]) As VbMsgBoxResult
>
Ketika MsgBox digunakan dengan kaidah penggunaan nomor 1, maka bisa
digunakan secara langsung tapi tidak dengan kurung
Contoh :
MsgBox "Kid ganteng"
Ketika MsgBox digunakan dengan kaidah penggunaan nomor 2, maka harus
menggunakan kurung
Contoh :
dim lResult as long
lresult=msgbox("Kid ganteng")
dan variabel lResult akan diisi dengan hasil dari MsgBox.
Supaya lebih jelas tentang kaidah penggunaan nomor 2, coba copy script
berikut pada sebuah general module dan di-run
public sub KotakPesan()
dim lResult as long
KOTAK_PESAN: 'sekedar label saja
lResult=MsgBox("Kid ganteng." & vbcrlf & "Ya atau ya...
?",vbquestion+vbyesno,"Kotak Pesan")
if lresult=vbyes then
msgbox "Terima kasih.",vbinformation,"Kid said :"
else
goto KOTAK_PESAN
endif
end sub
met mencoba
;)
Wassalamu'alaikum Wr. Wb.
Kid.
2014-05-26 8:52 GMT+07:00 nangAgus [email protected] [belajar-excel] <
[email protected]>:
> Asalamaulaikum warahmatullah.
>
> saya mencoba menulis messege Box di VBA tapi tidak bisa adakah yang dapat
> membantu saya?
>
> pada help tertulis
>
> *MsgBox(prompt*[, *buttons*] [, *title*] [, *helpfile*, *context*]
> *) *
>
> saya mencoba menulis
>
> *: MsgBox("Anda salah pencet",vbOKonly, "Peringatan") *tidak dapat
> dijalankan, muncul error
>
>
> tetapi kenapa jika ditulis menjadi :
>
>
> *MsgBox "Anda salah pencet",vbOKonly, "Peringatan" *dapat digunakan.
>
> Bagaimana penggunaan syntax:
>
>
> *MsgBox(prompt*[, *buttons*] [, *title*] [, *helpfile*, *context*]
> *) ? *
>
> terima kasih
> Wasalamualaikum warahmatullah.
> NangAgus
>
