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

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

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

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

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

และอื่นๆ

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

ที่เกี่ยวข้อง:วิธีปัดเศษค่าใน VBA

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

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

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

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), -2)
End Sub

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

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

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 1)
End Sub

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

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

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

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

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

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