選択範囲を画面いっぱいに拡大して表示

 

Sub test()

    ' 選択範囲を画面いっぱいに拡大して表示


    Range("A1:D21").Select
    ActiveWindow.Zoom = True

 

End Sub

 

 

 

Sub test2()

    ' 元の状態に戻す


    ActiveWindow.Zoom = False

 

End Sub

 

 

 

 

実行結果

 

 

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事