Excel VBA: แสดง UserForms แบบเต็มหน้าจอ — 4 วิธีง่ายๆ

บ่อยครั้ง Userform ที่เราสร้างมีขนาดใหญ่และมีข้อมูลมากในพื้นที่เล็ก การรวมทั้งหมดไว้ในที่แคบๆ อาจขัดขวางความชัดเจนของ Userform หากคุณสงสัยว่าคุณสามารถแสดง Userform แบบเต็มหน้าจอใน Excel โดยใช้ VBA ได้อย่างไร บทความนี้อาจเป็นประโยชน์สำหรับคุณ ในบทความนี้ เราพูดถึงวิธีที่คุณสามารถแสดง Userform บนเต็มหน้าจอใน Excel โดยใช้ VBA พร้อมคำอธิบายอย่างละเอียด

ดาวน์โหลดสมุดงานฝึกฝนด้านล่าง

4 วิธีง่ายๆ ในการแสดง Userform แบบเต็มหน้าจอโดยใช้ VBA ใน Excel

เราจะใช้ชุดข้อมูลด้านล่างเพื่อสาธิตวิธีที่คุณสามารถแสดง Userform แบบเต็มหน้าจอโดยใช้ Excel VBA ไฟล์ต้องบันทึกในรูปแบบ xlsm แทนที่จะเป็น xlsx ปกติ

1. ใช้ xlMaximized

เราจะใช้โค้ด VBA ด้านล่างซึ่งจะ แสดง Userform ใน เต็มหน้าจอ โดยไม่มีความยุ่งยาก

ขั้นตอน

• เริ่มต้น คลิกที่แท็บ Developer แล้วเลือก Visual Basic

• เมื่อคุณเปิดหน้าต่าง Visual Basic แล้ว คลิกที่ Insert
• ในขั้นตอนถัดไป เลือก Userform จากเมนูดรอปดาวน์.

• กล่องสี่เหลี่ยมจะปรากฏหลังจากนั้น
• บนหน้าต่าง Properties คุณสามารถเปลี่ยนชื่อและ Caption ของหน้าต่างนั้นได้
• และนี่คือกล่องสำหรับใช้ Userform คุณสามารถเพิ่มรูปร่าง ปุ่ม กล่องทำเครื่องหมาย ฯลฯ และเชื่อมโยงกับชีต

• จากนั้น ดับเบิลคลิกที่กล่องนั้น
• คุณจะสังเกตว่ามีหน้าต่าง Editor ในหน้าต่าง Editor นั้น วางโค้ดด้านล่าง

Private Sub UserForm_Activate() Application.WindowState = xlMaximized With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With End Sub

• ทันทีที่คุณป้อนโค้ดแล้ว คลิกไอคอน Save แล้วคลิกสองครั้งที่ Userform
• มันจะพาคุณกลับไปที่กล่อง Userform หลักอีกครั้ง
• ตอนนี้ เพื่อวัตถุประสงค์ในการสาธิต ให้เพิ่มบางองค์ประกอบใน Userform
• เราเพิ่ม Text Boxes บางอัน และ Command Buttons บางอัน พร้อมกับกล่องป้อนข้อมูล
• จากนั้น คลิกที่ปุ่ม Run ที่แสดงในภาพ

• คลิกคำสั่ง Run เราสามารถเห็น Userform
• หลังจาก Userform ถูก Execute เราสามารถเห็นได้ว่า Userform กำลังครอบครองส่วนเต็มของหน้าจอ ตามที่แสดงในภาพด้านล่าง

🔎 การแยกวิเคราะห์โค้ด VBA

• ก่อน tutto เราเลือก Userform เป็นออบเจ็กต์ และ Activate เป็นกระบวนการ
• ในบรรทัดถัดไป WindowState จะแสดงสภาพหน้าต่างของแอปพลิเคชันที่กำลังทำงานอยู่ การตั้งค่าสภาพของบรรทัดคำสั่งนี้เป็น xlMaximized จะทำให้หน้าต่างของแอปพลิเคชันขยายเต็ม
• ในบรรทัดถัดไป เราเลือกหน้าต่างแอปพลิเคชัน
• จากนั้น เราป้อน 4 บรรทัดแยกกัน ทั้งหมดจะทำให้หน้าต่างขยายเต็มในทิศทาง บน ล่าง ซ้าย และ ขวา
• สุดท้าย จบ Sub-procedure ของโค้ด

2. ปรับความสูงและความกว้าง

เราจะใช้โค้ด VBA ด้านล่างซึ่งจะ แสดง Userform ใน เต็มหน้าจอ โดยไม่มีความยุ่งยาก

ขั้นตอน

• เริ่มต้น คลิกที่แท็บ Developer แล้วเลือก Visual Basic

• เมื่อคุณเปิดหน้าต่าง Visual Basic แล้ว คลิกที่ Insert
• ในขั้นตอนถัดไป เลือก Userform จากเมนูดรอปดาวน์

