Note: The other languages of the website are Google-translated. Back to English

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

doc增加字體大小下拉列表1

下拉列表是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 天退款保證。
kte選項卡201905

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

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (27)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
因此,此代碼使整個工作表縮放,而不僅僅是下拉框。 它還說“無法保存......在禁用宏的工作簿中的 VB 項目”。 等等等等等等。 如果我必須在地獄的半英畝土地上尋找完整的答案才能得到這個問題的完整答案,這不是答案。
網站主持人對此評論進行了最小化
[quote]因此,此代碼使整個工作表縮放,而不僅僅是下拉框。 它還說“無法保存......在禁用宏的工作簿中的 VB 項目”。 等等等等等等。 如果我必須在地獄的半英畝土地上尋找完整的答案才能得到這個問題的完整答案,這不是答案。邁克爾[/quote] 只需將工作簿另存為 xlsm 並再次按照步驟操作。 順便說一句,我試過了,它根本不適合我; 縮放仍為 100%。
網站主持人對此評論進行了最小化
我正在運行 Office 2016 並使用下拉框。 我嘗試了“使用 VBA 代碼增加下拉列表字體大小以放大縮放”,但它不起作用。 我還應該做些什麼來讓它發揮作用嗎? 謝謝!
網站主持人對此評論進行了最小化
如指示所示,您必須將縮放從“100”更改為“130”或其他縮放以查看任何更改。 但是,第一條評論是準確的,因為它不僅更改了下拉菜單,而且一旦您單擊單元格,它將整個工作表縮放 1% 以放大該單元格。 不是很有幫助,因為那樣你每次都必須縮小。
網站主持人對此評論進行了最小化
或在工作簿中選擇一個備用單元格以將其返回到 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
網站主持人對此評論進行了最小化
嗨,只是想知道為什麼這個功能在文件保存並重新打開後消失了?
網站主持人對此評論進行了最小化
嗨,Noel,您應該將 Excel 文件保存為 Excel 啟用宏的工作簿格式。
網站主持人對此評論進行了最小化
Dzięki za podpowiedź
網站主持人對此評論進行了最小化
謝謝,效果很好
網站主持人對此評論進行了最小化
這對我不起作用。 我按照指示粘貼了文本。 當我點擊下拉菜單時,字體大小是相同的。 然後當我點擊不同的單元格時,整個電子表格的大小可能增加了 30%。 如果可能的話,真的很想解決
網站主持人對此評論進行了最小化
使用此代碼後,我無法在 Excel 上使用返回鍵。 如何編碼(安裝)返回鍵?
網站主持人對此評論進行了最小化
這會將整個工作表縮放到 130%
如何只增加下拉菜單?
網站主持人對此評論進行了最小化
你好,戴夫,
為了只增加下拉菜單,這裡有一個解決方法。

首先,在工作表中插入下拉列表後,您應該插入一個組合框(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

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

請嘗試一下,希望對您有所幫助!
網站主持人對此評論進行了最小化
天才! 謝謝天陽! 非常感謝你的方法! 奇蹟般有效!
網站主持人對此評論進行了最小化
你能逐步解釋一下傻瓜嗎?
網站主持人對此評論進行了最小化
你好,伊塔洛,
1. 在工作表中插入您需要的下拉列表;
2.然後通過點擊Developer > Insert > Combo Box (ActiveX Controls) 插入一個Combo Box (ActiveX Controls),然後拖動鼠標繪製一個Combo Box對象;
3.然後,右鍵單擊您當前使用的工作表,選擇查看代碼,並將上述代碼粘貼到模塊中;
4. 最後,單擊“開發人員”選項卡下的“設計模式”將其禁用。
5. 現在,當您單擊下拉列表單元格時,將顯示一個組合框,並且下拉菜單中的字體大小可以根據需要增加。
請嘗試,希望對您有所幫助!
網站主持人對此評論進行了最小化
如何將此字體更改大小僅應用於一列? 我有幾列帶有下拉框,我只想要一個特定的列來更改字體大小?
網站主持人對此評論進行了最小化
嗨,只是問題我已將代碼粘貼到空白模塊窗口(右鍵單擊查看代碼)。 一旦我保存,功能就很好。 但是當我關閉文件並重新打開它時,代碼消失了,下拉列表不再放大。 我可以知道如何設置為永久使用嗎?
網站主持人對此評論進行了最小化
你好,艾斯,
要保存代碼,您應該將 Excel 文件保存為 Excel 啟用宏的工作簿格式。 請嘗試一下。
網站主持人對此評論進行了最小化
我有多個下拉菜單,只需要一個更大的,因為其餘的是是/否。 但是您共享的代碼正在為所有人執行此操作。 我如何僅將其僅用於一個下拉菜單?
網站主持人對此評論進行了最小化
你好,伊馮娜
要將代碼僅應用於一個單元格,以下代碼可能會對您有所幫助:(備註:在代碼中,更改單元格 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

請嘗試,希望對您有所幫助!
網站主持人對此評論進行了最小化
感謝您提供在下拉框中縮放字體大小的提示。 它成功了。
網站主持人對此評論進行了最小化
經常發生。 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。解決方案?
網站主持人對此評論進行了最小化
我們可以為多個投遞箱做到這一點嗎? 如果不是,那麼多個投遞箱的程序是什麼。
網站主持人對此評論進行了最小化
Ale po zamknięciu pliku i ponownym go otwarciu to rozwiązanie już nie działa。
網站主持人對此評論進行了最小化
衝。 Trzeba zapisać plik z obsługą makra。
網站主持人對此評論進行了最小化
朋友你好,
你說的對。 我們需要保存啟用宏的文件,這樣解決方案才能工作。 祝你有美好的一天。

此致,
曼迪
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護