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

下拉列表是Excel中非常有用的功能，当您在工作表中创建下拉列表时，是否尝试过增大下拉列表的字体大小，以使所选记录更大、更易读，如左图所示？本文将讨论一种解决此问题的变通方法。

使用VBA代码增大下拉列表字体大小以放大显示比例

使用VBA代码增大下拉列表字体大小以放大显示比例

实际上，我们无法直接增大下拉列表的字体大小，但您可以应用以下VBA代码来更改下拉列表单元格的缩放设置，从而使文本显得更大。请按照以下步骤操作：

1. 转到包含要增大字体大小的下拉列表的工作表。

2. 右键单击工作表标签，并从上下文菜单中选择“查看代码”。在弹出的Microsoft Visual Basic for Applications窗口中，请将以下代码复制并粘贴到空白的模块窗口中：

VBA代码：增大下拉列表字体大小以放大单元格显示比例

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

3. 然后保存并关闭此代码。现在，当您点击下拉列表单元格时，单元格的缩放比例会放大，下拉列表也会显得更大；但是，当您点击不包含下拉列表的其他单元格时，单元格缩放比例将恢复正常。

注意：在上述代码中，xZoom = 130 将把下拉列表单元格的缩放比例改为130，您可以根据需要更改此缩放数值。

在Excel中创建带复选框的下拉列表

演示：使用VBA代码增大下拉列表字体大小以放大显示比例