Vba: วิธีปัดเศษค่าเป็นทศนิยม 2 ตำแหน่ง

คุณสามารถใช้วิธีการต่อไปนี้เพื่อปัดเศษค่าเป็นทศนิยม 2 ตำแหน่งโดยใช้ VBA:

วิธีที่ 1: ปัดเศษให้เป็นทศนิยม 2 ตำแหน่ง

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

ตัวอย่างนี้จะปัดเศษค่าในเซลล์ A2 เป็นทศนิยมสองตำแหน่ง และแสดงค่าที่ปัดเศษในเซลล์ B2

วิธีที่ 2: ปัดเศษค่าทั้งหมดในช่วงให้เป็นทศนิยม 2 ตำแหน่ง

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

ตัวอย่างนี้จะปัดเศษแต่ละค่าในช่วง A2:A9 เป็นทศนิยมสองตำแหน่ง และแสดงค่าที่ปัดเศษในช่วง B2:B9

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

ตัวอย่างที่ 1: ปัดเศษค่าให้เป็นทศนิยม 2 ตำแหน่ง

เราสามารถสร้างมาโครต่อไปนี้เพื่อปัดเศษค่าในเซลล์ A2 เป็นทศนิยมสองตำแหน่งและแสดงผลลัพธ์ในเซลล์ B2 :

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

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

โปรดทราบว่าค่า 15.248 ในเซลล์ A2 ถูกปัดเศษเป็นทศนิยมสองตำแหน่ง (15.25) ในเซลล์ B2

ตัวอย่างที่ 2: ปัดเศษค่าทั้งหมดในช่วงให้เป็นทศนิยม 2 ตำแหน่ง

เราสามารถสร้างมาโครต่อไปนี้เพื่อปัดเศษแต่ละค่าในช่วง A2:A9 เป็นทศนิยมสองตำแหน่ง และแสดงค่าที่ปัดเศษในช่วง B2:B9 :

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

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

โปรดทราบว่าแต่ละค่าในช่วง A2:A9 จะถูกปัดเศษเป็นทศนิยม 2 ตำแหน่ง และค่าที่ปัดเศษจะแสดงในช่วง B2:B9

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

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

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

วิธีปัดเศษค่าใน VBA
วิธีปัดเศษค่าใน VBA