powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Цикл суммирования
4 сообщений из 4, страница 1 из 1
Цикл суммирования
    #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
Цикл суммирования
    #34288095
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
zdels

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

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

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


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