Bagaimana untuk membuat kotak input dan mesej dalam dokumen Word dengan VBA?

Kemas kini terakhir: Julai 2020; Kebolehgunaan: Office 365,2019, 2016, 2013.

Kadangkala, kami ingin menjadikan dokumen Word kami lebih interaktif dan juga menangkap beberapa input pengguna. Masukkan mesej dan kotak input.

Seperti namanya, kotak mesej ialah sekeping maklumat yang dipaparkan kepada pengguna dokumen. Kotak input adalah penting untuk menangkap maklumat daripada pengguna.

Siaran ini mempunyai semua maklumat dan sampel kod yang anda perlukan untuk mencipta dokumen berfungsi sepenuhnya dengan mesej dan kotak input Visual Basic for Applications (VBA) untuk Microsoft Word.

Bagaimana untuk menambah kod VBA ke dalam Word?

Sebelum kita meneruskan dan menerangkan cara menambah kotak mesej dan input, berikut ialah penyegaran pantas tentang cara menambah kod VBA tersuai anda pada dokumen Word.

• Mula-mula, teruskan dan dayakan tab Pembangun .
• Sekarang, tekan butang  Visual Basic dari  tab Pembangun  . Ini akan membuka Editor Visual Basic.

• Serlahkan Dokumen anda.
• Klik  Sisipkan  dan kemudian pilih  Modul .

• Salin kod yang kami sediakan di bawah ke dalam Modul yang baru anda buat ke dalam modul anda.
• Klik pada Simpan. Berikan nama pada dokumen anda jika digesa.
• Tutup Editor Visual Basic.

Kod VBA Kotak Mesej

Sintaks:

MsgBox(prompt,butang,tajuk,helpfile,konteks)

Penjelasan sintaks:

Gesaan:

Diperlukan. Ia adalah maklumat yang boleh diberikan kepada pengguna. Ia hendaklah disisipkan di dalam  tanda petikan berganda .

Butang:

Pilihan. Butang adalah jenis butang yang diberikan kepada maklumat pengguna. Terdapat pelbagai butang yang tersedia untuk MsgBox() dan ia boleh didapati pada gambar di bawah.

Tajuk:

Pilihan. Ia adalah tajuk untuk maklumat yang diberikan kepada pengguna. Jika tidak diberikan,  Microsoft word  akan menjadi tajuk lalai.

Fail bantuan dan konteks:

• Pilihan. Helpfile akan mengenal pasti fail Bantuan yang tersedia dalam cakera tempatan yang boleh disediakan sebagai bantuan dalam kotak dialog
• Pilihan. Konteks ialah ungkapan berangka yang digunakan untuk mengenal pasti topik bantuan dengan nombor unik.

Contoh kod kotak Mesej

'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

Pengeluaran:

Kod VBA Kotak Dialog dan Input

Kotak input ialah dialog ringkas yang membolehkan kami menggesa pengguna untuk mendapatkan beberapa maklumat. Marilah kita berkenalan dengan kod VBA menggunakan contoh.

Sintaks:

InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, HelpContextId, Type)

Penjelasan sintaks:

Gesaan:

Diperlukan. Ia adalah maklumat yang boleh diberikan kepada pengguna. Ia hendaklah disisipkan di dalam  tanda petikan berganda .

Tajuk:

Pilihan. Ia adalah tajuk untuk maklumat yang diberikan kepada pengguna. Jika tidak diberikan,  Microsoft word  akan menjadi tajuk lalai.

Lalai:

Pilihan. Ia memaparkan nilai lalai di dalam kotak teks, sebelum pengguna menaip nilai. Jika tidak dinyatakan, kotak teks akan kosong.

XPos:

Pilihan. Ia digunakan sebagai kedudukan pada paksi X. Dari kiri ke kanan

YPos:

Pilihan. Ia digunakan sebagai kedudukan pada paksi Y. Dari atas ke bawah

Helpfile dan HelpContext ID:

• Pilihan. Helpfile akan mengenal pasti fail Bantuan yang tersedia dalam cakera tempatan yang boleh disediakan sebagai bantuan dalam kotak dialog
• Pilihan. HelpContext ID ialah nombor id untuk fail bantuan.

Kod kotak input:

'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

Pengeluaran: