ต้องการปัดจุดทศนิยมด้วย VBA

[kio2002]

เรียนสมาชิกทุกท่าน
ผมต้องการปัดจุดทศนิยมให้เหลือแค่2ตำแหน่ง ไม่ว่าจุดทศนิยมจะมีกี่ตำแหน่งก็ตาม
สมมุติพิมพ์ตัวเลขที่เซลล์ G3 = 25.617 แล้วให้ปัดเหลือ 25.61 โดยจุดทศนิยมตัวที่3จะเป็นเลขอะไรก็ตาม ก็จะให้ปัดทิ้งทั้งหมด
เซลล์ที่กำหนดไว้ G3 และ D13:D44
ผมลองเอา Application.WorksheetFunction มาใช้แล้วแต่ไม่ได้ผลครับ หรือสมาชิกมี code ตัวอย่างไหมครับ จะลองเอามาประยุกต์ใช้ดู
code อยู่ที่ sheet1 ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = Range("g3").Address Then
            If Range("g3").Value <> "" Then
                Application.WorksheetFunction.Round(Range("g3"), 2).Value
            End If
        End If
            
        If Not Intersect(Target, Me.Range("d13:d44")) Is Nothing Then
            If Target.Value <> "" Then
                Application.WorksheetFunction.Round(Target, 2).Value
            End If
        End If
End Sub

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Target.Address = Range("g3").Address Then
            If Target.Value <> "" Then
                Target.Value = VBA.Round(Range("g3").Value, 4)
            End If
        End If
            
        If Not Intersect(Target, Me.Range("d13:d44")) Is Nothing Then
            If Target.Value <> "" Then
                Target.Value = VBA.Round(Target, 4).Value
            End If
        End If
    Application.EnableEvents = True
End Sub

สังเกตว่าตัวเลขใน G3 มีรูปแบบเป็น % หมายความว่าถูกหารด้วย 100 มาแล้ว ถ้าต้องการให้แสดงทศนิยม 2 ตำแหน่งจะต้องเพิ่มตำแหน่งไปอีก 2 ให้กลายเป็น 4 ตำแหน่ง เมื่อแปลงกลับมาแสดงผลแบบทศนิยมจะกลายเป็น 2 ตำแหน่งครับ

[kio2002]

เรียนอาจารย์ snasui
ทดลองรันโค้ดแล้ว ที่เซลล์G3 ปัดทศนิยมตัวที่3ทิ้งให้ครับ (หากทศนิยมตัวที่3น้อยกว่า5)
แต่ติดตรงที่ กรณีทศนิยมตัวที่3 เป็นเลข5 เช่น 25.655 จะปัดทศนิยมตัวที่2ขึ้นเป็น 25.66
ตามที่ต้องการให้ปัดทิ้งไปเลย เป็น 25.65 ครับ
ได้ลองเปลี่ยนจาก round เป็น rounddawn แต่ใช้งานไม่ได้ครับ

ส่วนที่เซลล์ d13:d44 ไม่สามารถรันโค้ดได้ครับ

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
Target.Value = Application.WorksheetFunction.RoundDown(Range("g3").Value, 4)
'Other code

ลองปรับใช้กับ d13:d44 ภายใน Sub Procedure เดียวกันดูครับ

กรณีต้องการเปลี่ยนพร้อมกันหลายเซลล์จะใช้การ Loop เข้าไปในแต่ละเซลล์ ลองเขียนมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