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

【问题标题】：How to increase font size in drop down list Excel如何在下拉列表 Excel 中增加字体大小
【发布时间】：2018-11-18 13:27:06
【问题描述】：

我知道这个问题已经被问过几次了。我想增加Excel 中下拉列表的字体大小。我可以在没有任何其他code 的情况下运行它，但我有一个单独的sub，它根据输入Column B 的值隐藏/取消隐藏特定的columns。我正在努力将这两个功能组合成同一个工作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

【问题讨论】：

你也是@PeterJames123吗？大声笑。
@BigBen，我们同班
您可以从 Change 事件处理程序中调用另一个子
如果您想在工作表发生变化时同时触发这两个动作，您可以将这两个程序合并到一个Worksheet_Change程序中，即在@的末尾添加“增加dd列表字体大小”的代码987654330@。这样就不需要在同一张表中添加 2 个同名函数（这是不可能的）
@Mr.K.您能否以答案的形式添加此内容？

标签： excel vba drop-down-menu fonts

【解决方案1】：

您只需将第二个 sub 中的一行添加到第一个：

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

【讨论】：