Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?
Гродненский Форум
13 Август 2025, 11:08:40
Новости, реклама:
   Главная   Новости Гродно Помощь Игры Календарь Войти Регистрация   Меню
Гродненский Форум > Компьютеры > Компьютеры, софт > Тема: Re: Помощь в Excel
(Модераторы: xfiles, DeleteR, barmalei) > Тема:

Сообщение #547570

Страниц  :   Вниз
  Печать  
Автор Тема: Re: Помощь в Excel  (Прочитано 3277 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Alcatraz
Почетный гродненец
*****

Репутация: +52/-0
Offline Offline

Предупреждения: у пользователя 1 предупреждение
Пол: Мужской
Сообщений: 2041


ХОЧЕШЬ ЧТО-ТО СДЕЛАТЬ ХОРОШО - СДЕЛАЙ ЭТО САМ !

Просмотр профиля
« Ответ #0 : 14 Апрель 2007, 09:27:23 »

Цитировать
вот те макрос, вставляется в код листа, анализирует 4 и 5 столбцы

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 4) Or (Target.Column = 5) Then
 If Cells(Target.Row, 4).Value > Cells(Target.Row, 5).Value Then
  Cells(Target.Row, 4).Font.ColorIndex = 1
  Cells(Target.Row, 5).Font.ColorIndex = 1
 Else
  Cells(Target.Row, 4).Font.ColorIndex = 3
  Cells(Target.Row, 5).Font.ColorIndex = 3
 End If
End If
End Sub
ещё маленькое уточнение: красный текст не очень заметен, как-то можно выделить не только шрифт, а залить ячейку красным цветом ?
Записан
Страниц  :   Вверх
  Печать  
 
Перейти в:  

Войти
Войдите, чтобы добавить комментарий

Войдите через социальную сеть

Имя пользователя:
Пароль:
Продолжительность сессии (в минутах):
Запомнить:
Забыли пароль?

Контакт
Powered by MySQL Powered by PHP Мобильная версия
Powered by SMF 1.1.20
SMF © 2006-2025, Simple Machines
Simple Audio Video Embedder
| Sitemap
Valid XHTML 1.0! Valid CSS!
Страница сгенерирована за 0,098 секунд. Запросов: 20.