Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 26.06.2008, 14:26   #1
Bazzer
 
Регистрация: 26.06.2008
Сообщений: 5
По умолчанию выделение жирным шрифтом минимума и максимума из диапазона

Здавствуйте, заранее прошу прощения если подобная тема уже обсуждалась, просто с поиском не сильно дружу.

Так вот у меня при работе с Excel возникла следующая проблемка:
есть колонка в которую будут вводиться данные, моя задача состоим в следующем - нахождение в колонке введенных данных минимума и максимума и подсветка ячеек с этими числами ЖИРНЫМ ШРИФТОМ.

очень прошу помочь с этой задачкой, заранее благодарен
Bazzer вне форума
Старый 26.06.2008, 15:16   #2
ZORRO2005
Форумчанин
 
Аватар для ZORRO2005
 
Регистрация: 26.11.2006
Сообщений: 584
По умолчанию

Попробуйте условное форматирование.
Во вложении пример на 500 ячеек.
Вложения
Тип файла: rar УФ.rar (116.2 Кб, 63 просмотров)
ZORRO2005 вне форума
Старый 26.06.2008, 16:50   #3
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

А вот через макрос...
Вложения
Тип файла: zip Книга1.zip (12.2 Кб, 55 просмотров)
Можно сделать все! Было бы время, да деньги...
mchip вне форума
Старый 27.06.2008, 05:19   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Через макрос можно существенно проще. Предлагаю еще один вариант.
Во-первых, для того, чтобы разделять минимум и максимум, сделано не выделение жирным шрифтом, а подсветка ячеек разными цветами. Но, это уже детали.
Во-вторых, нужно ли, при обнаружении одинаковых значений минимумов (максимумов) выделять все? Для упрощения этого пока не сделано.
Пример для столбца "A":
Код:
Sub MinMax()

    Dim rng As Range, x As Range
    
    Set rng = Columns("A") 'Установите требуемый диапазон
    rng.Interior.ColorIndex = xlNone
    
    Set x = rng.Find(Application.Max(rng), LookAt:=xlWhole)
    If Not x Is Nothing Then Range(x.Address).Interior.ColorIndex = 3
    
    Set x = rng.Find(Application.Min(rng), LookAt:=xlWhole)
    If Not x Is Nothing Then Range(x.Address).Interior.ColorIndex = 33
    

End Sub
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 27.06.2008, 08:41   #5
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

Да уж, действительно проще... Но я еще только учусь.
Можно сделать все! Было бы время, да деньги...
mchip вне форума
Старый 27.06.2008, 11:26   #6
Bazzer
 
Регистрация: 26.06.2008
Сообщений: 5
По умолчанию

Всем огромное спасибо за предложенные варианты.

Конкретно в моем случае все же наиболее подходит вариант с условным форматированием, так как в нем необходимые ячейки выделяются сразу после ввода данных и не требуется нажатие дополнительных комбиныций клавиш.

Последний раз редактировалось Bazzer; 27.06.2008 в 11:44.
Bazzer вне форума
Старый 27.06.2008, 11:47   #7
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Вам виднее. Хотя, можно сделать, чтобы макрос запускался по событию изменения значений требуемых ячеек.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 27.06.2008, 12:06   #8
Bazzer
 
Регистрация: 26.06.2008
Сообщений: 5
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Вам виднее. Хотя, можно сделать, чтобы макрос запускался по событию изменения значений требуемых ячеек.
Не спорю что можно, но, к моему сожалению, у меня нет абсолютно никаких познаний в области VBA. Если Вам не трудно, то обьясните как это реализовать. И все же хотелось бы чтобы вместо выделения цветом было выдерение жирным шрифтом, и еще интересно как правильно прописать диапазон, если выборка должна быть сразу с нескольких столбцов?

Если у Вас есть возможность и желание мне это обьяснить - буду вам крайне признателен
Bazzer вне форума
Старый 27.06.2008, 12:28   #9
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Посмотрите вложение. Комментарии в коде макроса. Здесь, для примера, контролируются столбцы "A" и "D". Они рассматриваются как один диапазон. Можно, конечно, сделать для каждого столбца отдельно (да можно как угодно). Минимум и максимум, выделяются жирным шрифтом.
Вложения
Тип файла: rar MinMax.rar (7.9 Кб, 60 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 27.06.2008, 13:58   #10
Bazzer
 
Регистрация: 26.06.2008
Сообщений: 5
По умолчанию

о, просто великолепно!!! Я даже в коде разобрался практически, еще одна просьба, надеюсь последняя по этому заданию - подскажите, пожалуйста, синтаксис в случае если мне надо контролировать не весть столбец а только некоторый диапазон (в моем случае это три диапазона: ячейки с 8 по 33 столбцов C, F, I)

Цитата:
нужно ли, при обнаружении одинаковых значений минимумов (максимумов) выделять все?
если можно, чтобы все выделяло

Последний раз редактировалось Bazzer; 27.06.2008 в 14:05.
Bazzer вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нахождение минимума и максимума в трехмерном массиве 1234 Помощь студентам 11 26.05.2008 16:23
как сцепить несколько ячеек чтобы сохранилось выделение цветом или жирным шрифтом gribkow Microsoft Office Excel 7 23.04.2008 09:27
for SAS888 please help! макрос выделения цифр жирным шрифтом прописывает числа без нулей после запятой Dorvir Microsoft Office Excel 1 03.03.2008 22:39
Как в итоге формулы US DOLLARS 2356.67 ONLY выделить только цифры жирным шрифтом? Dorvir Microsoft Office Excel 6 03.03.2008 10:17
Поиск минимума Иринкаа Помощь студентам 1 19.11.2007 22:00