У меня есть список из 200 ячеек в Excel. Я ввел имена и хотел бы, чтобы цвет текста в ячейке или фон ячейки менялся в соответствии с написанным именем. Я использую около 25 имен.
2 ответа
Я предлагаю вам использовать функцию условного форматирования Excel. Вы можете посмотреть на помощь, чтобы понять, как это сделать. Вы также можете найти различные документированные примеры
Пример:
Для этого лучше всего использовать условное форматирование, но если вам нужна альтернатива 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 в коде - не лучшая практика программирования, но это небольшой объем данных, так что все в порядке. Надеюсь это поможет!