Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение листа / 3 сообщений из 3, страница 1 из 1
22.08.2008, 09:14
    #35500795
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменение листа
Доброе утро, уважаемые программисты!
Следующая задача:
столбик $B$ в прилагаемом файле забивается руками. И если дата, там стоящая < 1 числа текущего месяца текущего года, то ячейка слева от данной окрашвается др. цветом кроме ярко-зелёного. (там ещё несколько условий, но это для постоты эксперимента.)
Как сде6лать, чтобы всё работало при изменении ячейки.
Понятно, что нужно примерно так:
Код: plaintext
1.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Только каждую ячейку забивать глупо, а цикл не могу придумать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2008, 09:29
    #35500814
birk
birk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменение листа
мб так?
Код: plaintext
If Target.Column =  3  Then Target.Offset( 0 , - 1 )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2008, 10:06
    #35500876
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменение листа
Спасибо, сам чёт не догадался. Попробую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Изменение листа / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 423ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161928]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 81ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 236ms
total:  423ms
x
x
Закрыть


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