VBA - กล่องอินพุต

InputBox functionแจ้งให้ผู้ใช้ป้อนค่า หลังจากป้อนค่าแล้วหากผู้ใช้คลิกปุ่ม OK หรือกด ENTER บนแป้นพิมพ์ฟังก์ชัน InputBox จะส่งคืนข้อความในกล่องข้อความ หากผู้ใช้คลิกปุ่มยกเลิกฟังก์ชันจะส่งคืนสตริงว่าง ("")

ไวยากรณ์

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

คำอธิบายพารามิเตอร์

  • Prompt- พารามิเตอร์ที่จำเป็น สตริงที่แสดงเป็นข้อความในกล่องโต้ตอบ ความยาวสูงสุดของพร้อมต์คือประมาณ 1024 อักขระ หากข้อความขยายไปมากกว่าหนึ่งบรรทัดสามารถแยกบรรทัดได้โดยใช้อักขระส่งคืนแคร่ (Chr (13)) หรืออักขระป้อนบรรทัด (Chr (10)) ระหว่างแต่ละบรรทัด

  • Title- พารามิเตอร์เสริม นิพจน์สตริงที่แสดงในแถบชื่อเรื่องของกล่องโต้ตอบ หากชื่อเรื่องถูกปล่อยว่างไว้ชื่อแอปพลิเคชันจะอยู่ในแถบชื่อเรื่อง

  • Default- พารามิเตอร์เสริม ข้อความเริ่มต้นในกล่องข้อความที่ผู้ใช้ต้องการให้แสดง

  • XPos- พารามิเตอร์เสริม ตำแหน่งของXแกนแสดงระยะห่างที่แจ้งจากด้านซ้ายของหน้าจอในแนวนอน หากปล่อยว่างไว้ช่องป้อนข้อมูลจะอยู่กึ่งกลางแนวนอน

  • YPos- พารามิเตอร์เสริม ตำแหน่งของYแกนแสดงระยะห่างจากด้านซ้ายของหน้าจอในแนวตั้ง หากปล่อยว่างไว้ช่องป้อนข้อมูลจะอยู่ตรงกลางในแนวตั้ง

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

  • context- พารามิเตอร์เสริม นิพจน์ตัวเลขที่ระบุหมายเลขบริบทวิธีใช้ที่กำหนดโดยผู้เขียนวิธีใช้ให้กับหัวข้อวิธีใช้ที่เหมาะสม หากมีการระบุบริบทจะต้องระบุ helpfile ด้วย

ตัวอย่าง

ให้เราคำนวณพื้นที่ของสี่เหลี่ยมผืนผ้าโดยรับค่าจากผู้ใช้ในขณะทำงานด้วยความช่วยเหลือของช่องป้อนข้อมูลสองช่อง (ช่องหนึ่งสำหรับความยาวและอีกช่องสำหรับความกว้าง)

Function findArea() 
   Dim Length As Double 
   Dim Width As Double 
   
   Length = InputBox("Enter Length ", "Enter a Number") 
   Width = InputBox("Enter Width", "Enter a Number") 
   findArea = Length * Width 
End Function

เอาต์พุต

Step 1 - ในการดำเนินการเดียวกันให้เรียกโดยใช้ชื่อฟังก์ชันแล้วกด Enter ดังที่แสดงในภาพหน้าจอต่อไปนี้

Step 2- เมื่อดำเนินการกล่องป้อนข้อมูลแรก (ความยาว) จะปรากฏขึ้น ป้อนค่าลงในช่องป้อนข้อมูล

Step 3 - หลังจากป้อนค่าแรกช่องป้อนข้อมูลที่สอง (ความกว้าง) จะปรากฏขึ้น

Step 4- เมื่อป้อนหมายเลขที่สองให้คลิกปุ่มตกลง พื้นที่จะแสดงดังที่แสดงในภาพหน้าจอต่อไปนี้