Daftar Isi:
- Untuk sekadar menampilkan pesan kepada pengguna:
- Dalam kode berikut, beberapa konstanta built-in digunakan yang memudahkan untuk bekerja dengan nilai yang dikembalikan oleh MsgBox:
Video: 23513074 Indri Djoko T Belajar Mudah MS Excel Macro VBA Dengan Sedikit Bekal Bahasa Pemrograman 2024
Anda mungkin sudah familiar dengan fungsi MsgBox VBA. Fungsi MsgBox, yang menerima argumen yang ditunjukkan di bawah ini, berguna untuk menampilkan informasi dan mendapatkan masukan pengguna sederhana. Ini bisa mendapatkan input pengguna karena fungsinya. Sebuah fungsi, seperti yang mungkin Anda ketahui, menghasilkan sebuah nilai. Dalam kasus fungsi MsgBox, ia menggunakan kotak dialog untuk mendapatkan nilai pengembaliannya. Teruslah membaca untuk melihat bagaimana cara kerjanya.
Judul
Berikut adalah versi sederhana dari sintaks fungsi MsgBox: <
MsgBox (prompt [buttons] [title])
Menampilkan kotak pesan sederhanaAnda dapat menggunakan fungsi MsgBox dengan dua cara:
Untuk sekadar menampilkan pesan kepada pengguna:
Dalam kasus ini, Anda tidak peduli dengan hasil yang dikembalikan oleh fungsinya.
-
Untuk mendapatkan tanggapan dari pengguna: Dalam kasus ini, Anda sangat peduli dengan hasil yang dikembalikan oleh fungsinya. Hasilnya tergantung dari tombol yang diklik pengguna.
-
Lihat di bawah untuk melihat bagaimana kotak pesan ini terlihat. Dalam kasus ini, pencetakan dimulai saat pengguna mengklik OK. Apakah Anda memperhatikan bahwa tidak ada cara untuk membatalkan pencetakan? Teruslah membaca untuk mencari tahu cara memperbaikinya.
Kotak pesan sederhana.
Mendapatkan tanggapan dari kotak pesan
Jika Anda menampilkan kotak pesan yang memiliki lebih dari sekedar tombol OK, Anda mungkin ingin tahu tombol mana yang diklik pengguna. Kamu beruntung Fungsi MsgBox dapat mengembalikan nilai yang menunjukkan tombol mana yang diklik. Anda dapat menetapkan hasil fungsi MsgBox ke variabel.Dalam kode berikut, beberapa konstanta built-in digunakan yang memudahkan untuk bekerja dengan nilai yang dikembalikan oleh MsgBox:
Sub GetAnswer () Dim Ans As Long Ans = MsgBox ("Start printing?", VbYesNo) Select Case Ans Case vbYes ActiveSheet. PrintOut Case vbNo MsgBox "Pencetakan dibatalkan" End Select End Sub
Constant
Value
What It Does | vbOKOnly | 0 |
---|---|---|
Hanya menampilkan tombol OK. | vbOKCancel | 1 |
Menampilkan tombol OK dan Cancel. | vbAbortRetryIgnore | 2 |
Menampilkan tombol Abort, Retry, dan Abaikan. | vbYesNoCancel | 3 |
Menampilkan tombol Yes, No, dan Cancel. | vbYesNo | 4 |
Menampilkan tombol Yes dan No. | vbRetryCancel | 5 |
Menampilkan tombol Coba lagi dan Batal. | vbCritical | 16 |
Menampilkan ikon Critical Message. | vbQuestion | 32 |
Menampilkan ikon Peringatan Peringatan. | vbExclamation | 48 |
Menampilkan ikon Peringatan Pesan. | vbInformation | 64 |
Menampilkan ikon Message Message. | vbDefaultButton1 | 0 |
Tombol pertama adalah default. | vbDefaultButton2 | 256 |
Tombol kedua adalah default. | vbDefaultButton3 | 512 |
Tombol ketiga adalah default. | vbDefaultButton4 | 768 |
Tombol keempat adalah default. | Lihat tampilannya. Bila Anda menjalankan prosedur ini, variabel Ans diberi nilai vbYes atau vbNo, tergantung pada tombol mana yang diklik pengguna. Pernyataan Select Case menggunakan nilai Ans untuk menentukan tindakan mana yang harus dilakukan kode. | Kotak pesan sederhana, dengan dua tombol. |
Anda juga dapat menggunakan hasil fungsi MsgBox tanpa menggunakan variabel, seperti ditunjukkan oleh contoh berikut:
Sub GetAnswer2 () Jika MsgBox ("Start printing?", VbYesNo) = vbYes Then '… [kode if Yes is klik] … Else '… [kode jika Yes tidak diklik] … End If End Sub