วิธีจัดรูปแบบกล่องข้อความเป็นเปอร์เซ็นต์ใน Excel
ในบทความก่อนหน้านี้เราได้กล่าวถึงวิธี VBA ในการจัดรูปแบบตัวเลขในกล่องข้อความเป็นสกุลเงินใน 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
หมายเหตุ: โปรดเปลี่ยน TextBox1 เป็นชื่อกล่องข้อความตามความต้องการของคุณ
4 คลิก เครื่องมือ > อ้างอิง. จากนั้นตรวจสอบไฟล์ นิพจน์ทั่วไปของ Microsoft VBScript กล่องใน เอกสารอ้างอิง - VBAProject กล่องโต้ตอบแล้วคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:
5 กด อื่น ๆ + Q ปุ่มเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
6. เมื่อกลับไปที่แผ่นงานโปรดคลิก ผู้พัฒนา > โหมดการออกแบบ อีกครั้งเพื่อปิดโหมดออกแบบ
จากนี้ไปเมื่อป้อนตัวเลขลงในกล่องข้อความและเลื่อนเคอร์เซอร์ออกจากกล่องข้อความเพื่อคลิกเซลล์ใด ๆ ตัวเลขเหล่านี้จะถูกจัดรูปแบบเป็นเปอร์เซ็นต์โดยอัตโนมัติ
บทความที่เกี่ยวข้อง:
- วิธีจัดรูปแบบกล่องข้อความเป็นสกุลเงินใน Excel
- วิธีการเลือกข้อความของกล่องข้อความโดยอัตโนมัติเมื่อถูกเลือกใน Excel
- วิธีเติมข้อความอัตโนมัติในกล่องข้อความเมื่อพิมพ์ใน Excel
- วิธีการต่อข้อความของหลายเซลล์ลงในกล่องข้อความใน Excel
- วิธีปิดใช้งานการแก้ไขในกล่องข้อความเพื่อป้องกันไม่ให้ผู้ใช้ป้อนข้อมูลใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!