ขณะทำงานกับ VBA ใน Excel พวกเราส่วนใหญ่ประสบปัญหาขณะพยายามสร้างแบบฟอร์มการป้อนข้อมูล ในบทความนี้ ฉันจะแสดงวิธีสร้างแบบฟอร์มการป้อนข้อมูล ใน Excel สวยสะดวกและสวยงามโดยใช้ VBA .
3 ขั้นตอนง่ายๆ ในการสร้างแบบฟอร์มการป้อนข้อมูลใน Excel VBA
ฉันมีแผ่นงานสามแผ่นชื่อ วอชิงตัน นิวยอร์ก และ แคลิฟอร์เนีย ที่มี ชื่อ เบอร์ติดต่อ อายุ และ เพศ ของลูกค้าบางส่วนของธนาคารทั้งสามสาขานี้
วัตถุประสงค์ของเราในวันนี้คือการสร้างแบบฟอร์มเพื่อป้อนข้อมูลใดๆ ลงในฐานข้อมูลนี้โดยใช้ VBA .
เราจะบรรลุวัตถุประสงค์ในสองขั้นตอน
- ขั้นแรก เราจะสร้างการป้อนข้อมูล UserForm เพื่อป้อนข้อมูลใหม่
- จากนั้นเราจะเพิ่มปุ่มบนเวิร์กชีตเพื่อเปิดแบบฟอร์ม
ขั้นตอนที่ 1:การพัฒนา UserForm เพื่อสร้างแบบฟอร์มการป้อนข้อมูลโดยใช้ Excel VBA
ขั้นตอนนี้เป็นกระบวนการที่ยาวนานและอาจต้องใช้เวลาพอสมควรกว่าจะเข้าใจอย่างถ่องแท้ ดังนั้น เพื่อผลลัพธ์ที่มีประสิทธิภาพ ให้ทำตามขั้นตอนที่กล่าวถึงที่นี่ด้วยความเอาใจใส่และอดทนอย่างสุดความสามารถ
- กด ALT + F11 บนแป้นพิมพ์ของคุณเพื่อเปิด Visual Basic หน้าต่าง
- ใน Visual Basic หน้าต่าง ไปที่ แทรก> UserForm ตัวเลือกในแถบเครื่องมือ คลิกที่ ฟอร์มผู้ใช้ . ฟอร์มผู้ใช้ใหม่ เรียกว่า UserForm1 จะเปิดขึ้น
- ขั้นแรก ให้ลาก ป้ายกำกับ (Label1) จากกล่องเครื่องมือไปที่มุมบนซ้ายสุดของ UserForm . เปลี่ยนการแสดง ป้ายกำกับ ไปที่ แผ่นงาน .
ลาก กล่องรายการ (กล่องรายการ1) ทางด้านขวาของ Label1 .
- จากนั้นลากป้ายกำกับอีกสองสามรายการ เท่ากับจำนวนคอลัมน์ทั้งหมดของชุดข้อมูล (4 ในตัวอย่างนี้) ทางด้านซ้ายของ UserForm ข้างป้ายกำกับ ลาก กล่องข้อความ .
เปลี่ยนการแสดง ป้ายกำกับ ไปที่ส่วนหัวคอลัมน์ของชุดข้อมูลของคุณ (ชื่อลูกค้า ที่อยู่ติดต่อ อายุ และ เพศ ที่นี่)
- สุดท้าย ลาก CommandButton ที่ด้านล่างขวาสุดของ ฟอร์มผู้ใช้ . เปลี่ยนการแสดงปุ่มเป็น ป้อนข้อมูล .
- ดับเบิลคลิกที่ กล่องรายการ . ขั้นตอนย่อยส่วนตัว เรียกว่า ListBox1_Click จะเปิด ใส่รหัสต่อไปนี้ที่นั่น
⧭ รหัส VBA:
Private Sub ListBox1_Click()
For i = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(i) = True Then
Worksheets(UserForm1.ListBox1.List(i)).Activate
End If
Next i
End Sub
- ถัดไป ให้ดับเบิลคลิกที่ CommandButton . ขั้นตอนย่อยส่วนตัวอื่น เรียกว่า CommandButton_Click จะเปิด ใส่รหัสต่อไปนี้ที่นั่น
⧭ รหัส VBA:
Private Sub CommandButton1_Click()
Total_Rows = ActiveSheet.UsedRange.Rows.Count
Total_Columns = ActiveSheet.UsedRange.Columns.Count
Active_Column = 1
For Each Ctrl In UserForm1.Controls
If TypeName(Ctrl) = "TextBox" Then
ActiveSheet.UsedRange.Cells(Total_Rows + 1, Active_Column) = Ctrl.Text
Active_Column = Active_Column + 1
End If
Next Ctrl
End Sub
- สุดท้าย ไปที่ แทรก> โมดูล ในแถบเครื่องมือ แล้วคลิก โมดูล .
- โมดูลใหม่ เรียกว่า Module1 จะถูกแทรก ป้อนรหัสต่อไปนี้ที่นั่น:
⧭ รหัส VBA:
Sub Run_UserForm()
UserForm1.Caption = "Data Entry Form"
UserForm1.ListBox1.BorderStyle = fmBorderStyleSingle
UserForm1.ListBox1.ListStyle = fmListStyleOption
For i = 1 To Sheets.Count
UserForm1.ListBox1.AddItem Sheets(i).Name
Next i
Load UserForm1
UserForm1.Show
End Sub
คุณทำเสร็จแล้ว! คุณได้สร้างแบบฟอร์มการป้อนข้อมูลเพื่อป้อนข้อมูลใหม่ลงในฐานข้อมูลเรียบร้อยแล้ว
อ่านเพิ่มเติม: ประเภทของการป้อนข้อมูลใน Excel (ภาพรวมโดยย่อ)
ขั้นตอนที่ 2:การแทรกปุ่มเพื่อเปิดแบบฟอร์มการป้อนข้อมูล
เราสร้างฟอร์มการป้อนข้อมูลสำเร็จโดยใช้ Userform ใน Excel VBA . ตอนนี้เราจะเพิ่มปุ่มในแผ่นงานของเราเพื่อเปิดแบบฟอร์ม
ทำตามขั้นตอนที่ระบุไว้ด้านล่างเพื่อบรรลุสิ่งนี้
- คลิกและเปิดนักพัฒนา แท็บจาก ริบบิ้น Excel ของ Excel ด้านบน. นักพัฒนา โดยค่าเริ่มต้นแท็บจะซ่อนอยู่ใน Excel ถ้าคุณไม่เห็นมันใน Excel Ribbon , ทำตามขั้นตอนที่กล่าวถึงที่นี่เพื่อยกเลิกการซ่อน .
- ภายใต้ นักพัฒนา ในส่วน การควบคุม ให้คลิกที่ แทรก . คุณจะพบเครื่องมือมากมายที่พร้อมใช้งาน ลากปุ่ม (การควบคุมแบบฟอร์ม ) จากด้านซ้ายบนสุด
- ลากปุ่มไปยังโซนที่ต้องการบนเวิร์กชีตของคุณแล้วปล่อย กล่องโต้ตอบชื่อ กำหนดมาโคร จะเปิด ใน ชื่อมาโคร ให้แทรก Run_UserForm .
จากนั้นคลิก ตกลง .
- ตอนนี้ ถ้าคุณต้องการ คุณสามารถเปลี่ยนการแสดงผลของปุ่มได้ ฉันได้เปลี่ยนเป็น ป้อนข้อมูลใหม่ .
ยินดีด้วย! คุณได้เพิ่มปุ่มเพื่อเปิดแบบฟอร์มการป้อนข้อมูลเรียบร้อยแล้ว
ตอนนี้ ถ้าคุณต้องการ คุณสามารถป้อนปุ่มในแต่ละเวิร์กชีตของเราเพื่อเพิ่มความซับซ้อนให้กับกระบวนการ
อ่านเพิ่มเติม: วิธีการแทรกรายการข้อมูลการประทับเวลาโดยอัตโนมัติใน Excel (5 วิธี)
การอ่านที่คล้ายกัน
- วิธีการเติมสเปรดชีต Excel จากเว็บฟอร์ม
- สร้างการบันทึกข้อมูลใน Excel (2 วิธีที่เหมาะสม)
- วิธีการสร้างแบบฟอร์มที่กรอกได้ใน Excel (5 ตัวอย่างที่เหมาะสม)
ขั้นตอนที่ 3:ผลลัพธ์ขั้นสุดท้ายเพื่อสร้างแบบฟอร์มการป้อนข้อมูล
เราสร้างฟอร์มการป้อนข้อมูลสำเร็จโดยใช้ Excel VBA และเพิ่มปุ่มเพื่อเปิด หากต้องการดูผลลัพธ์ ให้คลิกที่ปุ่ม ป้อนข้อมูลใหม่ ในใบงาน
แบบฟอร์มการป้อนข้อมูลจะเปิดขึ้น ก่อนอื่น เลือกแผ่นงานที่คุณต้องการสร้างรายการใหม่
ที่นี่ฉันได้เลือก นิวยอร์ก . ทันทีที่คุณเลือกเวิร์กชีต เวิร์กชีตจะทำงาน
- จากนั้นกรอกข้อมูลที่เหลือที่คุณต้องการป้อน ฉันใส่ เจนนิเฟอร์ มาร์โล, 444204240, 26, และ ผู้หญิง .
- จากนั้นคลิก ป้อนข้อมูล .
คุณจะพบข้อมูลใหม่ที่ป้อนลงในแถวสุดท้ายของฐานข้อมูล
อ่านเพิ่มเติม: วิธีสร้างแบบฟอร์มการป้อนข้อมูล Excel โดยไม่ต้องใช้ UserForm
สิ่งที่ควรจำ
- ขณะป้อนข้อมูลใหม่ รหัสจะเป็นไปตามลำดับของ กล่องข้อความ ของ ฟอร์มผู้ใช้ . ดังนั้นในขณะที่เพิ่ม กล่องข้อความ ใน ฟอร์มผู้ใช้ รักษาลำดับของคอลัมน์ในฐานข้อมูลของคุณ
บทสรุป
ดังนั้น นี่คือขั้นตอนในการสร้างแบบฟอร์มการป้อนข้อมูลสำหรับฐานข้อมูลของคุณโดยใช้ Excel VBA . คุณมีคำถามใด ๆ หรือไม่? อย่าลังเลที่จะถามเรา และอย่าลืมเยี่ยมชมเว็บไซต์ของเรา ExcelDemy สำหรับโพสต์และการอัปเดตเพิ่มเติม
บทความที่เกี่ยวข้อง
- วิธีสร้างแบบฟอร์มป้อนอัตโนมัติใน Excel (คำแนะนำทีละขั้นตอน)
- สร้างแบบฟอร์มการป้อนข้อมูลด้วยรายการแบบเลื่อนลงใน Excel (2 วิธี)
- วิธีการป้อนข้อมูลอัตโนมัติใน Excel (2 วิธีที่มีประสิทธิภาพ)
- จำกัดการป้อนข้อมูลในเซลล์ Excel (2 วิธีง่ายๆ)
