Excel vba цвет ярлыка листа

Изменение цвета ярлыков листов

Sub ChangeTabColor()
 ThisWorkbook.Worksheets("Лист1").Tab.ColorIndex = 1
 ThisWorkbook.Worksheets(2).Tab.Color = vbRed
 ThisWorkbook.Worksheets(3).Tab.Color = RGB(255, 255, 0)
End Sub

Sub ClearTabColor()
 Dim ws As Worksheet
 For Each ws In Worksheets
 ws.Tab.ColorIndex = xlColorIndexNone
 Next ws
End Sub

Ага! Это же, сколько переключателей надо будет установить.
Да и подсветка ярлычка, это что бы видно было, что ответ не верный и можно было вернуться и исправить?

Простейший вариант решения задачи!

Ага! Это же, сколько переключателей надо будет установить.
Да и подсветка ярлычка, это что бы видно было, что ответ не верный и можно было вернуться и исправить?

Простейший вариант решения задачи! Wasilich

Ага! Это же, сколько переключателей надо будет установить.
Да и подсветка ярлычка, это что бы видно было, что ответ не верный и можно было вернуться и исправить?

Простейший вариант решения задачи! Автор — Wasilich
Дата добавления — 03.03.2014 в 00:29

Источник

Свойство Interior.Color (Excel)

Возвращает или задает основной цвет объекта, как показано в таблице в разделе примечаний. Используйте функцию RGB для создания значения цвета. Для чтения и записи, Variant.

Синтаксис

expression. Цвет

Выражение Выражение, возвращающее объект Interior .

Примечания

Пример

В этом примере задается цвет меток галочки на оси значений на диаграмме Chart1.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Ярлыки листов в MS Excel: создание, удаление, переименование и и изменение цвета

Знаете почему при открытии и сохранении электронной таблицы MS Excel, она называется не иначе как «Книга»? Конечно потому, что в вашем excel-документе может быть не один лист с единственной таблицей (даже если она очень большая), а сразу несколько листов с совершенно разными таблицами.

К примеру при планировании личных финансов в экселе, можно создать 12 листов — по месяцам, или же создать одну «рабочую» эксель-книгу для учета различных мелочей, где, опять же на разных листах, будут представлены разные таблицы.

Обратите внимание на нижний левый угол документа MS Excel — видите список ярлыков?

Ярлыки листов в документе MS Excel

Ярлыки в excel и страницы в excel — «книге»

Каждый ярлык указывает на отдельный лист табличного документа MS Excel. По-умолчанию, они называются незатейливо: Лист1, Лист2 и т.п. Однако вы легко можете задать им нужные имена, просто щелкнув по ярлыку листа два раза левой кнопкой мыши и введя новое название, или же щелкнув по нему правой кнопкой мыши и выбрав пункт «Переименовать«.

Нажатием на значок «+» рядом с первым из ярлыков листа, вы можете создать нужное количество чистых листов, которые будут помещены в вашу «книгу» MS Excel. Новые рабочие листы добавляются в документ в хронологическом порядке.

Впрочем, если вы создали слишком много листов, то не расстраивайтесь — это просто исправить. Щелкните по ярлыку листа правой кнопкой мыши и выберите пункт «Удалить«. Лист с таблицей будет удален из документа.

Переименование ярлыков листов в документе MS Excel

Действия с ярлыками в документе excel

Кроме создания и удаления, ярлыки можно перемещать и выстраивать в нужном порядке. Просто щелкните по одному из них левой кнопкой мыши (один раз) и не отпуская клавишу, перенесите ярлык влево или вправо. Готово — ярлык переместился на свое место.

Ярлыки MS Excel можно группировать — щелкните по первому ярлыку левой кнопкой мыши (один раз), зажмите клавишу Ctrl и щелкните мышью по другим нужным ярлыкам. Все они станут помечены зеленой полоской по нижнему краю. Сгруппированные ярлыки перемещаются «всей толпой», а если вы введете какие-либо данные на лист одного из них, те же самые данные автоматически появятся и на других листах группы.

