Vba: วิธีจัดรูปแบบเซลล์เป็นเปอร์เซ็นต์

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

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0.00% "
    Next i
    
End Sub

ตัวอย่างนี้จัดรูปแบบแต่ละเซลล์ในช่วง A2:A11 เป็นค่าเปอร์เซ็นต์ที่มีทศนิยมสองตำแหน่ง

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

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

สมมติว่าเรามีรายการค่าต่อไปนี้ใน Excel:

สมมติว่าเราต้องการจัดรูปแบบแต่ละค่าเป็นเปอร์เซ็นต์

ตัวอย่างเช่น:

• 0.22 ควรอยู่ในรูปแบบ 22%
• 0.35 ควรจัดรูปแบบเป็น 35%

และอื่นๆ

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0.00% "
    Next i
    
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

ตอนนี้แต่ละค่าจะถูกจัดรูปแบบเป็นเปอร์เซ็นต์โดยมีทศนิยมสองตำแหน่ง

โปรดทราบว่าจำนวนศูนย์หลังจุดทศนิยมในคุณสมบัติ NumberFormat จะระบุจำนวนตำแหน่งทศนิยมที่จะแสดงในแต่ละเปอร์เซ็นต์

เราสามารถใช้ไวยากรณ์ต่อไปนี้เพื่อแสดงตำแหน่งทศนิยมในแต่ละเปอร์เซ็นต์:

 SubFormatPercent ()
    Dim i As Integer

    For i = 2 To 11
    Range(" A " & i).NumberFormat = " 0% "
    Next i
    
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

โปรดทราบว่าตำแหน่งทศนิยมได้ถูกลบออกจากค่าเปอร์เซ็นต์แต่ละค่าแล้ว

หมายเหตุ : คุณสามารถดูเอกสารฉบับเต็มสำหรับคุณสมบัติ VBA NumberFormat ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีจัดเรียงแผ่นงานตามหลายคอลัมน์
VBA: วิธีนับจำนวนแถวในช่วง
VBA: วิธีกรองคอลัมน์