วิธีปัดเศษค่าใน vba (พร้อมตัวอย่าง)

คุณสามารถใช้เมธอด RoundUp ใน VBA เพื่อปัดเศษค่าได้

ฟังก์ชันนี้ใช้ไวยากรณ์พื้นฐานต่อไปนี้:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

ตัวอย่างนี้จะปัดเศษค่าในเซลล์ A1 เป็นจำนวนเต็มที่ใกล้ที่สุด และแสดงผลลัพธ์ในเซลล์ B1

โปรดทราบว่าอาร์กิวเมนต์ที่สองของวิธี RoundUp ระบุจำนวนหลักที่จะปัดเศษโดยที่:

• -3 รอบเป็นพันหน้า
• -2 รอบเป็นร้อยที่ใกล้ที่สุด
• -1 ปัดเศษขึ้นเป็นสิบที่ใกล้ที่สุด
• 0 ปัดเศษเป็นจำนวนเต็มที่ใกล้ที่สุด
• 1 ปัดเศษขึ้นเป็นสิบที่ใกล้ที่สุด (ทศนิยมหนึ่งตำแหน่ง)
• 2 ปัดเศษเป็นทศนิยมสองตำแหน่งที่ใกล้ที่สุด (ทศนิยมสองตำแหน่ง)
• 3 ปัดเศษเป็นพันที่ใกล้ที่สุด (ทศนิยมสามตำแหน่ง)

และอื่นๆ

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

ตัวอย่างที่ 1: ปัดเศษเป็นจำนวนเต็มที่ใกล้ที่สุดใน VBA

เราสามารถสร้างมาโครต่อไปนี้เพื่อปัดเศษค่าในเซลล์ A1 เป็นจำนวนเต็มที่ใกล้ที่สุดและแสดงผลลัพธ์ในเซลล์ B1 :

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

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

โปรดทราบว่าค่า 1432.78 ในเซลล์ A1 ถูกปัดเศษให้เป็นจำนวนเต็มที่ใกล้ที่สุดคือ 1433 ในเซลล์ B1

ตัวอย่างที่ 2: ปัดเศษเป็นร้อยที่ใกล้ที่สุดใน VBA

เราสามารถสร้างมาโครต่อไปนี้เพื่อปัดเศษค่าในเซลล์ A1 เป็นร้อยที่ใกล้ที่สุดและแสดงผลลัพธ์ในเซลล์ B1 :

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), -2)
End Sub

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

โปรดทราบว่าค่า 1432.78 ในเซลล์ A1 ถูกปัดเศษให้เป็นร้อยที่ใกล้ที่สุดของ 1500 ในเซลล์ B1

ตัวอย่างที่ 3: ปัดเศษให้เป็นสิบที่ใกล้ที่สุดใน VBA

เราสามารถสร้างมาโครต่อไปนี้เพื่อปัดเศษค่าในเซลล์ A1 เป็นตำแหน่งที่สิบที่ใกล้ที่สุด (เช่น ทศนิยมหนึ่งตำแหน่ง) และแสดงผลลัพธ์ในเซลล์ B1 :

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 1)
End Sub

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

โปรดทราบว่าค่า 1432.78 ในเซลล์ A1 ถูกปัดเศษขึ้นเป็นสิบที่ใกล้ที่สุดของ 1432.8 ในเซลล์ B1

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

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

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

VBA: วิธีเขียนฟังก์ชัน SUMIF และ SUMIFS
VBA: วิธีเขียนฟังก์ชัน COUNTIF และ COUNTIFS
VBA: วิธีเขียนฟังก์ชัน AVERAGEIF และ AVERAGEIFS