Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
13.10.2010, 07:36
|
|||
|---|---|---|---|
|
|||
заливка трех ячеек по условию |
|||
|
#18+
доброго времени суток, подскажите пожалуйста как написать: нужно чтобы при выполнении определенного условия три рядом стоящие ячейки заливались допустим красным цветом. Do While ((ActiveWorkbook.ActiveSheet.Range("C" & i) <> "") And (bol <> True)) If ActiveWorkbook.ActiveSheet.Range("C" & i).Value = a Then ActiveWorkbook.ActiveSheet.Range("E" & i).Value = ActiveWorkbook.ActiveSheet.Range("H" & j).Value ActiveWorkbook.ActiveSheet.Range("H" & j) = "" ActiveWorkbook.ActiveSheet.Range("G" & j) = "" и закрасить ячейки A[i], B[i], C[i] bol = True End If i = i + 1 Loop заранее благодарен ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.10.2010, 08:17
|
|||
|---|---|---|---|
|
|||
заливка трех ячеек по условию |
|||
|
#18+
Nomad87, случайно сам нашел решение ActiveWorkbook.ActiveSheet.Range("B" & 3).Interior.ColorIndex = 7 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.10.2010, 09:08
|
|||
|---|---|---|---|
|
|||
заливка трех ячеек по условию |
|||
|
#18+
Nomad87случайно сам нашел решение Чтобы в следующий раз не заниматься случайным поиском, освойте запись макросов. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.10.2010, 09:32
|
|||
|---|---|---|---|
заливка трех ячеек по условию |
|||
|
#18+
Читай про условное форматирование может оказаться, что это куда более подходит в твоем случае ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.10.2010, 09:39
|
|||
|---|---|---|---|
|
|||
заливка трех ячеек по условию |
|||
|
#18+
Человек нашел решение, а советы у камрадов остались неиспользованные Писать Код: plaintext Код: plaintext но, на самом деле, bol вообще не нужен. Просто вместо Код: plaintext Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2159358]: |
0ms |
get settings: |
8ms |
get forum list: |
11ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
35ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
47ms |
get tp. blocked users: |
2ms |
| others: | 11ms |
| total: | 132ms |
| 0 / 0 |
