Эндрю знает, как изменить цвет вкладок рабочего листа вручную.

Однако ему нужен способ изменить цвет вкладки в зависимости от значения в ячейке на листе.

Для этого вам понадобится макрос. Суть в том, что вы хотите изменить свойство Color объекта Tab следующим образом:

ActiveSheet.Tab.Color = vbRed

Логика, которую вы используете, чтобы добраться до такой точки назначения цвета, зависит от того, что вы хотите сделать и когда вы хотите это сделать. Предполагая, что вы хотите изменить цвет вкладки в зависимости от того, что находится в ячейке A1, вы можете использовать макрос, подобный следующему:

Private Sub Worksheet_Change(ByVal Target As Range)

MyVal = Range("A1").Text

With ActiveSheet.Tab         Select Case MyVal             Case "0"

.Color = vbBlack             Case "1"

.Color = vbRed             Case "2"

.Color = vbGreen             Case "3"

.Color = vbYellow             Case "4"

.Color = vbBlue             Case "5"

.Color = vbMagenta             Case "6"

.Color = vbCyan             Case "7"

.Color = vbWhite             Case Else                 .ColorIndex = xlColorIndexNone         End Select     End With End Sub

Вам нужно добавить макрос в код рабочего листа, вкладку которого вы хотите изменить. (Щелкните правой кнопкой мыши вкладку листа и выберите «Просмотреть код» в контекстном меню. Вставьте код в это окно кода.) Макрос захватывает все, что находится в ячейке A1, а затем использует структуру Select Case для изменения цвета вкладки. Логика изменяет цвет, если A1 содержит от 0 до 7. Если там есть что-то еще (или вообще ничего), то свойство ColorIndex используется для возврата цвета вкладки к значению по умолчанию.

Макрос можно изменить так, чтобы он проверял текстовую строку (например, «Черный», «Красный» и т. Д.) Или какое-либо ключевое слово (например, «Низкий» или «Высокий»). Вы также можете использовать различные цветовые обозначения со свойством Color, например функцию RGB:

.Color = RGB(255, 0, 0)

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (13138) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365.