Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Раскрашивание ячеек при выполнении условия - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Раскрашивание ячеек при выполнении условия (Макросы/Sub)
Раскрашивание ячеек при выполнении условия
superpsih Дата: Понедельник, 13.04.2015, 11:08 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте.
Подскажите пожалуйста как повесить на кнопку следующую процедуру:
Пользователь выделяет ячейки, нажимает на кнопку. К выделенным ячейкам применяется условие If (например если число в ячейке больше 1, то) и если условие выполняется, то ячейка заливается красным цветом, если нет, то жёлтым.
 
Ответить
СообщениеЗдравствуйте.
Подскажите пожалуйста как повесить на кнопку следующую процедуру:
Пользователь выделяет ячейки, нажимает на кнопку. К выделенным ячейкам применяется условие If (например если число в ячейке больше 1, то) и если условие выполняется, то ячейка заливается красным цветом, если нет, то жёлтым.
Автор - superpsih
Дата добавления - 13.04.2015 в 11:08
Pelena Дата: Понедельник, 13.04.2015, 11:16 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Обязательно макросом? Условное форматирование не вариант?
В любом случае нужен файл с примером в соответствии с Правилами форума

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Обязательно макросом? Условное форматирование не вариант?
В любом случае нужен файл с примером в соответствии с Правилами форума
Автор - Pelena
Дата добавления - 13.04.2015 в 11:16
superpsih Дата: Понедельник, 13.04.2015, 11:23 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Да, условное форматирование подходит. Спасибо вам!
 
Ответить
СообщениеДа, условное форматирование подходит. Спасибо вам!
Автор - superpsih
Дата добавления - 13.04.2015 в 11:23
_Boroda_ Дата: Понедельник, 13.04.2015, 13:13 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А макросом можно, если особо не углубляться, так
[vba]
Код
Sub tt()
     On Error Resume Next
     a_ = InputBox("Ââåäèòå óñëîâèå")
     If a_ = "" Then Exit Sub
     n_ = Selection.Cells.Count
     For i = 1 To n_
         If IsNumeric(Selection.Cells(i)) And Selection.Cells(i) <> "" Then
             If Evaluate(Selection.Cells(i) & a_) Then
                 Selection.Cells(i).Interior.ColorIndex = 3
             Else
                 Selection.Cells(i).Interior.ColorIndex = 6
             End If
         End If
     Next i
End Sub
[/vba]
К сообщению приложен файл: 98984875.xlsm (17.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА макросом можно, если особо не углубляться, так
[vba]
Код
Sub tt()
     On Error Resume Next
     a_ = InputBox("Ââåäèòå óñëîâèå")
     If a_ = "" Then Exit Sub
     n_ = Selection.Cells.Count
     For i = 1 To n_
         If IsNumeric(Selection.Cells(i)) And Selection.Cells(i) <> "" Then
             If Evaluate(Selection.Cells(i) & a_) Then
                 Selection.Cells(i).Interior.ColorIndex = 3
             Else
                 Selection.Cells(i).Interior.ColorIndex = 6
             End If
         End If
     Next i
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 13.04.2015 в 13:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Раскрашивание ячеек при выполнении условия (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!