麻辣家族討論版版 » Excel程式區 » 資料驗證-下拉式選單-字型大小問題

返回列表下一主題上一主題發帖

[發問] 資料驗證-下拉式選單-字型大小問題

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-9-13 19:49 | 顯示全部帖子

[發問] 資料驗證-下拉式選單-字型大小問題

Dear all,
是否可以使用VBA將在篩選過程中的字型放大呢？
不然篩選時，不易判讀(字太小)

謝謝各位先進！

樓主熱帖

收藏

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

2^#

發表於 2021-9-14 15:41 | 顯示全部帖子

回復 1# jsc0518

Dear all,

我在網路上有看到下列語法，是可以觸動下拉式選單該畫面會放大，但我想問是否可以指定在"某一欄位"
因此語法是我只要點該工作表任何一欄位時，它都會放大。

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

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 2021-9-15 20:06 | 顯示全部帖子

回復 3# samwang
Dear samwang,
太感謝您了，使用狀況就是我想要的，感恩！！

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

4^#

發表於 2021-9-16 07:31 | 顯示全部帖子

回復 3# samwang
Dear samwang,
早安您好！
請教兩個問題：
1.我想要在"指定的欄位"才會啟動放大的功能，要怎麼改呢？
2.假設我在 B1、F1、Z1都有下拉是選單，要怎麼改呢？
謝謝您！

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

5^#

發表於 2021-9-16 09:24 | 顯示全部帖子

回復 6# samwang
Dear samwang,
感謝您的熱心回覆與指導，這語法可以用且實用，謝謝您

Just do it.

靜思自在 : 能幹不幹，不如苦幹實幹。

返回列表下一主題上一主題