• กล่องสี่เหลี่ยมจะปรากฏหลังจากนั้น
• บนหน้าต่าง Properties คุณสามารถเปลี่ยนชื่อและ Caption ของหน้าต่างนั้นได้
• และนี่คือกล่องสำหรับใช้ Userform คุณสามารถเพิ่มรูปร่าง ปุ่ม กล่องทำเครื่องหมาย ฯลฯ และเชื่อมโยงกับชีต

• จากนั้น ดับเบิลคลิกที่กล่องนั้น
• คุณจะสังเกตว่ามีหน้าต่าง Editor ในหน้าต่าง Editor นั้น วางโค้ดด้านล่าง

Private Sub UserForm_Activate() Me.Height = Application.Height Me.Width = Application.Width Me.Left = Application.Left Me.Top = Application.Top End Sub Private Sub UserForm_Click() End Sub Private Sub UserForm_Initialize() Application.WindowState = xlMaximized End Sub

• ทันทีที่คุณป้อนโค้ดแล้ว คลิกไอคอน Save แล้วคลิกสองครั้งที่ Userform
• มันจะพาคุณกลับไปที่กล่อง Userform หลักอีกครั้ง
• ตอนนี้ เพื่อวัตถุประสงค์ในการสาธิต ให้เพิ่มบางองค์ประกอบในหน้าต่าง Userform เราเพิ่ม Text Boxes บางอัน และ Command Buttons บางอัน พร้อมกับกล่องป้อนข้อมูล
• จากนั้น คลิกที่ปุ่ม Run ที่แสดงในภาพ

• คลิกคำสั่ง Run เราสามารถเห็น Userform
• หลังจาก Userform ถูก Execute เราสามารถเห็นได้ว่า Userform กำลังครอบครองส่วนเต็มของหน้าจอ ตามที่แสดงใน ภาพ ด้านล่าง

🔎 การแยกวิเคราะห์โค้ด VBA

• ก่อน tutto เราเลือก Userform เป็นออบเจ็กต์ และ Activate เป็นกระบวนการ
• ใน 4 บรรทัดถัดไป จะรับความสูง ความกว้าง ซ้าย และ ขวา ของหน้าต่าง และเก็บไว้เป็น Height, Me.Width, Me.Left, Me.Top
• เราจึงจบ Sub-procedure ของโค้ด
• ก่อน tutto เราเลือก Userform เป็นออบเจ็กต์ และ Initialize เป็นกระบวนการ
• จากนั้น บรรทัดถัดไปจะขยายค่าที่เก็บไว้ของหน้าต่างในทุกทิศทาง ซึ่งจะทำให้หน้าต่างขยายเต็มหน้าจอ ทั้งหมดจะทำให้หน้าต่างขยายเต็มในทิศทาง บน ล่าง ซ้าย และ ขวา
• สุดท้าย เราจบ Sub-procedure ของโค้ด

3. ใช้คำสั่ง With

โค้ด VBA ที่แสดงด้านล่างจะแปลงหน้าต่าง Userform ขนาดเล็กเป็นหน้าต่าง เต็มหน้าจอ

ขั้นตอน

• เริ่มต้น คลิกที่แท็บ Developer แล้วเลือก Visual Basic

• เมื่อคุณเปิดหน้าต่าง Visual Basic แล้ว คลิกที่ Insert
• ในขั้นตอนถัดไป เลือก Userform จากเมนูดรอปดาวน์.

• กล่องสี่เหลี่ยมจะปรากฏหลังจากนั้น
• บนหน้าต่าง Properties คุณสามารถเปลี่ยนชื่อและ Caption ของหน้าต่างนั้นได้
• และนี่คือกล่องสำหรับใช้ Userform คุณสามารถเพิ่มรูปร่าง ปุ่ม กล่องทำเครื่องหมาย ฯลฯ และเชื่อมโยงกับชีต

• จากนั้น ดับเบิลคลิกที่กล่องนั้น
• คุณจะสังเกตว่ามีหน้าต่าง Editor ในหน้าต่าง Editor นั้น วางโค้ดด้านล่าง

Private Sub UserForm_Initialize() With Fullscreen_form_3 .Height = Application.Height .Width = Application.Width End With End Sub

• ทันทีที่คุณป้อนโค้ดแล้ว คลิกไอคอน Save แล้วคลิกสองครั้งที่ Userform
• มันจะพาคุณกลับไปที่กล่อง Userform หลักอีกครั้ง
• ตอนนี้ เพื่อวัตถุประสงค์ในการสาธิต ให้เพิ่มบางองค์ประกอบใน Userform
• เราเพิ่ม Text Boxes บางอัน และ Command Buttons บางอัน พร้อมกับ input box
• จากนั้น คลิกที่ปุ่ม Run ที่แสดงในภาพ

• คลิกคำสั่ง Run เราสามารถเห็น Userform
• หลังจาก Userform ถูก Execute เราสามารถเห็นได้ว่า Userform กำลังครอบครองส่วนเต็มของหน้าจอ ตามที่แสดงใน ภาพ

