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

如何在下拉列表Excel中增加字体大小

1 个答案: