วิธีสร้างอินพุตและกล่องข้อความในเอกสาร Word ด้วย VBA

ปรับปรุงล่าสุด: กรกฎาคม 2020; การบังคับใช้: Office 365,2019, 2016, 2013

บางครั้ง เราต้องการทำให้เอกสาร Word ของเรามีการโต้ตอบกันมากขึ้น และแม้กระทั่งบันทึกข้อมูลที่ผู้ใช้ป้อนไว้ ป้อนข้อความและช่องป้อนข้อมูล

ตามชื่อของมัน กล่องข้อความเป็นส่วนของข้อมูลที่แสดงต่อผู้ใช้เอกสาร กล่องอินพุตเป็นเครื่องมือในการเก็บข้อมูลจากผู้ใช้

โพสต์นี้มีข้อมูลและตัวอย่างโค้ดทั้งหมดที่คุณต้องการเพื่อสร้างเอกสารที่ใช้งานได้อย่างสมบูรณ์ด้วยข้อความ Visual Basic for Applications (VBA) และช่องป้อนข้อมูลสำหรับ Microsoft Word

จะเพิ่มโค้ด VBA ลงใน Word ได้อย่างไร?

ก่อนที่เราจะอธิบายวิธีเพิ่มข้อความและกล่องใส่ข้อมูล ต่อไปนี้คือข้อมูลสรุปสั้นๆ เกี่ยวกับวิธีเพิ่มโค้ด VBA ที่กำหนดเองลงในเอกสาร Word

• ก่อนอื่น ให้เปิดใช้งานแท็บนักพัฒนาซอฟต์แวร์
• ตอนนี้ ให้กดปุ่ม  Visual Basicจาก  แท็บDeveloper ซึ่งจะเปิด Visual Basic Editor

• เน้นเอกสารของคุณ
• คลิก  แทรก แล้ว  เลือกโมดูล

• คัดลอกโค้ดที่เราให้ไว้ด้านล่างลงในโมดูลที่คุณเพิ่งสร้างลงในโมดูลของคุณ
• คลิกที่บันทึก ระบุชื่อให้กับเอกสารของคุณหากได้รับแจ้ง
• ปิดตัวแก้ไข Visual Basic

กล่องข้อความ รหัส VBA

ไวยากรณ์:

MsgBox(พร้อมท์,ปุ่ม,หัวเรื่อง,ไฟล์ช่วยเหลือ,บริบท)

คำอธิบายไวยากรณ์:

แจ้ง:

ที่จำเป็น. เป็นข้อมูลที่สามารถมอบให้กับผู้ใช้ได้ ควรแทรกไว้ภายใน  เครื่องหมายคำพูดคู่

ปุ่ม:

ไม่จำเป็น. ปุ่มคือปุ่มประเภทที่ให้ไว้กับข้อมูลผู้ใช้ มีปุ่มต่างๆ สำหรับ MsgBox() และสามารถพบได้ในรูปภาพด้านล่าง

ชื่อ:

ไม่จำเป็น. เป็นชื่อสำหรับข้อมูลที่ให้กับผู้ใช้ หากไม่ระบุ  Microsoft word จะเป็นชื่อเริ่มต้น

ไฟล์ช่วยเหลือและบริบท:

• ไม่จำเป็น. Helpfile จะระบุไฟล์วิธีใช้ที่มีอยู่ในดิสก์ภายในเครื่องซึ่งสามารถให้เป็นตัวช่วยในกล่องโต้ตอบ
• ไม่จำเป็น. บริบทคือนิพจน์ตัวเลขซึ่งใช้เพื่อระบุหัวข้อวิธีใช้ด้วยหมายเลขเฉพาะ

ตัวอย่างรหัสกล่องข้อความ

'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

เอาท์พุท:

กล่องโต้ตอบและอินพุต รหัส VBA

กล่องใส่ข้อมูลเป็นกล่องโต้ตอบง่ายๆ ที่ช่วยให้เราแจ้งข้อมูลบางอย่างแก่ผู้ใช้ได้ ให้เราทำความคุ้นเคยกับโค้ด VBA โดยใช้ตัวอย่าง

ไวยากรณ์:

InputBox(พร้อมท์, ชื่อเรื่อง, ค่าเริ่มต้น, XPos, YPos, HelpFile, HelpContextId, Type)

คำอธิบายไวยากรณ์:

แจ้ง:

ที่จำเป็น. เป็นข้อมูลที่สามารถมอบให้กับผู้ใช้ได้ ควรแทรกไว้ภายใน  เครื่องหมายคำพูดคู่

ชื่อ:

ไม่จำเป็น. เป็นชื่อสำหรับข้อมูลที่ให้กับผู้ใช้ หากไม่ระบุ  Microsoft word จะเป็นชื่อเริ่มต้น

ค่าเริ่มต้น:

ไม่จำเป็น. จะแสดงค่าเริ่มต้นในกล่องข้อความ ก่อนที่ผู้ใช้จะพิมพ์ค่า หากไม่ระบุ กล่องข้อความจะว่างเปล่า

เอ็กซ์โป:

ไม่จำเป็น. ใช้เป็นตำแหน่งบนแกน X จากซ้ายไปขวา

YPos:

ไม่จำเป็น. ใช้เป็นตำแหน่งบนแกน Y จากบนลงล่าง

Helpfile และ HelpContext ID:

• ไม่จำเป็น. Helpfile จะระบุไฟล์วิธีใช้ที่มีอยู่ในดิสก์ภายในเครื่องซึ่งสามารถให้เป็นตัวช่วยในกล่องโต้ตอบ
• ไม่จำเป็น. HelpContext ID คือหมายเลขประจำตัวสำหรับไฟล์วิธีใช้

รหัสกล่องขาเข้า:

'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

เอาท์พุท: