Не могу поменять цвет ярлыка в excel - Word и Excel - помощь в работе с программами

wertual Пользователь Сообщений: 24 Регистрация: 22.02.2013	Добрый день! Изменение цвета ярлыка листа при каком либо условии вообще возможно? Если да, то как? Помогите пожалуйста.

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле

Nic70y Пользователь Сообщений: 3289 Регистрация: 22.12.2012 Win7 MSO 2013	Ни чего в макросах не понимаю. Для интереса записал рекордерем (чуть изменил) работает: Прикрепленные файлы 800.xls (37 КБ)

wertual Пользователь Сообщений: 24 Регистрация: 22.02.2013	К сожалению, у меня ничего не получилось…

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

01.05.2013 00:39:35

Код
Sub Макрос1() If Range("A1") > 5 Then Sheets("Лист2").Tab.ColorIndex = 3 Else Sheets("Лист2").Tab.ColorIndex = xlNone End If End Sub

Если ячейка А1 активного листа > 5, то ярлычок второго листа заливаем красным. Иначе без заливки.

wertual Пользователь Сообщений: 24 Регистрация: 22.02.2013	Юрий М, Спасибо! ПОдскажите,а если значение текстовое, например «Да» или «НЕТ»?

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

01.05.2013 01:17:07

Код
If Range("A1") = "Да" Then

wertual Пользователь Сообщений: 24 Регистрация: 22.02.2013	C цифрами получается, а вот с текстом получается только в одну сторону: Если «да», то цвет меняет, а вот еслине да, то не меняет… Спасибо , что откликнулись! Этот форум очень полезен мне! Изменено: wertual — 01.05.2013 01:33:18

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

01.05.2013 01:37:21

Цитата
wertual пишет: C цифрами получается, а вот с текстом нет.

Не верю. А «на лету» — тоже макрос. См. пример: в ячейку А1 Лист1 вводим Да — второй ярлык будет красный, Нет — синий, любое другое значение — без заливки. Код в модуле листа.

Прикрепленные файлы

Цвет ярлычка.xls (23 КБ)

wertual

Пользователь

Сообщений: 24
Регистрация: 22.02.2013

нет, не работает, видимо у меня что-то не то с Excel… Даже Ваш файлик, за что Вам огромное спасибо, не работает,я его просто качаю, открываю, пишу да в желтой ячейке, а он ничего… ААА, оказывается я регистр не учел, все работает и прекрасно работает, большущая Вам благодарность!!!

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	Про регистронезависимость Вы ничего не говорили, а для Excel «Да» и «да» — разные вещи))

Добрый День Всем!!!
Данный макрос привязал к своему примеру. Все хорошо работает.
Только в моем примере нужно немного по другому реализовать.
Допустим есть выбор в ячейках А1:А6 из диапазона D1:D6. Нужно чтобы При выборе хотя бы одного параметра в ячейках А1:А6 выделялся цветом соответствующий этому параметру лист. Повторений в ячейках А1:А6 быть не может.
Файл примера прилагаю.
Макрос немного изменил, написал сначала для ячейки А1. Почти все работает. Только остается заливка цветом ярлычка предыдущего выбора.

Разобрался немного. Исправил макрос. Теперь при выборе из ячеек А1:А6 закрашиваются ярлычки соответствующих выбранных листов, но если какой либо параметр убираешь из ячеек А1:А6, то закрашенные листы все равно остаются. Не могу сообразить как дописать макрос, чтобы при отсутствии параметра в ячейках А1:А6 на соответствующем листе убиралось бы закрашивание ярлычка листа.
Файл переделанный прилагаю. Подскажите пожалуйста кто знает как сделать.

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле

	Юрий, Спасибо большое! Все отлично работает! P.S.: только не могу понять как этот макрос работает.

	Не могу под свой пример этот макрос переписать. Например если перемещаю диапазон A1:A6 в колонку B, получается диапазон B1:B6 и меняю в макросе естественно на диапазон B1:B6, то макрос почему то перестает работать

k61

Пользователь

Сообщений: 2441
Регистрация: 21.12.2012

#17

22.08.2013 07:56:55

Для столба «B», в этой части кода Юрия исправьте 1 на 2:

Код
If Not IsEmpty(Cells(i, 1)) Then Sheets(Cells(i, 1).Value).Tab.ColorIndex = 3 End If

С этим да, я уже разобрался. Но почему то когда вставляю в свой пример, у меня выводит ошибку на строчку кода:
[CODE][/CODE] Sheets(Cells(i, 4).Value).Tab.ColorIndex = 3

А так впринципе листы закрашиваются даже с ошибкой… только не могу понять что за ошибка

k61 Пользователь Сообщений: 2441 Регистрация: 21.12.2012	Ну видимо листа с именем равным значению в ячейке Cells(i, 4) не существует. Почему Cells(i, 4).Value, если речь идёт о столбце «B» (втором)?

