Условное форматирование листа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Условное форматирование листа (Формулы/Formulas)

Andrey1883

Дата: Четверг, 06.08.2015, 12:05 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

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

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

Задача такого характера...
Имеется документ с 3 листами (лист 1, лист 2 и лист 3 соответственно) как сделать так, чтобы при открытии документа подкрашивалось название лист 1, 2 или 3 в зависимости от значения в ячейке (фраза"работаю с листом 1"), например А1, либо через выпадающий список

Сообщение отредактировал Andrey1883 - Четверг, 06.08.2015, 12:09

Ответить

Samaretz

Дата: Четверг, 06.08.2015, 12:43 | Сообщение № 2

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

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

Сообщений: 223

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

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

Excel 2010; 2013; 2016

Только макросом.

К сообщению приложен файл: SheetTabHighlig.xlsm (16.9 Kb)

Ответить

Andrey1883

Дата: Четверг, 06.08.2015, 13:49 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

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

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

Цитата Samaretz, 06.08.2015 в 12:43, в сообщении № 2

Только макросом.

Спасибо огромное ) прилепил выпадающий список и вообще норм получилось

Ответить

Andrey1883

Дата: Четверг, 06.08.2015, 14:19 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

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

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

хм...создал новый документ, засунул туда макрос, поменял ячейку...не работает...что не так?

К сообщению приложен файл: 0365124.xlsm (16.4 Kb)

Ответить

buchlotnik

Дата: Четверг, 06.08.2015, 14:38 | Сообщение № 5

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

к листу неправильно обращались [vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Const CellSheet = "$F$2"
Dim i As Long
If Target.Address = CellSheet Then
     For i = 1 To Sheets.Count
       'Sheets(i).Select
       Sheets(i).Tab.ColorIndex = xlColorIndexNone
     Next i
     Sheets(Sheets(1).Range(CellSheet).Text).Tab.Color = vbRed
     If Err.Number = 9 Then
          Sheet1.Cells(1, 4) = Sheet1.Name
     End If
End If
End Sub

[/vba]

К сообщению приложен файл: _0365124.xlsm (16.9 Kb)

Сообщение отредактировал buchlotnik - Четверг, 06.08.2015, 14:39

Ответить

_Boroda_

Дата: Четверг, 06.08.2015, 14:42 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16892

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата buchlotnik, 06.08.2015 в 14:38, в сообщении № 5

к листу неправильно обращались

В ошибках тоже поменять нужно
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     On Error Resume Next
     Dim i As Long
     If Target.Address = "$F$2" Then
         For i = 1 To Sheets.Count
             Sheets(i).Tab.ColorIndex = xlColorIndexNone
         Next i
         Sheets(Target.Text).Tab.Color = vbRed
         If Err.Number = 9 Then
             Target = Me.Name
         End If
     End If
End Sub

[/vba]

К сообщению приложен файл: 0365124_1.xlsm (17.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Условное форматирование листа (Формулы/Formulas)

Страница 1 из 1
1