Добрый день!
Коллеги, помогите домыслить до конца следующий алгоритм.
ДАНО
Есть книга с множеством листов. На первом листе есть ячейки в диапазоне "C3:C14" для которых "тип данных" установлен "список". У данного списка установлены 2 значения: "рабочий" и "ремонт".
ЗАДАЧА
Никак не могу добиться, чтобы после выбора в ячейке значения "рабочий" закрашивался лист "М 87-35" в черный, а при значении "ремонт" он же опять возвращался в белый цвет.
Вот при активации (выбор ячейки кликом мышки) ячейки это происходит, но не после выбора значения.
Код который пришел в голову (слеплен из кусков взятых с сети) прилагаю.
Подскажите, что упустил.
Заранее благодарен.
Коллеги, помогите домыслить до конца следующий алгоритм.
ДАНО
Есть книга с множеством листов. На первом листе есть ячейки в диапазоне "C3:C14" для которых "тип данных" установлен "список". У данного списка установлены 2 значения: "рабочий" и "ремонт".
ЗАДАЧА
Никак не могу добиться, чтобы после выбора в ячейке значения "рабочий" закрашивался лист "М 87-35" в черный, а при значении "ремонт" он же опять возвращался в белый цвет.
Вот при активации (выбор ячейки кликом мышки) ячейки это происходит, но не после выбора значения.
Код который пришел в голову (слеплен из кусков взятых с сети) прилагаю.
Подскажите, что упустил.
| Код |
|---|
Private Sub Worksheet_Activate()
Sheets("М 87-35").Tab.ColorIndex = xlNone
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rgCell As Range, rgObj As Range
Dim strTAddr As String
Set rgObj = Sheets("Техника").Range("C3:C14")
'Если ячейки НЕ в отслеживаемом диапазоне
If Intersect(Target, rgObj) Is Nothing Then Exit Sub
strTAddr = Target.Address(0, 0)
'Если ячейки в отслеживаемом диапазоне, то перебираем значения
For Each rgCell In Intersect(Target, rgObj)
Select Case strTAddr
Case Is = "C3"
If rgCell = "рабочий" Then
Sheets("М 87-35").Tab.ColorIndex = 1
Else
Sheets("М 87-35").Tab.ColorIndex = xlNone
End If
Case Else
MsgBox "None"
End Select
End Sub
|
Заранее благодарен.
Изменено: - 08.10.2024 16:43:09