AlexZanderG

Пользователь

Сообщений: 41
Регистрация: 21.07.2013

#20

22.08.2013 08:32:40

Извините. да немного перепутал.
Допустим речь идет о столбце B. Но данные параметры находятся в ячейках B1, B6, B11, B16, B21, B26.
В других ячейках B2, B3 и т.д. находятся какие либо слова, по которым не надо проводить закрашивание листов.

Вот код я изменил немного.

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B1, B6, B11, B16, B21, B26")) Is Nothing Then
        
        For i = 2 To Sheets.Count
            Sheets(i).Tab.ColorIndex = xlNone
        Next
        For i = 1 To 26
            If Not IsEmpty(Cells(i, 2)) Then
                Sheets(Cells(i, 2).Value).Tab.ColorIndex = 3
            End If
        Next
    End If
End Sub

Но не знаю как поменять данную строчку кода чтоб он не по всем 26 строчкам считывал а только по данным (1, 6, 11, 16, 21, 26):

Код
For i = 1 To 26

Файл прилагаю так же.

Прикрепленные файлы

Цвет ярлычка 03.xls (44 КБ)

k61

Пользователь

Сообщений: 2441
Регистрация: 21.12.2012

#21

22.08.2013 08:49:14

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim sss()
If Target.Cells.Count > 1 Then Exit Sub
  If Not Intersect(Target, Range("B1, B6, B11, B16, B21, B26")) Is Nothing Then
  For i = 2 To Sheets.Count
  Sheets(i).Tab.ColorIndex = xlNone
  Next
  sss = Array("1", "6", "11", "16", "21", "26")
  For i = 0 To 5
    If Not IsEmpty(Cells(Val(sss(i)), 2)) Then
    Sheets(Cells(Val(sss(i)), 2).Value).Tab.ColorIndex = 3
    End If
  Next
End If
End Sub

	k61, спасибо большое Вам! все работает хорошо! Код понял как работает.

k61

Пользователь

Сообщений: 2441
Регистрация: 21.12.2012

#23

22.08.2013 09:09:38

Укоротим.

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Set rrr = Range("B1, B6, B11, B16, B21, B26")
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, rrr) Is Nothing Then
  For i = 2 To Sheets.Count
  Sheets(i).Tab.ColorIndex = xlNone
  Next
  For Each r In rrr
    If Not IsEmpty(r) Then
    Sheets(r.Value).Tab.ColorIndex = 3
    End If
  Next r
End If
End Sub

	Да, последний код будет универсальнее. Спасибо большое Вам!

sandiro

Пользователь

Сообщений: 27
Регистрация: 20.10.2015

Добрый день!
Подскажите новичку

На листе Лист1 в зависимости от результатов вычислений ячейки A1 и B1 окрашиваются обе в красный или зелёный цвет .
А можно ли сделать так что б цвет листа Лист1 окрашивался тем же цветом что и ячейки ?

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	sandiro, можно. С Вас файл-пример. <#0> Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

sandiro Пользователь Сообщений: 27 Регистрация: 20.10.2015	Вот пример Прикрепленные файлы Пример.xlsx (10.55 КБ)

JayBhagavan

Пользователь

Сообщений: 11833
Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

#28

28.10.2015 15:39:03

в модуле листа

Прикрепленные файлы

Пример (25).xlsb (15.55 КБ)

<#0>
Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

sandiro Пользователь Сообщений: 27 Регистрация: 20.10.2015

sandiro Пользователь Сообщений: 27 Регистрация: 20.10.2015	#30 29.10.2015 16:15:56 Тогда ещё спрошу… Есть Лист1 на нём три диапазона с данными B3 : B6 , C3 : C6 , D3 : D6 Если сумма значений в (B3 : B6) = (C3 : C6) + (D3 : D6) ярлык Лист1 был зелёного цвета, если не равно — красного Очень надо… Прикрепленные файлы Пример 222.xlsm (10.39 КБ)

Источник

Excel для Microsoft 365 Excel для Интернета Excel 2021 Excel 2019 Excel 2016 Excel 2013 Еще…Меньше

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

Чтобы изменить цвет ярлычка листа, щелкните правой кнопкой мыши ярлычок, наведите указатель мыши на пункт Цвет ярлычка и выберите нужный цвет.

Совет: Чтобы посмотреть, как будет выглядеть новый цвет ярлычка, щелкните область вне отформатированного ярлычка.

Чтобы удалить цвет, щелкните правой кнопкой мыши ярлычок, наведите указатель мыши на пункт Цвет ярлычка и выберите значение Нет цвета.

Нужна дополнительная помощь?

Источник

При создании электронной таблицы в Excel она состоит из трех листов. Для чего они предназначены? Как с ними работать? Как их найти в программе? В этой статье рассматриваются основные сведения работы с программой, а также приводится видеоурок по теме.

Как работать с листами? Где найти листы книги Excel?

