У меня есть список из 200 ячеек в Excel. Я ввел имена и хотел бы, чтобы цвет текста в ячейке или фон ячейки менялся в соответствии с написанным именем. Я использую около 25 имен.

2 ответа2

2

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

Пример:Пример SU488776

2

Для этого лучше всего использовать условное форматирование, но если вам нужна альтернатива VBA, вы можете записать макрос на вкладке разработчика и отредактировать его в разделе "модули" на боковой панели "проекта". Затем в ThisWorkbook на боковой панели Project поместите код в событие SheetChange .

Вам нужно изменить два выпадающих меню над текстовой областью, для левого нужно установить Workbook (обычно только для опции), для правого - SheetChange Затем вы можете использовать этот простой код для любого количества имен. Имейте в виду, есть много способов сделать это.

Вы можете поместить столько ElseIf's между if и else сколько захотите.

Sub Macro

Dim i As Integer
i = 1

    Range("A" & i).Select

    If ActiveCell = "Name1" Then

        ActiveCell.Interior.ColorIndex = 12

    ElseIf ActiveCell = "Name2" Then

        ActiveCell.Interior.ColorIndex = 4

    ElseIf ActiveCell = "Name2" Then

        ActiveCell.Interior.ColorIndex = 11

    Else 

        ActiveCell.Interior.ColorIndex = 15

    End If

End Sub

использование select в коде - не лучшая практика программирования, но это небольшой объем данных, так что все в порядке. Надеюсь это поможет!

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .