Excel VBA代碼強制某個縮放級別

我在Excel中有一個驗證的下拉列表，如果縮放比例小於100是無法讀取的。我在互聯網上檢查並且發現我無法改變驗證列表文本大小的大小所以我想執行的100Excel VBA代碼強制某個縮放級別

一組變焦我的代碼要做到這一點，如下所示

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    ActiveWindow.Zoom = 100 
End Sub

這工作，並罰款誰使用變焦不到100人，但如果人們使用大於100的縮放會將縮放限制爲100.有沒有辦法解決這個問題，這是沿着If-Else語句的方向。

如果變焦小於100則變焦= 100 否則，如果變焦大於100無能爲力

感謝。

2012-01-30 Ckeane

你回答了自己的問題：「如果變焦小於100則變焦= 100」'如果ActiveWindow.Zoom <100然後ActiveWindow.Zoom = 100' – 2012-01-30 10:31:39

我已經爲零件回答了它，如果它小於100，則將縮放比例增加到100，如果用戶將縮放比例設置爲110，例如縮放比例將變爲100被點擊。我不希望發生這種情況，如果視圖是110，那麼它應該保持在這個水平。目前情況並非如此。 – Ckeane 2012-01-30 10:59:29

'如果ActiveWindow.Zoom <100那麼ActiveWindow.Zoom = 100'意味着「別無所求」。 – 2012-01-30 11:16:29

If (ActiveWindow.Zoom < 100) Then 

    ActiveWindow.Zoom = 100 

End If

2012-01-30 10:13:15 Steven

這裏是一個一行會做同樣的事情：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    ActiveWindow.Zoom = Application.Max(ActiveWindow.Zoom, 100) 
End Sub

2012-01-30 15:31:35 JimmyPena

回答