Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


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

Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Автор Тема: Изменение заливки в зависимости от значения (доработка кода)  (Прочитано 396 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Декстер Морган

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 1

Ребят помогите с такой проблемой. Есть вот такой код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:T50")) Is Nothing Then
Call Макрос500
End If
End Sub
и собственно сам Макрос500:
Sub Ìàêðîñ500()
If Application.WorksheetFunction.CountIf(Range("B7:С7"), "1000") > 0 Then
        Range("D7:K7").Interior.ColorIndex = 6
    Else
        Range("D7:K7").Interior.ColorIndex = xlNone
    End If
    If Application.WorksheetFunction.CountIf(Range("B6:С6"), "1000") > 0 Then
        Range("D6:K6").Interior.ColorIndex = 6
    Else
        Range("D6:K6").Interior.ColorIndex = xlNone
    End If
    If Application.WorksheetFunction.CountIf(Range("B5:С5"), "1000") > 0 Then
        Range("D5:K5").Interior.ColorIndex = 6
    Else
        Range("D5:K5").Interior.ColorIndex = xlNone
    End If
End Sub

То есть при изменении ячейки из указанного диапазона (A1:T50) запускается Макрос, который проверяет есть ли в диапазоне (B7:C7) число 1000, если есть то заливает диапазон (d7:K7) желтым цветом. В чем задача:
1. нужно, чтоб он как то сам определял в какой строке стоит число 1000 и в этой же строке заливал ячейки с D по K
2. и еще, если 1000 ввели в ячейку то диапазон окрашивается с D по K, если 500 то закрашивается с D по M, если 700 то с D по X.

Пример не могу выложить, там данные клиентов.Помогите пожалуйста!
« Последнее редактирование: 16.02.2017, 22:57:48 от vikttur »
Записан

zs5

  • Постоялец
  • ***
  • Уважение: +4/-0
  • Оффлайн Оффлайн
  • Сообщений: 160

Аналогия - условное_форматирование по условию (=ПОИСКПОЗ(500;A1)>0)
Записан
 



Темы без ответов

22.05.2018 11:38 Скрипт написать который допишет данные в файл 158
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 592
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 562
23.01.2018 13:46 Найти вероятность повторной покупки 570
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 760
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 839
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 1072
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 2507
15.03.2017 15:45 автозамена картинок PowerPoint 1561
11.03.2017 13:43 Изменить нумерацию страниц 1794





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.163 секунд. Запросов: 100.