สารบัญ
เรามักจะใช้ MsgBox ใน VBA เพื่อแสดงการแจ้งเตือนหลังจากเรียกใช้โค้ด บางครั้งบรรทัดเดียวไม่สามารถแสดงผลได้อย่างถูกต้อง จากนั้นเราต้อง เพิ่มบรรทัดใหม่ จากบทความนี้ คุณจะได้เรียนรู้ 6 มาโครที่เป็นประโยชน์ในการเพิ่มบรรทัดใหม่ใน MsgBox โดยใช้ Excel VBA
ดาวน์โหลด Practice Workbook
คุณสามารถดาวน์โหลดเทมเพลต Excel ได้ฟรีจากที่นี่และฝึกฝนด้วยตัวเอง
สร้างบรรทัดใหม่ใน MsgBox.xlsm
6 ตัวอย่างการสร้างบรรทัดใหม่ใน MsgBox โดยใช้ Excel VBA
1. ใช้ vbNewLine เพื่อเพิ่มบรรทัดใหม่ใน MsgBox โดยใช้ Excel VBA
ที่นี่ เราจะใช้ vbNewLine ใน VBA Macro เพื่อเพิ่มบรรทัดใน MsgBox. ฉันจะแสดง “ สวัสดี! ” ในบรรทัดแรกและ “ ยินดีต้อนรับสู่ ExcelWIKI” ในบรรทัดที่สอง
ขั้นตอน:
- กด Alt + F11 เพื่อเปิด หน้าต่าง VBA .
- จากนั้น คลิก ดังต่อไปนี้ แทรกโมดูล: แทรก ➤ โมดูล .
- หลังจากนั้น ให้พิมพ์โค้ดต่อไปนี้ลงไป-
6489
- จากนั้น ย้อนกลับ ไปที่ ชีต และ คลิก ดังต่อไปนี้เพื่อเปิด มาโคร กล่องโต้ตอบ: ผู้พัฒนา ➤ มาโคร .
- เลือก มาโคร มาโคร ชื่อ ตามที่ระบุใน รหัส .
- สุดท้าย กด เรียกใช้ .
ลองดูสิ vbNewLine กำลังแสดงเอาต์พุตใน สองบรรทัด .
อ่านเพิ่มเติม: VBA เพื่อสร้างหลายบรรทัดในเนื้อหาอีเมลใน Excel (2 วิธี)
2. ใช้ vbCrLf เพื่อสร้างบรรทัดใหม่ใน MsgBox โดยใช้ VBA ใน Excel
ตอนนี้เราจะใช้ค่าคงที่อื่นของ VBA – vbCrLf เพื่อสร้างบรรทัดใหม่ใน MsgBox . นอกจากนี้ยังจะเพิ่มบรรทัดใหม่ระหว่างสองบรรทัดติดต่อกัน
ขั้นตอน:
- ขั้นแรก ให้ทำตาม สองขั้นตอนแรกจากวิธีแรก เพื่อแทรกโมดูลใน VBA
- จากนั้น เขียน โค้ด ต่อไปนี้ ในนั้น-
5140
- ถัดไป ทำตาม ขั้นตอนที่สี่จากวิธีแรก เพื่อเปิด กล่องโต้ตอบมาโคร
- เลือก ชื่อแมโคร แล้วกด เรียกใช้ .
ค่าคงที่ vbCrLf ได้เพิ่ม ขึ้นบรรทัดใหม่ โดยมี ขึ้นบรรทัดใหม่ ด้วย
อ่านเพิ่มเติม: วิธีเพิ่ม บรรทัดในเซลล์ Excel (5 วิธีง่ายๆ)
3. แทรก vbLf เพื่อเพิ่มบรรทัดใหม่ใน MsgBox โดยใช้ Excel VBA
ลองใช้ค่าคงที่อื่น - vbLf เพื่อเพิ่ม บรรทัดใหม่ใน MsgBox ใน Excel VBA
ขั้นตอน:
- ทำตาม สองขั้นตอนแรกจากวิธีแรก เพื่อแทรกโมดูลใน VBA
- หลังจากนั้น เขียน รหัส ต่อไปนี้ ในนั้น-
5488
- จากนั้น ทำตาม ขั้นตอนที่สี่จากวิธีแรก เพื่อเปิด กล่องโต้ตอบมาโคร
- ต่อมา เลือก ชื่อมาโคร ตามที่ระบุในรหัส และกด เรียกใช้ .
และหลังจากนั้นไม่นาน คุณจะได้รับผลลัพธ์ที่ต้องการ
อ่านเพิ่มเติม: วิธีเพิ่มบรรทัดใหม่ด้วยสูตร CONCATENATE ใน Excel (5 วิธี)
4. ใช้ Chr เพื่อสร้างบรรทัดใหม่ใน MsgBox โดยใช้ VBA ใน Excel
ที่นี่ เราจะใช้ค่าคงที่สองค่าของ VBA- Chr(13) & Chr(10) เพื่อเพิ่มบรรทัด
ขั้นตอน:
- เริ่มต้นด้วยการทำตาม สองขั้นตอนแรกจากวิธีแรก เพื่อแทรกโมดูลใน VBA
- จากนั้น เขียน โค้ด ต่อไปนี้ ในนั้น-
7595
- หลังจากนั้น ให้ทำตาม ขั้นตอนที่สี่จากวิธีแรก เพื่อเปิด กล่องโต้ตอบมาโคร .
- จากนั้นเลือก กำหนด ชื่อมาโคร แล้วกด เรียกใช้ .
ดูว่าเราได้ผลลัพธ์เดียวกัน
5. เพิ่มบรรทัดใหม่ภายในแมโครใน Excel VBA
ในวิธีการก่อนหน้านี้ เราไม่ได้ทำลายบรรทัดในโค้ด ที่นี่ เราจะแบ่งและเพิ่มบรรทัดภายในโค้ด
ขั้นตอน:
- ขั้นแรก ให้ทำตาม สองขั้นตอนแรกจากวิธีแรก เพื่อแทรกโมดูลใน VBA
- ถัดไป เขียน โค้ด ต่อไปนี้ ในนั้น-
7270
- หลังจากนั้น ให้ทำตาม ขั้นตอนที่สี่จากวิธีแรก เพื่อเปิด กล่องโต้ตอบมาโคร
- จากนั้นเพียงเลือก ชื่อมาโคร แล้วกด เรียกใช้
ทันทีเห็นไหมว่า มาโคร ได้ เพิ่มบรรทัดใหม่ ทำให้ เส้นช่องว่าง ระหว่างบรรทัด
อ่านเพิ่มเติม: วิธีการขึ้นบรรทัดใหม่ใน Excel (4 วิธี)
6. ฝัง VBA เพื่อเพิ่มบรรทัดใหม่ใน MsgBox โดยใช้ปุ่ม
ในวิธีสุดท้าย เราจะทำงานด้วยวิธีที่ต่างออกไปเล็กน้อย เราจะตั้งค่า ปุ่ม เพื่อเพิ่มบรรทัดใน MsgBox .
6.1 ปุ่มสำหรับบรรทัดเดียว
ก่อนอื่น เรา จะสร้างปุ่มสำหรับเพิ่มบรรทัดเดียว สำหรับสิ่งนั้น ฉันได้สร้างชุดข้อมูลที่แสดงถึงสามเซลล์เพื่อป้อน นามสกุล , ที่อยู่ และ หมายเลขโทรศัพท์ เมื่อเราจะคลิกปุ่ม ปุ่ม จะเป็นการตรวจสอบเซลล์และ หากได้รับเซลล์ว่าง จากนั้นจะ แสดงข้อความ สำหรับเซลล์นั้น
- คลิก ดังนี้: ผู้พัฒนา ➤ แทรก จากนั้น เลือก กล่อง สี่เหลี่ยม จาก ส่วนการควบคุมแบบฟอร์ม .
- หลังจากนั้นไม่นาน คุณจะได้รับ เครื่องหมายบวก เคอร์เซอร์ของคุณ คลิกซ้าย เมาส์ของคุณ และ ลาก บน แผ่นงาน เพื่อตั้งค่า ขนาดปุ่ม
- จากนั้น คลิกขวา เมาส์ ของคุณบนปุ่ม และเลือก แก้ไขข้อความ จาก เมนูบริบท เพื่อตั้งค่า ชื่อปุ่ม .
- พิมพ์ ที่ ชื่อ และคลิกที่ใดก็ได้บนแผ่นงาน
- อีกครั้ง คลิกขวา ของคุณ เมาส์ บนปุ่ม และเลือก กำหนดมาโคร จากเมนูบริบท เพื่อตั้งค่า มาโคร
- ในขณะนี้ ให้ ชื่อมาโคร แล้วกด ใหม่
- จากนั้น พิมพ์ รหัส ต่อไปนี้ –
6415
รายละเอียดรหัส
- ก่อนอื่น ฉันสร้าง ขั้นตอนย่อย SingleLine_Button .
- จากนั้นประกาศตัวแปร WS เป็น แผ่นงาน .
- จากนั้นใช้ คำสั่ง IF สามชุดเพื่อตรวจสอบเซลล์ ถ้าเซลล์เต็มไปด้วยค่า จากนั้นเซลล์จะ ละเว้น และ ถ้าได้รับเซลล์ว่าง จากนั้นจะแสดง ข้อความที่สอดคล้องกัน ผ่าน MsgBox .
- ต่อมา เพียง ย้อนกลับ ไปที่ แผ่นงาน และ คลิก ปุ่ม
เนื่องจากช่อง นามสกุล ว่างเปล่า จึงมีการแสดงข้อความแจ้งเตือน
- กด ตกลง จากนั้นระบบจะตรวจสอบช่องที่สอง .
ฟิลด์ ฟิลด์ที่สองว่างเปล่า เช่นกัน ดังนั้น จึงเพิ่ม a n ew บรรทัดเพื่อแจ้งให้ทราบ .
ที่นี่ ฉันกรอก ฟิลด์แรก และคลิกปุ่ม และเห็นว่ามันข้ามฟิลด์นั้นและ ข้ามไปที่ ฟิลด์ที่สอง เพื่อแสดงข้อความ
6.2 ปุ่มสำหรับหลายบรรทัด
โดยกำหนด ปุ่มนี้ เราจะสามารถเพิ่มได้หลายบรรทัดพร้อมกันในกล่องข้อความ
- ก่อนอื่น ทำตาม 6 ขั้นตอนแรกจากส่วนก่อนหน้า เพื่อเพิ่ม ปุ่ม และกำหนด มาโคร
- จากนั้น พิมพ์ รหัส ต่อไปนี้ ในมาโคร-
8672
รายละเอียดรหัส<2
- ที่นี่ ฉันสร้าง ขั้นตอนย่อย หลายบรรทัด_ปุ่ม .
- จากนั้นประกาศตัวแปรบางตัว WS เป็น แผ่นงาน และ นามสกุล , ที่อยู่ , โทรศัพท์ , Error_msg เป็น
- ใช้ในภายหลัง Len และ Range เพื่อตั้งค่าฟิลด์
- สุดท้าย ใช้ คำสั่ง If เพื่อตรวจสอบว่า ฟิลด์ว่างหรือไม่ . ถ้าเต็มแล้วก็จะข้ามไป ถ้าไม่ใช่ ก็จะแสดงข้อความผ่าน MsgBox
- สุดท้าย เพียงแค่ ย้อนกลับ ไปที่แผ่นงาน และ คลิก ปุ่ม .
และดูว่ามีการแสดง สามบรรทัด สำหรับ สามฟิลด์ ตามที่แสดง ทั้งหมดเป็น ว่างเปล่า .
ฉันกรอก ช่องแรก และตอนนี้พบว่ามันแสดงเฉพาะข้อความสำหรับ 2 ช่องถัดไป .
อ่านเพิ่มเติม: วิธีใส่หลายบรรทัดในเซลล์ Excel (2 วิธีง่ายๆ)
สรุป
ฉันหวังว่าขั้นตอนที่อธิบายไว้ข้างต้นจะดีพอที่จะสร้างบรรทัดใหม่ใน MsgBox โดยใช้ Excel VBA อย่าลังเลที่จะถามคำถามใด ๆ ในส่วนความคิดเห็นและโปรดให้ข้อเสนอแนะ
