สร้าง Module SumByColor แล้วผลรวมที่ได้ปัดเศษทศนิยม ต้องทำยังไงให้ไม่ปัดเศษ
Posted: Wed Jan 08, 2020 10:18 pm
สร้าง Module SumByColor เพื่อคิดผลรวมตามสี Background ของ cell ตามด้านล่างแล้วผลรวมของทศนิยมถูกปัดเศษ
ตัวอย่างการรวมจำนวนช่องสีเหลือง คือ เมื่อนำ 1.50+3+4 ควรจะได้ 8.50
แต่กลับปัดเศษ เป็น 9.00 ดังแสดงในช่อง sum-yellow เมื่อนำผลลัพธ์ไปคำนวณต่อ
ดังช่อง Sum-Yellow*2 กลับได้ผลลัพธ์เป็น 18.00
และเมื่อทดลองใช้ฟังก์ชันปกติ Sum(B3:D3) พบว่าได้ 8.50 คือไม่ปัดเศษ
คำถามคือ ต้องใส่ CODE อะไรเพิ่มเพื่อไม่ให้มีการปัดเศษ
ขอบคุณล่วงหน้านะคะ
Code: Select all
Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
If cl.Interior.ColorIndex = ColIndex Then
cSum = WorksheetFunction.SUM(cl, cSum)
End If
Next cl
SumByColor = cSum
End Functionตัวอย่างการรวมจำนวนช่องสีเหลือง คือ เมื่อนำ 1.50+3+4 ควรจะได้ 8.50
แต่กลับปัดเศษ เป็น 9.00 ดังแสดงในช่อง sum-yellow เมื่อนำผลลัพธ์ไปคำนวณต่อ
ดังช่อง Sum-Yellow*2 กลับได้ผลลัพธ์เป็น 18.00
และเมื่อทดลองใช้ฟังก์ชันปกติ Sum(B3:D3) พบว่าได้ 8.50 คือไม่ปัดเศษ
คำถามคือ ต้องใส่ CODE อะไรเพิ่มเพื่อไม่ให้มีการปัดเศษ
ขอบคุณล่วงหน้านะคะ