วิธีจัดรูปแบบกล่องข้อความเป็นสกุลเงินใน Excel

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

จัดรูปแบบกล่องข้อความเป็นสกุลเงินด้วยรหัส VBA

---

จัดรูปแบบกล่องข้อความเป็นสกุลเงินด้วยรหัส VBA

รหัส VBA ด้านล่างสามารถช่วยให้คุณจัดรูปแบบตัวเลขในกล่องข้อความเป็นสกุลเงินใน Excel ได้อย่างง่ายดาย กรุณาดำเนินการดังนี้

1 คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องข้อความ (ActiveX Control) เพื่อแทรกกล่องข้อความลงในแผ่นงาน ดูภาพหน้าจอ:

2. คลิกขวาที่กล่องข้อความจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา

3. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดแทนที่รหัสเดิมในหน้าต่างรหัสด้วยรหัส VBA ด้านล่าง

รหัส VBA: จัดรูปแบบกล่องข้อความเป็นสกุลเงินใน Excel

Private Sub TextBox1_Change()
    TextBox1.Value = Format(TextBox1.Value, "$###,##")
End Sub

หมายเหตุ: ในรหัส กล่องข้อความ 1 คือชื่อของกล่องข้อความที่คุณจะจัดรูปแบบตัวเลขภายในเป็นสกุลเงิน โปรดเปลี่ยนเป็นของคุณเอง

4 กด อื่น ๆ + Q พร้อมกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

5. ปิดโหมดออกแบบ

จากนี้ไปเมื่อป้อนตัวเลขลงในช่องข้อความจะมีการจัดรูปแบบเป็นสกุลเงินโดยอัตโนมัติตามภาพด้านล่างนี้

---

บทความที่เกี่ยวข้อง:

• วิธีการเลือกข้อความของกล่องข้อความโดยอัตโนมัติเมื่อถูกเลือกใน Excel
• วิธีเติมข้อความอัตโนมัติในกล่องข้อความเมื่อพิมพ์ใน Excel
• วิธีจัดรูปแบบกล่องข้อความเป็นเปอร์เซ็นต์ใน Excel
• วิธีการต่อข้อความของหลายเซลล์ลงในกล่องข้อความใน Excel
• วิธีปิดใช้งานการแก้ไขในกล่องข้อความเพื่อป้องกันไม่ให้ผู้ใช้ป้อนข้อมูลใน Excel