วิธีการคำนวณค่าสัมบูรณ์ใน vba (พร้อมตัวอย่าง)

ค่าสัมบูรณ์ ของตัวเลขแสดงถึงระยะห่างระหว่างตัวเลขกับศูนย์

ในการคำนวณค่าสัมบูรณ์ใน VBA คุณสามารถใช้ฟังก์ชัน Abs

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

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

ตัวอย่างนี้จะคำนวณค่าสัมบูรณ์ของแต่ละเซลล์ในช่วง A2:A10 และแสดงในช่วง B2:B10

ตัวอย่างต่อไปนี้แสดงวิธีคำนวณค่าสัมบูรณ์ใน VBA ในทางปฏิบัติ

ตัวอย่าง: วิธีคำนวณค่าสัมบูรณ์ใน VBA

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

สมมติว่าเราต้องการคำนวณค่าสัมบูรณ์ของแต่ละเซลล์ในคอลัมน์ A และแสดงในคอลัมน์ B

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

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

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

ตอนนี้คอลัมน์ B จะแสดงค่าสัมบูรณ์ของแต่ละค่าในคอลัมน์ A

โปรดทราบว่าค่าบวกแต่ละค่าในคอลัมน์ A ยังคงเป็นค่าบวกในคอลัมน์ B

โปรดทราบว่าค่าลบแต่ละค่าในคอลัมน์ A ได้ถูกแปลงเป็นค่าบวกในคอลัมน์ B แล้ว

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

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

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

VBA: วิธีคำนวณค่าเฉลี่ยของช่วง
VBA: วิธีเพิ่มค่าในช่วง
VBA: วิธีนับจำนวนแถวในช่วง