Равномерное увеличение значения ячейки

[Kvint_Sertoriy]

Здравствуйте.

Пытаюсь написать маленький макрос для увеличения значения определённой ячейки на постоянную величину. Макрос должен запускаться кнопкой с рабочего листа.

Мой код:

Sub Increase()

Dim i As Integer

i = Cells(2, 2).Value
Cells(2, 2).Value = i + 0.1

End Sub

Значение ячейки (2, 2) увеличивается только при первом запуске макроса. А во второй, третий и т. д. оно остаётся прежним. Не могу понять, почему в i постоянно с листа постоянно загружается старое значение, оно же должно увеличиться на 0,1 после первого включения макроса?

Спасибо.

[VictorM]

Dim i As Integer

Integer - это целое число без дробной части (целые числа никогда не содержат десятичного знака, даже если десятичная часть равна нулю).

В Вашем случае напишите

Dim i As Single

[Kvint_Sertoriy]

Точно!!! Спасибо вам большое Виктор. Только вот появилась новая проблема: в начале добавляется 0,1 а потом 0.200000001490116, далее 0.300000002980232 , 0.400000011920929 и т. д. То есть прибавляется чуть больше 0,1. Почему??

[VictorM]

Поменяйте тип переменной на

Dim i As Double

Совет - почитайте о типах переменных в VBA Excel.
В инете полно информации

[Kvint_Sertoriy]

Понял. Спасибо за совет.

[Казанский]

Sub Increase()
With Cells(2, 2)
    .Value = .Value + 0.1
End With
End Sub

[Kvint_Sertoriy]

Спасибо. ..