Ключ индекса цвета

Поэтому я немного новичок в VBA, поэтому спасибо за вашу помощь заранее. То, что я пытаюсь сделать, это функция Vlookup, основанная на цветовом ключе. Я совсем не знаком с тем, как это сделать в функции if, но я попытаюсь перечислить здесь переменные.

Я хочу просмотреть диапазон B2: 038 (у которых есть цвета, но нет значений), и если они имеют тот же индекс цвета, что и ключ, который у меня есть в A40: A46, вставьте значение соответствующей ячейки в ключ.

A40's RGB= 0, 154, 61 A41's RGB= 146, 208, 80 A42's RGB= 255, 210, 0 A43's RGB = 227, 27, 35 A44's RGB= 191, 232, 255 A45's RGB= 200, 200, 200 A46 has no color 

Вы не можете сделать это с помощью простой формулы, но вы можете с помощью макроса:

 Sub PopulateArray() For i = 2 To 38 For j = 2 To 15 For k = 40 To 46 If Cells(i, j).Interior.Color = Range("A" & k).Interior.Color Then Cells(i, j) = Range("A" & k).Text Exit For End If Next k Next j Next i End Sub 

Когда вы выполняете этот макрос, вы просматриваете весь диапазон B2: O38 и проверяете, соответствует ли его цвет фона одному из диапазонов A40: A46. Если это так, вы перетащите соответствующий текст, найденный в диапазоне A40: A46, в текущую ячейку.

Если вы хотите изменить цвет шрифта, замените слово « Интерьер шрифтом».

  • Функция возврата «слишком низкая», «слишком высокая» или «ОК» для каждой ячейки в диапазоне
  • Использование вложенных, если дать конкретный ответ в excel
  • Фильтр листков VBA Loop с использованием нескольких переменных
  • Если ячейка равна значению в другой ячейке, то cellX
  • Представление списка в матричном формате
  • Excel: как сделать ячейку пустой, если формула возвращает ошибку или число меньше 0 или больше 1?
  • Использование подстановочного знака в заявлении If с ссылкой на ячейку
  • Более быстрый способ оценки 30+ If Then выражений в Excel VBA
  • MACRO VBA - «ошибка времени выполнения« 1004 »- определенная или объектная ошибка»
  • Как создать условный оператор с несколькими значениями в excel
  • Кодирование операторов IF в Excel
  • Interesting Posts

    Таблица – упорядочение столбца дважды, используя разные баллы (из 2 других колонок)

    Ошибка при открытии книги с помощью VBA

    Группировка огромного количества строк

    Интерактивный интерфейс Excel 2010, определяющий встроенные стили XML

    Как найти все «истинные» в столбце и вставить две строки выше каждого найденного true?

    Создать список проверки данных, когда некоторые значения имеют запятые?

    Сумма поиска на основе таблицы поиска SUMIF

    как создать серию для каждой группы от 1 до до конца группы

    Я использую Winnovative для вывода файла Excel. Но я не могу установить Zoom View of Excel (не масштабировать масштаб для печати)

    фильтровать, копировать и вставлять несколько фильтров на несколько листов

    Дата и дата-время с использованием функции PHPExcel записываются в excel как Text

    Взгляните с другого листа на VBA

    Я не смог бесконечно пытаться написать код в VBA, чтобы вставить эту формулу в ячейку

    создать контрольный журнал пользователя в microsoft excel 2010

    Как подсчитать ячейки в excel, начиная с ячейки, которая имеет указанное значение?

    Давайте будем гением компьютера.