VPF::[Перенесено из VB6/MS Access]Subscript out of range

Vex

Дата 7.7.2009, 15:07 (ссылка)

(нет голосов)

Загрузка ...

кацапосрачмученiкъ

Профиль
Группа: Экс. модератор
Сообщений: 3103
Регистрация: 28.3.2002
Где: strawberry fields

Репутация: нет
Всего: 88

Excel ругается на єтот код

Код





For i = 33 To 200
    

    
    For j = 1 To 200
         If Application.Worksheets.Item("31").Cells(i, 7) = Application.Worksheets.Item("nad").Cells(j, 2) Then
         

        Application.Worksheets.Item("nad").Cells(j, 7) = Application.Worksheets.Item("31").Cells(i, 7)
        Application.Worksheets.Item("31").Cells(i, 11) = Application.Worksheets.Item("31").Cells(i, 11)+Application.Worksheets.Item("nad").Cells(j, 4) 

        
  
         End If
         
         
    Next j
    

Next i

пишет subscript out of range, что означает попытку вызвать несуществующий элемент коллекции... smile

если убрать из кода ту часть, которую я выделил жирным все работает.

P.S. я хотел не просто вставить в ячейку значение а приплюсовать его, может есть какие-то специальные методы?

--------------------

Слава Україні.

Akina

Дата 7.7.2009, 17:22 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Цитата(Vex @ 7.7.2009, 16:07

)

пишет subscript out of range

В какой именно строке?

Цитата(Vex @ 7.7.2009, 16:07

)

если убрать из кода ту часть, которую я выделил жирным

Это какую?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »