Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Цикл суммирования / 4 сообщений из 4, страница 1 из 1
28.01.2007, 16:41:19
    #34288079
zdels
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл суммирования
Sub test_2()
For i = 0 To 3
ActiveSheet.Cells(i + 1, 2) = ActiveSheet.Cells(i + 1, 0) + ActiveSheet.Cells(i + 1, 1)
Next i
End Sub

Что не так?
Помагите
...
Рейтинг: 0 / 0
28.01.2007, 16:54:20
    #34288095
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл суммирования
zdels

У Вас имеет место попытка обратиться к нулевому столбцу:

ActiveSheet.Cells(i + 1, 2) = ActiveSheet.Cells(i + 1, 0 ) + ActiveSheet.Cells(i + 1, 1)
Номера строк и столбцов должны быть > 1
...
Рейтинг: 0 / 0
28.01.2007, 17:00:32
    #34288104
zdels
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл суммирования
lena спасибо. Т.Е Range A1 = Cells(1,1)?
...
Рейтинг: 0 / 0
28.01.2007, 17:33:31
    #34288142
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл суммирования
zdelsRange A1 = Cells(1,1)?
Да. Вы сами можете в этом легко убедиться, например так:

Код: plaintext
1.
2.
Sub s()
  Debug.Print Cells( 1 ,  1 ).Address
End Sub
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Цикл суммирования / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]