При создании документа в окне программы под самой таблицей есть вкладки Лист1, Лист 2, Лист3. По умолчанию активен первый лист — именно на нем мы и начинаем работать. Чтобы перейти к работе с другими листами, нужно щелкнуть мышью по вкладкам. Активная вкладка (с которой в данный момент идет работа) имеет выделяется цветом.

Часто основные данные находятся на первом листе, а на втором вводятся какие-то вспомогательные значения. Также на отдельных листах можно строить диаграммы, построенные по значениям других листов.

Цвет ярлычка листа

В современных версиях Excel листы можно раскрасить в любой цвет. Для этого нажмите на нужном листе правую кнопку мыши (далее — ПКМ) для вызова контекстного меню и выбора цвета: Цвет ярлычка — выбор предложенного цвета или Другие цвета…

Чтобы убрать цвет вкладки, нужно выбрать Цвет ярлычка — Нет цвета.

Три ярлычка разного цвета. Цвета удобно использовать при работе с большим числом листов.

Переход к разным листам

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

Как перемещать листы?

Excel позволяет перемещать листы, меняя порядок их отображения. Для этого нужно просто щелкнуть на листе левой кнопкой мыши, удерживая потянуть влево или вправо — в нужное место — и бросить, то есть отпустить мышь. Таким образом, можно перемещать все листы книги.

Как переименовать листы?

Также нажимаем ПКМ на нужном листе — Переименовать.

Но Excel позволяет работать не только с имеющимися тремя листами, но и создавать новые листы, удалять ненужные и просто копировать их >>>

Смотрите видеоурок Работа листами электронной таблицы

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

Источник

Как сменить цвет ярлычков листа на Е2013.

Grell

Дата: Понедельник, 04.09.2017, 08:54 |
Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 113

Репутация:
0
±

Замечаний:
60% ±

Excel 2007

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

Почему-то не могу сменить цвет ярлычков Листов. Щелкаю на них правой кнопкой мыши — ничего не происходит — меню где можно выбрать цвет — не появляется (вообще ничего не появляется).
Как заставить ярлычок листа сменить цвет ?

Ответить

китин

Дата: Понедельник, 04.09.2017, 08:59 |
Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 6973

Репутация:
1063
±

Замечаний:
0% ±

Excel 2007;2010;2016

а у вас книга не в общем доступе?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Grell

Дата: Понедельник, 04.09.2017, 09:09 |
Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 113

Репутация:
0
±

Замечаний:
60% ±

Excel 2007

китин, все разобрался.
Там блокировка стояла CommandBars(«Cell»)
Видимо влезла туда с одним из макросов.

Сообщение отредактировал Grell — Понедельник, 04.09.2017, 09:19

Ответить

Источник

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

В верхнем левом углу окна программы щелкните по кнопке «Office».
В меню типичных задач выберите кнопку «Параметры Excel».
В окне «Параметры Excel» на вкладке «Дополнительно» в группе «Показать параметры для следующей книги» раскройте список и выберите книгу для настройки.
Активируйте пункт «Показывать ярлычки листов».
Закройте окно кнопкой «ОК».

Как изменить цвет ярлычка листа?

1 способ:

В окне открытой книги щелкните правой кнопкой мыши по ярлычку нужного листа.
В контекстном меню наведите курсор на пункт «Цвет ярлычка».
В палитре «Цвет темы» или «Стандартные цвета» выберите нужный цвет (рис. 2.36).

Рис. 2.36. Контекстное меню листа. Палитра пункта «Цвет ярлычка»

Если нужного цвета в палитрах нет, то щелкните по пункту «Другие цвета».
В окне «Цвета» на вкладке «Обычные» (рис. 2.37) или «Спектр» (рис. 2.38) подберите нужный цвет.

Рис. 2.37. Окно «Цвета». Вкладка «Обычные»

Рис. 2.38. Окно «Цвета». Вкладка «Спектр»

Закройте окно кнопкой «ОК».

2 способ:

В окне открытой книги выделите нужный лист и перейдите к вкладке «Главная».
В группе «Ячейка» раскройте меню кнопки «Формат».
В меню «Формат» наведите курсор на пункт «Цвет ярлычка» (рис. 2.39).
Далее действуйте как в первом способе данной инструкции.

Рис. 2.39. Вкладка «Главная». Палитра пункта «Цвет ярлычка»

Как убрать цвет ярлычка листа?

1 способ:

В окне открытой книги щелкните правой кнопкой мыши по ярлычку нужного листа.
В контекстном меню наведите курсор на пункт «Цвет ярлычка».
В меню «Цвет ярлычка» выберите пункт «Нет цвета».

2 способ:

В окне открытой книги выделите нужный лист и перейдите к вкладке «Главная».
В группе «Ячейка» раскройте меню кнопки «Формат».
В меню «Формат» наведите курсор на пункт «Цвет ярлычка».
В меню «Цвет ярлычка» выберите пункт «Нет цвета».

Источник