Cara Menampilkan Tombol Yes dan No Pada Kotak Dialog Excel

Kotak Dialog adalah suatu kotak yang menampilkan pesan, menunggu pengguna mengklik tombol, dan mengembalikan Integer yang menunjukkan tombol mana yang diklik pengguna. Umumnya kotak dialog hanya berisi pesan saja. Namun, kali ini kami web Matematika Akuntansi akan berbagi ilmu tentang cara menampilkan kotak dialog Excel ditambah dengan tombol Yes dan No yang dimana pada saat user memilih tombol Yes atau No pasti akan ada perintah selanjutnya yang akan dilakukan.

Untuk membuat tombol Yes dan No pada Kotak Dialog bisa dibuat dengan menggunakan gabungan Script VBA Massage Box dan Select Case.

Syntax Massage Box

MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ])

Keterangan :

prompt adalah ekspresi string yang akan ditampilkan sebagai pesan di kotak dialog;
buttons adalah ekspresi numerik yang merupakan jumlah nilai yang menentukan jumlah dan jenis tombol yang akan ditampilkan, gaya ikon yang digunakan, identitas tombol default, dan modalitas kotak pesan;
title adalah ekspresi string ditampilkan di bilah judul kotak dialog;
helpfile adalah ekspresi string yang mengidentifikasi file Bantuan yang akan digunakan untuk menyediakan Bantuan peka konteks untuk kotak dialog;
context adalah Ekspresi numerik yang merupakan nomor konteks Bantuan yang ditetapkan ke topik Bantuan yang sesuai oleh penulis Bantuan.

Syntax Select Case :

Select [ Case ] testexpression

[ Case expressionlist

[ statements ] ]

[ Case Else

[ elsestatements ] ]

End Select

Keterangan :

testexpression adalah ekspresi yang Harus mengevaluasi ke salah satu tipe data dasar;
expressionlist adalah daftar klausa ekspresi yang mewakili nilai kecocokan untuk ekspresi pengujian;
statements adalah satu atau lebih pernyataan berikut kasus yang dijalankan jika testexpression cocok dengan klausa apa pun dalam daftar ekspresi;
elsestatements adalah satu atau lebih pernyataan setelah kasus Lain yang dijalankan jika ekspresi pengujian tidak cocok dengan klausa apa pun dalam daftar ekspresi dari salah satu pernyataan Kasus;
End Select adalah menghentikan definisi konstruksi Select ... Case.

Cara menampilkan tombol Yes dan No pada kotak dialog

Untuk menampilkan tombol Yes dan No pada kotak dialog maka kita harus menggabungkan script Massage Box dengan Script Select Case. Untuk memahaminya kita lansung praktik pada contoh berikut :

Script VBA menampilkan tombol Yes dan No pada kotak dialog excel :

Sub TombolYesdanNo()

Dim KotakPesan As Integer

KotakPesan = MsgBox("Apakah anda ingin memulai pekerjaan", vbYesNo)

Select Case KotakPesan

Case vbYes

MsgBox ("Selamat bekerja ya....")

Case vbNo

MsgBox ("Ya sudah selamat istirahat saja...")

End Select

End Sub

Script diatas adalah berisi perintah untuk menampilkan kotak dialog dengan isi pesan “Apakah anda ingin memulai pekerjaan” dan dilengkapi tombol Yes dan No yang jika tombol yes dipilih, maka akan menghasilkan kotak dialog yang berisi pesan “Selamat bekerja ya....” dan jika tombol No dipilih, maka akan menghasilkan kotak dialog yang berisi pesan “Ya sudah selamat istirahat saja...".

Untuk menjalankan rumus tersebut lakukan langkah-langkah berikut ini :

Buka aplikasi Ms Excel → Pilih menu Developer → Pilih View Code;
Setelah jendela VBA terbuka, pilih menu Insert → Module di jendela VBA Excel;
Copy Script VBA di atas ke dalam jendela Module VBA Excel;
Pilih menu Run → Run Sub/UserForm.