Как увеличить размер шрифта в выпадающем списке в 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 для изменения масштаба