Скрыть определенные строки, если диапазон содержит определенные значения

Сначала вы должны выбрать текст, который хотите сделать полужирным:

richTextBox1.SelectionStart = 0;
richTextBox1.SelectionLength = 13;

И затем вы можете определить стиль для выделенного текста:

richTextBox1.SelectionFont = new Font(richTextBox1.Font, FontStyle.Bold);
0
задан Pᴇʜ 8 March 2019 в 12:36
поделиться

1 ответ

Как предлагается в моем комментарии: используйте метод Application.Intersect , а также оператор Select Case .

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim AffectedCells As Range
    Set AffectedCells = Intersect(Target, Target.Parent.Range("E7:V7"))

    If Not AffectedCells Is Nothing Then
        Dim Cell As Range
        For Each Cell In AffectedCells
            Select Case Cell.Value
                Case "-"
                    Target.Parent.Rows("21:50").Hidden = True
                Case "open"
                    Target.Parent.Rows("21:30").Hidden = False
                    Target.Parent.Rows("31:50").Hidden = True
                Case "close"
                    Target.Parent.Rows("31:50").Hidden = False
                    Target.Parent.Rows("21:30").Hidden = True
                Case "both"
                    Target.Parent.Rows("21:50").Hidden = False
            End Select
        Next Cell
    End If
End Sub
0
ответ дан Pᴇʜ 8 March 2019 в 12:36
поделиться
Другие вопросы по тегам:

Похожие вопросы: