调整窗口大小以设置范围而不缩放

VBA向导！ 我正在调整excel的窗口大小，只显示单元格（B2：K20），而不必使用“缩放”。 我想缩放比例以保持100％。

Sub win() With ActiveWindow .WindowState = xlNormal .Top = 0 .Left = 0 .Height = 400 .Width = 400 end with end sub 

Answer 1

为什么不隐藏你不需要的一切？ 这将使您的“缩放”保持在100％，同时让用户只关注您希望他们看到的单元格。

 'Hide All columns from L to end: Range(Range("L1"), Cells(1, Columns.Count)).EntireColumn.Hidden = True 'Hide All rows from 21 to end: Range(Range("B21"), Cells(Rows.Count, 2)).EntireRow.Hidden = True 'Hide Row 1: Range("A1").EntireRow.Hidden = True 'Hide Column A: Range("A1").EntireColumn.Hidden = True