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

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

จัดรูปแบบรายการในกล่องข้อความเป็นเปอร์เซ็นต์ด้วยโค้ด VBA

จัดรูปแบบรายการในกล่องข้อความเป็นเปอร์เซ็นต์ด้วยโค้ด VBA

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

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

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

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

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

Private Sub TextBox1_LostFocus()
    Dim xReg As New RegExp
    Dim xMatches As MatchCollection
    Dim xMatch As Match
    Dim xText As String
    Dim xReplace As String
    On Error Resume Next
    Application.ScreenUpdating = False
    xText = Me.TextBox1.Text
    xText = Replace(xText, "%", "")
    With xReg
        .Global = True
        .Pattern = "([^0-9]+\d+)|(\d{1,})"
        Set xMatches = .Execute(xText)
        For Each xMatch In xMatches
            xReplace = xReplace & xMatch.Value & "%"
        Next
    End With
    xText = xReplace & Mid(xText, Len(xReplace) - xMatches.Count + 1)
    Me.TextBox1.Text = xText
    Application.ScreenUpdating = True
End Sub

หมายเหตุ: แทนที่ กล่องข้อความ 1 ด้วยชื่อกล่องข้อความที่คุณใช้งาน

4 คลิก เครื่องมือ > อ้างอิง. จากนั้นตรวจสอบไฟล์ นิพจน์ทั่วไปของ Microsoft VBScript กล่องใน เอกสารอ้างอิง - VBAProject กล่องโต้ตอบแล้วคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

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

6. เมื่อกลับไปที่แผ่นงานโปรดคลิก ผู้พัฒนา > โหมดการออกแบบ อีกครั้งเพื่อปิดโหมดออกแบบ

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

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

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