Это очень удобно, когда вам нужно создать на нескольких листах, к примеру, одинаковый шаблон таблицы — просто сгруппируйте их, нарисуйте таблицу один раз (таблица появится на всех листах) и снимите группировку. Теперь каждый лист MS Excel снова станет «независимым» и вы сможете ввести в него нужные данные.

Как снять группировку с листов MS Excel? Также как ставили — удерживая ctrl щелкните по ним левой кнопкой мыши (или щелкнув правой кнопкой выбрать пункт «разгруппировать листы«).

Группировка и разгруппировка ярлыков листов в таблице эксель

Цветные ярлыки для листов Excel

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

Чтобы сделать ярлык рабочего листа цветным, просто щелкните на нем правой кнопкой мыши и в появившемся контекстном меню выберите команду «Цвет ярлычка» (именно ярлычка! :)).

На экране появится цветовая палитра. Теперь выберите желаемый цвет для ярлыка и щелкните на кнопке «ок» — под именем активного ярлыка появится цветная линия, а сам он немного изменит цвет.

Попробуйте перейти на другой лист. Видели? Помеченный цветом ярлык теперь невозможно не заметить — он целиком окрасился в выбранный вами цвет.

Как уже отмечалось выше — таким образом можно выделить не только один ярлык, но и группу ярлыков. Это удобно для визуальной группировки — к примеру, можно сгруппировать листы MS Excel по кварталам, проектам или степени важности.

Изменение цвета ярлыков в документе MS Excel

Источник

Adblock
detector

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

Обычно вы можете легко и быстро изменить цвет вкладки в Excel, но пытались ли вы когда-нибудь изменить цвет вкладки на основе значения ячейки на листе? Если вас интересует эта задача, я расскажу о некоторых кодах для вас, чтобы раскрасить вкладку листа на основе определенного значения ячейки в Excel.

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

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

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

Например, я хочу, чтобы текущий цвет вкладки листа был зеленым, если значением ячейки в A1 является текст «ИСТИНА», цвет вкладки будет красным, если текст в A1 — «ЛОЖЬ», и цвет вкладки будет синим, если значение в ячейке A1 — это любой другой текст, как показано на следующем снимке экрана:

1. Щелкните правой кнопкой мыши вкладку листа, цвет которой вы хотите изменить на основе данных в ячейке A1, а затем выберите Просмотреть код из контекстного меню.

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

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

3. Затем сохраните и закройте это окно кода, теперь, когда вы вводите текст «True» в ячейку A1, цвет текущей вкладки станет зеленым, а когда вы введете текст «False» в ячейку A1, цвет вкладки станет красным, а если в ячейку A1 ввести другой текст, цвет табуляции автоматически станет синим.

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

Если вам нужно изменить цвет вкладок нескольких листов в зависимости от значения ячейки, вот также код, который может вам помочь, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно, в открывшемся окне дважды щелкните Эта рабочая тетрадь под VBAProject раздел, затем скопируйте и вставьте приведенный ниже код в пустой Модули:

Код VBA: изменение вкладок нескольких листов в зависимости от значения ячейки:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  'Updateby Extendoffice 20160930
  Select Case Sheets("Master").Range("A1").Value
         Case "KTE"
             Sheets("Sheet1").Tab.Color = vbRed
         Case "KTO"
             Sheets("Sheet2").Tab.Color = vbGreen
         Case "KTW"
             Sheets("Sheet3").Tab.Color = vbBlue
         End Select
End Sub

Примечание: В приведенном выше коде A1 и Master — это ячейка и рабочий лист, на основе которых вы хотите раскрасить вкладку, Sheet1, Sheet2, Sheet3 — это листы, на которых вы хотите раскрасить вкладки. КТЭ, KTW, KTO являются значениями ячеек в A1, на основе которых вы хотите раскрасить вкладки, вы можете изменить ссылки и цвета в коде по своему усмотрению.

2. Затем сохраните и закройте это окно кода, теперь, когда вы вводите текст KTE в ячейку A1 основного листа, вкладка Sheet1 будет окрашена в красный цвет, когда вы введете KTO в ячейку A1, Sheet2 будет окрашен в зеленый цвет, а когда вы вводите KTW в ячейку A1, Sheet3 будет окрашен в синий цвет, см. снимок экрана: