调整窗口大小

我正在调整Excel的窗口大小，以便它显示一定范围的单元格，如（B2：K20）。

是的，下面的代码有窗口大小的像素，这是因为我不知道如何使用单元格范围。 我对这里的VBA勇士深信不疑！

Sub win() With ActiveWindow .WindowState = xlNormal .Top = 0 .Left = 0 .Height = 400 .Width = 400 .DisplayGridlines = False .DisplayFormulas = False .DisplayGridlines = False .DisplayHeadings = False End With Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)" Application.DisplayFormulaBar = False ActiveWindow.DisplayWorkbookTabs = False End Sub 

Answer 1

一个select是缩放窗口只显示范围：

 Range("B2:K20").Select ActiveWindow.Zoom = True