как использовать переменную в имени ячейки (цикл) ? - Microsoft Office Excel

sonic007 · 11.01.2011, 23:39

Есть таблица и столбец с числами от 1 до 31 (дни месяца).
1 abc def
2 abc def
.. ...... ....
31 abc def

Задача
Если значение ячейки первого столбца не превышает числа текущего месяца, то нужно, чтобы строчки напротив этого числа, поменяли фон ( скажем на зеленый.

Написал для первого

Код:

Private Sub Workbook_Open()

With Worksheets("OFFICER")

If B1 <= Day(Date) Then
Range("T1:AA1").Interior.ColorIndex = 4
Range("AD1:AO1").Interior.ColorIndex = 4
Else
Range("T1:AA1").Interior.ColorIndex = Defailt
Range("AD1:AO1").Interior.ColorIndex = Default
End If

End With

End Sub

Нужно, чтобы в цикле было, вроде
For i=1 to 31
If B[i] <= Day(Date) Then
Range("T[i]:AA[i]").Interior.ColorIndex = 4
Range("AD[i]:AO[i]").Interior.ColorIndex = 4

не могу найти правильный синтаксис.. помогите пожалуйста...

IgorGO · 12.01.2011, 00:06

For i=1 to 31
If cells(i,2) <= Day(Date) Then
Range("T" & i & ":AA" & i).Interior.ColorIndex = 4
Range("AD" & i & ":AO" & i).Interior.ColorIndex = 4

sonic007 · 12.01.2011, 00:36

Ну спасибо огромное. Все работает!

11.01.2011, 23:39	#1
sonic007 Регистрация: 27.05.2008 Сообщений: 3	как использовать переменную в имени ячейки (цикл) ? Есть таблица и столбец с числами от 1 до 31 (дни месяца). 1 abc def 2 abc def .. ...... .... 31 abc def Задача Если значение ячейки первого столбца не превышает числа текущего месяца, то нужно, чтобы строчки напротив этого числа, поменяли фон ( скажем на зеленый. Написал для первого Код: `Private Sub Workbook_Open() With Worksheets("OFFICER") If B1 <= Day(Date) Then Range("T1:AA1").Interior.ColorIndex = 4 Range("AD1:AO1").Interior.ColorIndex = 4 Else Range("T1:AA1").Interior.ColorIndex = Defailt Range("AD1:AO1").Interior.ColorIndex = Default End If End With End Sub` Нужно, чтобы в цикле было, вроде For i=1 to 31 If B[i] <= Day(Date) Then Range("T[i]:AA[i]").Interior.ColorIndex = 4 Range("AD[i]:AO[i]").Interior.ColorIndex = 4 не могу найти правильный синтаксис.. помогите пожалуйста...

12.01.2011, 00:06	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	For i=1 to 31 If cells(i,2) <= Day(Date) Then Range("T" & i & ":AA" & i).Interior.ColorIndex = 4 Range("AD" & i & ":AO" & i).Interior.ColorIndex = 4 Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как использовать переменные в ссылках на ячейки	Klamm	Microsoft Office Excel	6	14.04.2012 01:44
Как использовать текст ячейки в формуле?	cerberochek	Microsoft Office Excel	2	06.09.2010 17:23
ASP // Запись ячейки БД в переменную	Veiron	Общие вопросы .NET	2	30.03.2010 23:28
Обращение к листу по имени через переменную	tae1980	Microsoft Office Excel	2	25.03.2010 14:33
Запись данных ячейки в переменную	myxosran	Помощь студентам	3	06.03.2010 20:27

12.01.2011, 00:36	#3
sonic007 Регистрация: 27.05.2008 Сообщений: 3	Ну спасибо огромное. Все работает!