วิธีใช้ฟังก์ชัน floor ใน vba (พร้อมตัวอย่าง)

คุณสามารถใช้วิธี Floor ใน VBA เพื่อปัดเศษตัวเลขในเซลล์ให้เป็นพหุคูณนัยสำคัญที่ใกล้ที่สุด

นี่เป็นวิธีทั่วไปในการใช้ฟังก์ชันนี้ในทางปฏิบัติ:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

มาโครนี้จะปัดเศษแต่ละค่าในช่วง A2:A10 ให้เป็นพหุคูณนัยสำคัญที่ใกล้ที่สุดซึ่งระบุไว้ในช่วง B2:B10 และแสดงผลลัพธ์ในช่วง C2:C10

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

ตัวอย่าง: วิธีใช้ฟังก์ชัน Floor ใน VBA

สมมติว่าเรามีรายการค่าในคอลัมน์ A และรายการทวีคูณที่มีนัยสำคัญอีกรายการในคอลัมน์ B ซึ่งเราต้องการปัดเศษแต่ละค่าเป็น:

เราสามารถสร้างแมโครต่อไปนี้โดยใช้วิธี Floor ใน VBA เพื่อปัดเศษแต่ละค่าในคอลัมน์ A ให้เป็นค่าทวีคูณที่มีนัยสำคัญในคอลัมน์ B:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

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

คอลัมน์ C แสดงผลการใช้วิธี Floor กับแต่ละค่าในคอลัมน์ A

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

• 12.2452 ปัดเศษลงเป็นผลคูณที่ใกล้ที่สุดของ 0.001 คือ 12.245
• 14.927 ปัดเศษลงเป็นผลคูณที่ใกล้ที่สุดของ 0.01 คือ 14.92
• -5.23 ปัดเศษลงเป็นผลคูณที่ใกล้ที่สุดของ 0.1 คือ -5.3

และอื่นๆ

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

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

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

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