Как увеличить размер шрифта в выпадающем списке Excel

Question

Я знаю, что этот вопрос задавался несколько раз. Я хочу увеличить размер шрифта выпадающего списка в Excel. Я могу сделать это без каких-либо других code на листе, но у меня есть отдельная sub, которая скрывает / показывает конкретные columns на основе значений, введенных в Column B. Я изо всех сил пытаюсь объединить обе функции в один рабочий sheet.

Это моя попытка:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        On Error GoTo safe_exit
        Application.EnableEvents = False
        Dim t As Range
        For Each t In Intersect(Target, Range("A:A"))
            Select Case (t.Value)
                Case "X"
                    Columns("B:C").EntireColumn.Hidden = False
                    Columns("D:E").EntireColumn.Hidden = True
                Case "Y"
                    Columns("D:E").EntireColumn.Hidden = False
                    Columns("B:C").EntireColumn.Hidden = True
                    'do nothing
            End Select
        Next t

    End If

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("A:A")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
       Is Nothing Then

ActiveWindow.Zoom = 100

End If

safe_exit:
    Application.EnableEvents = True

End Sub

Answer 1

Вам нужно только добавить одну строку из вашего второго суб к первому:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        On Error GoTo safe_exit
        Application.EnableEvents = False
        Dim t As Range
        For Each t In Intersect(Target, Range("A:A"))
            Select Case (t.Value)
                Case "X"
                    Columns("B:C").EntireColumn.Hidden = False
                    Columns("D:E").EntireColumn.Hidden = True
                Case "Y"
                    Columns("D:E").EntireColumn.Hidden = False
                    Columns("B:C").EntireColumn.Hidden = True
                    'do nothing
            End Select
        Next t
        ActiveWindow.Zoom = 100 '<<<
    End If

safe_exit:
    Application.EnableEvents = True

End Sub