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