🔎 การแยกวิเคราะห์โค้ด VBA

• ก่อน tutto เราเลือก Userform เป็นออบเจ็กต์ และ Initialize เป็นกระบวนการ
• เราจะเลือกหน้าต่างแอปพลิเคชัน Userform ในบรรทัดถัดไป
• เราจึงเก็บความสูงและความกว้างของแอปพลิเคชันใน .Height และ .Width
• สุดท้าย เราจบ Sub-procedure ของโค้ด

4. ใช้ตัวแปร (Variable)

VBA ต่อไปนี้ ขยายแผง Userform ขนาดเล็กให้ครอบครอง เต็มหน้าจอ

ขั้นตอน

• เริ่มต้น คลิกที่แท็บ Developer แล้วเลือก Visual Basic

• เมื่อคุณเปิดหน้าต่าง Visual Basic แล้ว คลิกที่ Insert
• ในขั้นตอนถัดไป เลือก Userform จากเมนูดรอปดาวน์

• กล่องสี่เหลี่ยมจะปรากฏหลังจากนั้น
• บนหน้าต่าง Properties คุณสามารถเปลี่ยนชื่อและ Caption ของหน้าต่างนั้นได้
• และนี่คือกล่องสำหรับใช้ Userform คุณสามารถเพิ่มรูปร่าง ปุ่ม กล่องทำเครื่องหมาย ฯลฯ และเชื่อมโยงกับชีต

• จากนั้น ดับเบิลคลิกที่กล่องนั้น
• คุณจะสังเกตว่ามีหน้าต่าง Editor ในหน้าต่าง Editor นั้น วางโค้ดด้านล่าง

Private Sub UserForm_Initialize() Dim xlws As XlWindowState xlws = Application.WindowState Application.WindowState = xlMaximized With Fullscreen_form_4 .Top = Application.Top .Left = Application.Left .Width = Application.Width .Height = Application.Height .Show End With Application.WindowState = xlws End Sub

• ทันทีที่คุณป้อนโค้ดแล้ว คลิกไอคอน Save แล้วคลิกสองครั้งที่ Userform
• มันจะพาคุณกลับไปที่กล่อง Userform หลักอีกครั้ง
• ตอนนี้ เพื่อวัตถุประสงค์ในการสาธิต ให้เพิ่มบางองค์ประกอบใน Userform
• เราเพิ่ม Text Boxes บางอัน และ Command Buttons บางอัน พร้อมกับ input box
• จากนั้น คลิกที่ปุ่ม Run ที่แสดงในภาพ

• คลิกคำสั่ง Run เราสามารถเห็น Userform กำลัง Execute
• หลังจาก Userform ถูก Execute เราสามารถเห็นได้ว่า Userform กำลังครอบครองส่วนเต็มของหน้าจอ ตามที่แสดงใน ภาพ

🔎 การแยกวิเคราะห์โค้ด VBA

• ก่อน tutto เราเลือก Userform เป็นออบเจ็กต์ และ Initialize เป็นกระบวนการ
• ในบรรทัดถัดไป เรา宣告 xlws เป็นตัวแปรสำหรับประเภท XlWindowState
• ในบรรทัดถัดไป WindowState จะแสดงสภาพหน้าต่างของแอปพลิเคชันที่กำลังทำงานอยู่ และเราวาง xlws เป็นสภาพหน้าต่างปัจจุบัน
• การตั้งค่าสภาพของบรรทัดคำสั่ง WindowState เป็น xlMaximized จะทำให้หน้าต่างของแอปพลิเคชันขยายเต็ม
• ในบรรทัดถัดไป เราเลือกหน้าต่างแอปพลิเคชัน
• จากนั้น เราป้อน 4 บรรทัดแยกกัน ทั้งหมดจะทำให้หน้าต่างขยายเต็มในทิศทาง บน ล่าง ซ้าย และ ขวา
• สุดท้าย จบ Sub-procedure ของโค้ด

สรุป

สรุปได้ว่า ปัญหาว่าเราจะแสดง Userform ให้เต็มหน้าจอได้อย่างไร ได้รับคำตอบที่นี่โดยตัวอย่างโค้ด VBA Macro 4 แบบที่แตกต่างกัน แม้โค้ดจะมีประสิทธิภาพด้านเวลา แต่วิธี VBA Macro ต้องการความรู้ เกี่ยวกับ VBA ก่อนหน้านี้เพื่อเข้าใจจากศูนย์

สำหรับปัญหานี้ มีสมุดงานที่เปิดใช้งานแมโครแนบมาที่คุณสามารถฝึกฝนวิธีเหล่านี้ได้

รู้สึกสบายใจถามคำถามหรือข้อเสนอแนะผ่านส่วนความคิดเห็น ข้อเสนอแนะใดๆ สำหรับการปรับปรุงชุมชน Exceldemy จะได้รับการชื่นชมสูง