Video: TUTORIAL EXCEL : cara membuat dropdown list 2024
Fleksibilitas argumen tombol VBA memudahkan Anda menyesuaikan kotak pesan Excel Anda. Anda dapat memilih tombol mana yang akan ditampilkan, menentukan apakah sebuah ikon muncul, dan menentukan tombol mana yang default (tombol default "diklik" jika pengguna menekan Enter).
Anda dapat menggunakan konstanta built-in untuk argumen tombol. Jika Anda mau, Anda bisa menggunakan nilainya daripada konstanta (tapi menggunakan konstanta built-in jauh lebih mudah).
Untuk menggunakan lebih dari satu konstanta ini sebagai argumen, cukup hubungkan mereka dengan + operator. Misalnya, untuk menampilkan kotak pesan dengan tombol Yes and No dan ikon tanda seru, gunakan ungkapan berikut sebagai argumen MsgBox kedua:
vbYesNo + vbExclamation
Atau, jika Anda lebih suka membuat kode Anda kurang dimengerti, gunakan nilai 52 (yaitu, 4 + 48).
Contoh berikut menggunakan kombinasi konstanta untuk menampilkan kotak pesan dengan tombol Yes dan tombol No (vbYesNo) serta ikon tanda tanya (vbQuestion). VbDefaultButton2 yang konstan menunjuk tombol kedua (Tidak) sebagai tombol default - yaitu tombol yang diklik jika pengguna menekan Enter. Untuk kesederhanaan, konstanta ini diberikan ke variabel Config dan kemudian menggunakan Config sebagai argumen kedua dalam fungsi MsgBox:
Sub GetAnswer3 () Dim Config Sebagai Panjang Dim Ans Sebagai Integer Config = vbYesNo + vbQuestion + vbDefaultButton2 Ans = MsgBox ("Mengroses laporan bulanan?", Config) Jika Ans = vbYes Then RunReport End Sub
Periksa kotak pesan yang ditampilkan Excel saat Anda menjalankan prosedur GetAnswer3. Jika pengguna mengklik tombol Yes, rutin menjalankan prosedur bernama RunReport. Jika pengguna mengklik tombol No (atau menekan Enter), rutin berakhir tanpa tindakan. Karena argumen judul dihilangkan dalam fungsi MsgBox, Excel menggunakan judul default, Microsoft Excel.
Rutin berikut ini memberikan contoh lain tentang penggunaan fungsi MsgBox:
Sub GetAnswer4 () Dim Msg As String, Judul Sebagai String Dim Config Sebagai Integer, Ans As Integer Msg = "Apakah Anda ingin memproses laporan bulanan? "Msg = Msg & vbNewLine & vbNewLine Msg = Msg &" Memproses laporan bulanan akan "Msg = Msg &" kurang lebih 15 menit. Ini "Msg = Msg &" akan menghasilkan laporan 30 halaman untuk "Msg = Msg &" semua kantor penjualan untuk bulan "Msg = Msg &" saat ini. "Title =" XYZ Marketing Company "Config = vbYesNo + vbQuestion Ans = MsgBox (Msg, Config, Title) Jika Ans = vbYes Then RunReport End Sub
Contoh ini menunjukkan cara yang efisien untuk menentukan pesan yang lebih panjang dalam kotak pesan.Variabel (Msg) dan operator concatenation (&) digunakan untuk membangun pesan dalam serangkaian pernyataan. Konstanta vbNewLine menyisipkan karakter garis-garis yang memulai baris baru (gunakan dua kali untuk menyisipkan baris kosong). Argumen judul digunakan untuk menampilkan judul yang berbeda dalam kotak pesan. Berikut adalah kotak pesan yang ditampilkan Excel saat Anda menjalankan prosedur ini.
Kotak dialog ini, yang ditampilkan oleh fungsi MsgBox, menampilkan judul, ikon, dan dua tombol.Anda dapat menggunakan konstanta (seperti vbYes dan vbNo) untuk mengembalikan nilai fungsi MsgBox. Berikut adalah beberapa konstanta lainnya.
Konstan | Nilai | Apa Artinya |
---|---|---|
vbOK | 1 | Pengguna mengklik OK. |
vbCancel | 2 | Pengguna mengklik Batal. |
vbAbort | 3 | Pengguna mengklik Abort. |
vbRetry | 4 | Pengguna mengeklik Coba lagi. |
vbIgnore | 5 | Pengguna mengklik Ignore. |
vbYes | 6 | Pengguna mengklik Ya. |
vbNo | 7 | Pengguna mengklik No |
Dan itu cukup banyak yang perlu Anda ketahui tentang fungsi MsgBox. Gunakan kotak pesan dengan hati-hati. Biasanya tidak ada alasan untuk menampilkan kotak pesan yang tidak berguna. Misalnya, orang cenderung kesal saat melihat kotak pesan setiap hari yang berbunyi Selamat pagi. Terima kasih telah memuat buku kerja Proyeksi Anggaran.