Excelの特定のズームレベルを強制するVBAコード

ズームが100未満の場合、Excelでドロップダウンリストを確認できません。ので、私はこれが動作し、100未満のズームを使用する人々のための罰金ですExcelの特定のズームレベルを強制する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' –

私はそれが100未満の場合、私が立ち往生している場所に100未満の場合、ユーザーがズームを110に設定するとズームが100になるをクリックします。私はこれが起こることを望んでいない、ビューが110ならそれはそのレベルに留まるべきだ。これは現在のコードとは異なります。 – Ckeane

'ActiveWindow.Zoom <100ならばActiveWindow.Zoom = 100'は「else do nothing」を意味します。 –

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

答えて