сумма десятичного знака в excel vba

Question

Я хочу суммировать ячейки одной колонки, используя excel vba. Значения в ячейках являются deimals, однако сумма, заданная excel vba, всегда является целым числом. Например: 2.5 +2.1 = 4.6 excel отобразит 5. Как я могу показать значение 4.6?

Благодарим за помощь.

Answer 1

Используйте тип Double данные:

Sub SumTheValues() 
    Dim zum As Double 
    zum = Application.WorksheetFunction.Sum(Range("A:A")) 
    MsgBox zum 
End Sub 

Для ваших данных: