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

Сообщение #547615

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

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

Пол: Мужской
Сообщений: 307


будь Человеком - http://vseminfo.ru/

Просмотр профиля
« Ответ #0 : 14 Апрель 2007, 10:02:39 »
Цитировать
Цитировать
вот те макрос, вставляется в код листа, анализирует 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
ещё маленькое уточнение: красный текст не очень заметен, как-то можно выделить не только шрифт, а залить ячейку красным цветом ?
AL CAPONE имей совесть, доработать этот макрос даже школьник сможет
Записан
Страниц  :   Вверх
  Печать  
Гродненский Форум > Компьютеры > Компьютеры, софт > Тема: Re: Помощь в Excel
(Модераторы: xfiles, DeleteR, barmalei)
 « предыдущая тема следующая тема »
 
Перейти в:  

Войти
Войдите, чтобы добавить комментарий
Войдите через социальную сеть
Имя пользователя:
Пароль:
Продолжительность сессии (в минутах):
Запомнить:
Забыли пароль?
Контакт
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,099 секунд. Запросов: 20.