Доброй ночи всем.
Требуется помощь специалистов.
Имеем колонтитул, в правом верхнем блоке которого размещен текст в две строки - первая строка жирным текстом, вторая - обычным.
В зависимости от значения, выбираемого пользователем в ячейке листа (например, в S4) из двух вариантов, текст в колонтитуле должен меняться со стандартного (черного) на белый для того, чтобы при печати его не было видно.
В настоящий момент смог решить эту задачку только способом подстановки значения в колонтитул из ячеек скрытого листа:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("S4").Value = "А" Then
Worksheets("В").PageSetup.RightHeader = "&""Times New Roman""&8" & Worksheets("С").Range("O50") & Chr(10) & Worksheets("С").Range("O51")
Else: Worksheets("В").PageSetup.RightHeader = Worksheets("С").Range("O52")
End If
End Sub
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("S4").Value = "А" Then
Worksheets("В").PageSetup.RightHeader = "&""Times New Roman""&8" & Worksheets("С").Range("O50") & Chr(10) & Worksheets("С").Range("O51")
Else: Worksheets("В").PageSetup.RightHeader = Worksheets("С").Range("O52")
End If
End Sub
|
где О52 - пустая ячейка.
Однако выделение жирным смог сделать только на весь текст, подставляемый в колонтитул.
Очень хотелось бы сделать это как-то по-красивее, ведь должно же быть решение, которое при выборе в ячейке
S4 значения "А" просто изменяло бы цвет текста со стандартного на белый.
Заранее большое спасибо всем откликнувшимся.