Bagaimana cara membuat kotak input dan pesan dalam dokumen Word dengan VBA?

Pembaruan terakhir: Juli 2020; Penerapan: Office 365,2019, 2016, 2013.

Terkadang, kami ingin membuat dokumen Word kami lebih interaktif dan bahkan menangkap beberapa masukan pengguna. Masukkan pesan dan kotak masukan.

Seperti namanya kotak pesan adalah bagian dari informasi yang ditampilkan kepada pengguna dokumen. Kotak input berperan untuk menangkap informasi dari pengguna.

Posting ini memiliki semua informasi dan contoh kode yang Anda perlukan untuk membuat dokumen yang berfungsi penuh dengan pesan Visual Basic for Applications (VBA) dan kotak input untuk Microsoft Word.

Bagaimana cara menambahkan kode VBA ke Word?

Sebelum kita melanjutkan dan menjelaskan cara menambahkan pesan dan kotak input, berikut adalah penyegaran cepat tentang cara menambahkan kode VBA kustom Anda ke dokumen Word.

• Pertama, lanjutkan dan aktifkan tab Pengembang .
• Sekarang, tekan tombol  Visual Basic dari  tab Pengembang  . Ini akan membuka Editor Visual Basic.

• Sorot Dokumen Anda.
• Klik  Sisipkan  lalu pilih  Modul .

• Salin kode yang kami berikan di bawah ini ke dalam Modul yang baru saja Anda buat ke dalam modul Anda.
• Klik Simpan. Berikan nama untuk dokumen Anda jika diminta.
• Tutup Editor Visual Basic.

Kode VBA Kotak Pesan

Sintaksis:

MsgBox(prompt,tombol,judul,file bantuan,konteks)

Penjelasan sintaks:

Mengingatkan:

Diperlukan. Ini adalah informasi yang dapat diberikan kepada pengguna. Itu harus dimasukkan di dalam  tanda kutip ganda .

Tombol:

Pilihan. Tombol adalah jenis tombol yang diberikan kepada pengguna informasi. Ada berbagai tombol yang tersedia untuk MsgBox() dan mereka dapat ditemukan pada gambar di bawah ini.

Judul:

Pilihan. Ini adalah judul untuk informasi yang diberikan kepada pengguna. Jika tidak diberikan,  Microsoft word  akan menjadi judul default.

File bantuan dan konteks:

• Pilihan. Helpfile akan mengidentifikasi file Help yang tersedia di disk lokal yang dapat disediakan sebagai bantuan di kotak dialog
• Pilihan. Konteks adalah ekspresi numerik yang digunakan untuk mengidentifikasi topik bantuan dengan nomor unik.

Contoh kode kotak Pesan

'VBA
Sub messagebox()

'Variables assigned

Dim buttonclick As VbMsgBoxResult

'Message box to display information to user

MsgBox "Hi, Visual Basic is easy to work with", vbExclamation, "VBA"

'Message box to ask question to user with yes or no question
buttonclick = MsgBox("Do you like VBA?", vbQuestion + vbYesNo, "VBA")
If buttonclick = vbYes Then
MsgBox "Yes, they are great!", vbExclamation, "VBA"
Else
MsgBox "Why not? They are great!", vbCritical, "VBA"
End If

End Sub

Keluaran:

Kotak Dialog dan Masukan Kode VBA

Kotak input adalah dialog sederhana yang memungkinkan kita untuk meminta beberapa informasi kepada pengguna. Mari kita berkenalan dengan kode VBA menggunakan contoh.

Sintaksis:

InputBox (Prompt, Judul, Default, XPos, YPos, HelpFile, HelpContextId, Jenis)

Penjelasan sintaks:

Mengingatkan:

Diperlukan. Ini adalah informasi yang dapat diberikan kepada pengguna. Itu harus dimasukkan di dalam  tanda kutip ganda .

Judul:

Pilihan. Ini adalah judul untuk informasi yang diberikan kepada pengguna. Jika tidak diberikan,  Microsoft word  akan menjadi judul default.

Bawaan:

Pilihan. Ini menampilkan nilai default di dalam kotak teks, sebelum pengguna mengetikkan suatu nilai. Jika tidak ditentukan, kotak teks akan kosong.

XPo:

Pilihan. Ini digunakan sebagai posisi pada sumbu X. Dari kiri ke kanan

YPos:

Pilihan. Ini digunakan sebagai posisi pada sumbu Y. Dari atas ke bawah

Helpfile dan HelpContext ID:

• Pilihan. Helpfile akan mengidentifikasi file Help yang tersedia di disk lokal yang dapat disediakan sebagai bantuan di kotak dialog
• Pilihan. HelpContext ID adalah nomor id untuk file bantuan.

Kode kotak masukan:

'VBA
Sub macro()

'Variables assigned
Dim a As Long
Dim b As Long

'Input box to get value from user

a = InputBox("Enter a value for a", "Question 1")
b = InputBox("Enter a value for b", "Question 2")

'Answer displayed in a message box
MsgBox ("Answer is " & Val(a) + Val(b))
End Sub

Keluaran: