Cộng các ô cùng màu bằng VBA

[haquyet2013]

Chào cả nhà, mình copy được đoạn module trên mạng để tính tổng các ô cùng màu, nhưng khi mình áp dụng thì lại chạy công thức tính số chẵn chứ không có lẻ số thập phân, mình gửi flie đính kèm nhờ các bạn chỉnh lại giúp mình được không, thanks

 

[huhumalu]

File bạn gửi không bao gồm code, nên tôi search đại trên google theo tên hàm.
Bạn cần chỉnh dòng

Dim TotalSum As Long

thành

Dim TotalSum    As Double

để kết qua sau cùng từ số nguyên thành số thực.

Function SumByColor(SumRange, SumColor As Range)
    Dim SumColorValue As Integer
    Dim TotalSum    As Double
    SumColorValue = SumColor.Interior.ColorIndex
    Set rCell = SumRange
    For Each rCell In SumRange
        If rCell.Interior.ColorIndex = SumColorValue Then
            TotalSum = TotalSum + rCell.Value
        End If
    Next rCell
    SumByColor = TotalSum
End Function

 

[haquyet2013]

File bạn gửi không bao gồm code, nên tôi search đại trên google theo tên hàm.
Bạn cần chỉnh dòng

Dim TotalSum As Long

thành

Dim TotalSum    As Double

để kết qua sau cùng từ số nguyên thành số thực.

Function SumByColor(SumRange, SumColor As Range)
    Dim SumColorValue As Integer
    Dim TotalSum    As Double
    SumColorValue = SumColor.Interior.ColorIndex
    Set rCell = SumRange
    For Each rCell In SumRange
        If rCell.Interior.ColorIndex = SumColorValue Then
            TotalSum = TotalSum + rCell.Value
        End If
    Next rCell
    SumByColor = TotalSum
End Function

Cảm ơn bài viết hữu ích của bạn, mình đã có kết quả như mong muốn, chúc bạn ngày làm việc vui vẻ nhé