如何在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. 然後保存並關閉此代碼，現在，當您單擊下拉列表單元格時，該單元格的縮放將被放大，並且下拉列表將顯示為較大，但是，當您單擊不包含該下拉列表的其他單元格時，單元格縮放將是正常的。

備註：在上面的代碼中， x變焦= 130 會將下拉列表單元格的縮放比例更改為 130，您可以根據需要更改此縮放倍數。

在Excel中使用複選框創建下拉列表

如果您需要創建帶有多個複選框的下拉列表，以便將列表中的多個項目選擇到一個單元格中，則可能沒有直接的方法來解決此任務。但， Excel的Kutools 支持驚人的功能- 帶有復選框的下拉列表，使用此功能，您可以根據需要快速創建帶有指定範圍，當前工作表，當前工作簿或所有打開的工作簿中的複選框的下拉列表。 點擊下載Kutools for Excel！

演示：使用VBA代碼增加下拉列表字體大小以放大縮放

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。

閱讀更多... 免費下載... 採購...

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載... 採購...

留言 (27)

還沒有評分。成為第一位評論！

邁克爾·

大約6年前

#17535

網站主持人對此評論進行了最小化

因此，此代碼使整個工作表縮放，而不僅僅是下拉框。它還說“無法保存......在禁用宏的工作簿中的 VB 項目”。等等等等等等。如果我必須在地獄的半英畝土地上尋找完整的答案才能得到這個問題的完整答案，這不是答案。

哈萊姆艾因斯邁克爾·

大約5年前

#17536

網站主持人對此評論進行了最小化

[quote]因此，此代碼使整個工作表縮放，而不僅僅是下拉框。它還說“無法保存......在禁用宏的工作簿中的 VB 項目”。等等等等等等。如果我必須在地獄的半英畝土地上尋找完整的答案才能得到這個問題的完整答案，這不是答案。邁克爾[/quote] 只需將工作簿另存為 xlsm 並再次按照步驟操作。順便說一句，我試過了，它根本不適合我；縮放仍為 100%。

哈萊姆艾因斯

大約5年前

#18519

網站主持人對此評論進行了最小化

我正在運行 Office 2016 並使用下拉框。我嘗試了“使用 VBA 代碼增加下拉列表字體大小以放大縮放”，但它不起作用。我還應該做些什麼來讓它發揮作用嗎？謝謝！

特拉維斯

大約5年前

#20025

網站主持人對此評論進行了最小化

如指示所示，您必須將縮放從“100”更改為“130”或其他縮放以查看任何更改。但是，第一條評論是準確的，因為它不僅更改了下拉菜單，而且一旦您單擊單元格，它將整個工作表縮放 1% 以放大該單元格。不是很有幫助，因為那樣你每次都必須縮小。

加思特拉維斯

大約4年前

#20026

網站主持人對此評論進行了最小化

或在工作簿中選擇一個備用單元格以將其返回到 100，如宏中所述

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

諾埃爾

大約5年前

#20653

網站主持人對此評論進行了最小化

嗨，只是想知道為什麼這個功能在文件保存並重新打開後消失了？

楊咪咪諾埃爾

大約5年前

#20654

網站主持人對此評論進行了最小化

嗨，Noel，您應該將 Excel 文件保存為 Excel 啟用宏的工作簿格式。

即時報告

塞韋林楊咪咪

大約8個月前

#38244

網站主持人對此評論進行了最小化

Dzięki za podpowiedź

艾哈邁德·索比

大約5年前

#20950

網站主持人對此評論進行了最小化

謝謝，效果很好

約翰·德里斯科爾

大約5年前

#23339

網站主持人對此評論進行了最小化

這對我不起作用。我按照指示粘貼了文本。當我點擊下拉菜單時，字體大小是相同的。然後當我點擊不同的單元格時，整個電子表格的大小可能增加了 30%。如果可能的話，真的很想解決

喬治

大約5年前

#23372

網站主持人對此評論進行了最小化

使用此代碼後，我無法在 Excel 上使用返回鍵。如何編碼（安裝）返回鍵？

戴夫·哈萊夫

大約4年前

#24171

網站主持人對此評論進行了最小化

這會將整個工作表縮放到 130%
如何只增加下拉菜單？

即時報告

天陽戴夫·哈萊夫

大約4年前

#24172

網站主持人對此評論進行了最小化

你好，戴夫，
為了只增加下拉菜單，這裡有一個解決方法。

首先，在工作表中插入下拉列表後，您應該插入一個組合框（ActiveX 控件），然後將以下 VBA 代碼應用到工作表模塊代碼中：

