Excel Type mistmach 13

-9

У меня проблема с моим кодом.

Sub SumZisk()
Dim suma As Integer

For i = 1 To 20
Set curCell = Cells(i, 3)
suma = suma + curCell.Value
Next i

Range("C21").Value = suma

End Sub

Ошибка: введите mistmach 13

Спасибо за каждый ответ :)

спросил(а) 2021-01-25T17:41:32+03:00 5 месяцев назад
1
Решение
78

Это сработало для меня. Попробуйте использовать это с Option Explicit.

Option Explicit

Sub SumZisk()

Dim suma As Integer
Dim i As Integer
Dim curCell As Range

For i = 1 To 20
Set curCell = Cells(i, 3)
suma = suma + curCell.Value
Next i

Range("C21").Value = suma

End Sub

ответил(а) 2021-01-25T17:41:32+03:00 5 месяцев назад
Ваш ответ
Введите минимум 50 символов
Чтобы , пожалуйста,
Выберите тему жалобы:

Другая проблема