Application-defined or object-defined error в процедуре

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Application-defined or object-defined error в процедуре (Макросы/Sub)

Maxim_38

Дата: Суббота, 31.12.2016, 22:19 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброго времени.
Есть процедура
[vba]

Код

Sub Summ_Kat()
Dim a As Integer, b As Integer, d As Integer, summ_1 As Currency, summ_2 As Currency
summ_1 = 0
summ_2 = 0

For d = a - 1 To b - 1
summ_1 = summ_1 + Sheets("Имя листа").Cells(d, 3).Value
summ_2 = summ_2 + Sheets("Имя листа").Cells(d, 5).Value
Next d
Sheets("Имя листа").Cells(a, 3).Value = summ_1
Sheets("Имя листа").Cells(a, 3).Select
Selection.NumberFormat = "#,##0.00 [$KZT];-#,##0.00 [$KZT]"
Sheets("Имя листа").Cells(a, 5).Value = summ_2
Sheets("Имя листа").Cells(a, 5).Select
Selection.NumberFormat = "#,##0.00 [$KZT];-#,##0.00 [$KZT]"
End Sub

[/vba]
При выполнении падает на строке summ_1 = summ_1 + Sheets("Имя листа").Cells(d, 3).Value с ошибкой Application-defined or object-defined error
Не могу понять, что поправить.

Сообщение отредактировал Maxim_38 - Воскресенье, 01.01.2017, 13:14

Ответить

Alex_ST

Дата: Суббота, 31.12.2016, 23:02 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3219

Репутация: 622 ±

Замечаний: 0% ±

2003

1. Если не побороли кракозябры методом, описанным ЗДЕСЬ, то хотя бы перед копированием кода VBA переключайте клавиатуру в RUS
2. После объявления все переменные, а самое главное - a и b =0
Поэтому цикл по d у Вас от -1 до -1 и обращение к Cells(а,... у Вас идёт к ячейкам столбца 0, которого не существует. А уж про обращение к Cells(d, … при d=-1 тем более...
На Новый год лучше пить, чем коды писать

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Суббота, 31.12.2016, 23:11

Ответить

Application-defined or object-defined error в процедуре (Макросы/Sub)

Страница 1 из 1
1