將 xRg 調暗為範圍
私有子 ComboBox1_Change()
在錯誤恢復下一頁
xRg.Value = Me.ComboBox1.Text
END SUB
私人子工作表_SelectionChange（ByVal Target As Range）
出錯時轉到 LblExit
和我一起.ComboBox1
.可見=假
如果 Target.Validation.Type = xlValidateList Then
Target.Validation.InCellDropdown = 假
.ListWidth = 120
.ListFillRange = ""
.ListFillRange = Target.Validation.Formula1
.Left = 目標.Left
.Top = 目標.Top
.Width = 目標.Width
.Height = 目標.Height
字體大小= 16
.Visible = True
設置 xRg = 目標
如果結束
結束
Lbl退出：
END SUB

插入代碼後，現在當您單擊下拉列表單元格時，將顯示一個組合框，並根據需要增加下拉菜單中的字體大小。並且插入的組合框將自動隱藏。

請嘗試一下，希望對您有所幫助！

即時報告

GJ 天陽

大約3年前

#24173

網站主持人對此評論進行了最小化

天才！謝謝天陽！非常感謝你的方法！奇蹟般有效！

意大利貝爾蒙特天陽

大約3年前

#24174

網站主持人對此評論進行了最小化

你能逐步解釋一下傻瓜嗎？

天陽意大利貝爾蒙特

大約3年前

#24175

網站主持人對此評論進行了最小化

你好，伊塔洛，
1. 在工作表中插入您需要的下拉列表；
2.然後通過點擊Developer > Insert > Combo Box (ActiveX Controls) 插入一個Combo Box (ActiveX Controls)，然後拖動鼠標繪製一個Combo Box對象；
3.然後，右鍵單擊您當前使用的工作表，選擇查看代碼，並將上述代碼粘貼到模塊中；
4. 最後，單擊“開發人員”選項卡下的“設計模式”將其禁用。
5. 現在，當您單擊下拉列表單元格時，將顯示一個組合框，並且下拉菜單中的字體大小可以根據需要增加。
請嘗試，希望對您有所幫助！

即時報告

保羅·羅伯茨

大約4年前

#25045

網站主持人對此評論進行了最小化

如何將此字體更改大小僅應用於一列？我有幾列帶有下拉框，我只想要一個特定的列來更改字體大小？

即時報告

高手

大約4年前

#27449

網站主持人對此評論進行了最小化

嗨，只是問題我已將代碼粘貼到空白模塊窗口（右鍵單擊查看代碼）。一旦我保存，功能就很好。但是當我關閉文件並重新打開它時，代碼消失了，下拉列表不再放大。我可以知道如何設置為永久使用嗎？

天陽高手

大約4年前

#27450

網站主持人對此評論進行了最小化

你好，艾斯，
要保存代碼，您應該將 Excel 文件保存為 Excel 啟用宏的工作簿格式。請嘗試一下。

即時報告

伊馮娜天陽

大約3個月前

#40658

網站主持人對此評論進行了最小化

我有多個下拉菜單，只需要一個更大的，因為其餘的是是/否。但是您共享的代碼正在為所有人執行此操作。我如何僅將其僅用於一個下拉菜單？

天陽伊馮娜

大約3個月前

#40707

網站主持人對此評論進行了最小化

你好，伊馮娜
要將代碼僅應用於一個單元格，以下代碼可能會對您有所幫助：（備註：在代碼中，更改單元格 I2 到您自己的單元格引用。）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    Dim xRg As Range
    xZoom = 100
    Set xRg = Range("I2")
    If Not Intersect(Target, xRg) Is Nothing Then
        If Target.Validation.Type = xlValidateList Then xZoom = 130
    End If
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

請嘗試，希望對您有所幫助！

即時報告

大衛·弗羅斯特

大約2年前

#33311

網站主持人對此評論進行了最小化

感謝您提供在下拉框中縮放字體大小的提示。它成功了。

伊万

大約10個月前

#37682

網站主持人對此評論進行了最小化

經常發生。 Al dar clic en cualquiera celda se agranda, pero no en la lista desplegable y no vuelve al tamaño original。 Uso Excel 2010。¿Solución？它反過來發生。單擊任何單元格會放大它，但不會放大下拉列表，並且不會恢復到原始大小。我使用 Excel 2010。解決方案？

拉傑普特

大約8個月前

#38047

網站主持人對此評論進行了最小化

我們可以為多個投遞箱做到這一點嗎？如果不是，那麼多個投遞箱的程序是什麼。

塞韋林

大約8個月前

#38243

網站主持人對此評論進行了最小化

Ale po zamknięciu pliku i ponownym go otwarciu to rozwiązanie już nie działa。

塞韋林塞韋林

大約8個月前

#38245

網站主持人對此評論進行了最小化

衝。 Trzeba zapisać plik z obsługą makra。

週曼迪塞韋林

大約8個月前

#38320

網站主持人對此評論進行了最小化

朋友你好，
你說的對。我們需要保存啟用宏的文件，這樣解決方案才能工作。祝你有美好的一天。

此致,
曼迪

即時報告

這裡還沒有評論

留下你的意見

以訪客身份發帖

登入

名稱（必填）

電子郵件（必填）

評價此帖子：

重設

0 字符

我同意附帶條約