Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Гоблин
Все привет.
Вот задача. exel 100 лет не трогал. Надо заполнить и удалить инфу в разных диапазонах клеток, в зависимости от некоторого условия. Ну вот выдумал код
Range("D3").Select
For i = 26 To 127
If Range("D3") = "6" Then
Range("D" & i).Select
Selection.ClearContents
Else
Range("D" & i).Select
ActiveCell.FormulaR1C1 = "8"
End If
Next i
For i = 129 To 132
If Range("D3") = "6" Then
Range("D" & i).Select
Selection.ClearContents
Else
Range("D" & i).Select
ActiveCell.FormulaR1C1 = "8"
End If
Next i
Все работает как надо. Однако это только по одному столбцу. Далее пишу
Range("С3").Select и все то же самое. Но это блин... Там столбцов не меряно. Пытаюсь подменить букву и вставить в цикл. Добавлял
For j=D to H... почему-то не пахает.
Range("&j&" & i).Select - ругается, Range("(j)" & i).Select - еще больше ругается. Но ведь как-то можно перебрать столбцы в цикле от D до AH. Там с разрывами будет, но принцип главное плиз?


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.