Note: The other languages of the website are Google-translated. Back to English

Как изменить значение в зависимости от цвета ячейки в Excel?

В этой статье говорится об автоматическом изменении значения ячейки в зависимости от цвета фона в Excel. Например, если выделенные ячейки заполняются красным цветом фона, заполните эти ячейки номером 1, а для ячеек с синим цветом фона заполните номер 0.

Изменить значение в зависимости от цвета ячейки с кодом VBA


Изменить значение в зависимости от цвета ячейки с кодом VBA

Вы можете запустить приведенный ниже код VBA, чтобы изменить значение в зависимости от цвета ячейки в Excel. Пожалуйста, сделайте следующее.

1. Выберите диапазон, в котором вам нужно изменить значения в зависимости от цвета фона, затем нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, затем скопируйте и вставьте приведенный ниже код VBA в окно модуля.

Код VBA: изменение значения в зависимости от цвета ячейки в Excel

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3. нажмите F5 Чтобы запустить код, вы увидите, что все красные ячейки в выбранном диапазоне заполнены цифрой 1, а синие ячейки заполнены цифрой 0, как показано на скриншоте ниже.

 

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (11)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Какие изменения в коде потребуются, если вы хотите, чтобы это применялось к цвету текста ячейки, а не к цвету ячейки?
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу дать ячейке имя на основе цвета на одном листе. т.е. если ячейка красная, то она получает имя "имя", если она оранжевая, то получает имена "фамилия" и т.д.



Какой код нужно изменить, чтобы иметь диапазон как весь лист/вкладку и имя вместо значения?
Этот комментарий был сведен к минимуму модератором на сайте
Кажется, что Excel падает всякий раз, когда я пытаюсь запустить код VBA. Похоже на бюст.
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день,
Код работает хорошо в моем случае. Не подскажете вашу версию Excel? Спасибо за ваш комментарий.
Этот комментарий был сведен к минимуму модератором на сайте
Я в той же лодке, пытаюсь запустить это, но код, кажется, зависает. Эксель 2016.
Этот комментарий был сведен к минимуму модератором на сайте
можно ли настроить этот код на основе правила условного форматирования ячеек?
Этот комментарий был сведен к минимуму модератором на сайте
Код отлично работает для меня, но мне нужно переписать код, чтобы он соответствовал цветам, характерным для моего документа. Но я не знаю, какой код у "моих цветов", кто знает, где можно найти коды для других цветов?
Этот комментарий был сведен к минимуму модератором на сайте
Как вы его запускаете, я бегу, но ничего не происходит
Этот комментарий был сведен к минимуму модератором на сайте
Вы можете заменить цвета значениями, просто используя функцию «Найти и заменить». Перейдите к функции форматирования в правой части диалогового окна «Найти и заменить», а затем в разделе «Заливка» вы можете выбрать цвет, который у вас есть. Затем в поле «заменить на» просто напишите нужное значение.
Этот комментарий был сведен к минимуму модератором на сайте
Я наткнулся на этот счастливый удар, который был полезен, но не знаю, где найти полный каталог!
http://cdn-0.access-excel.tips/wp-content/uploads/2015/08/excel_vbcolor_10.png 
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ сделать это, но автоматически просмотреть несколько файлов?
Для контекста, анкеты были отправлены в пару сотен учреждений, их выбранный ответ MC соответствует цвету, указывающему оценку (например, зеленый - хорошо, красный - плохо), и изменить содержимое ячейки (с помощью процесса, как в этой теме) на что-то, что может прочитать R или другое программное обеспечение, а затем использовать это для создания автоматических отчетов. Я мог бы пройтись по каждому из этих файлов с помощью этого макроса (или совсем другой идеи), но это заняло бы много времени.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL