vba怎么限定工作簿窗口大小

1、打开Excel，在开发工具栏里点击Visual Basic。

2、在Visual Basic里插入一个新模块，创建一个sub过程。

3、在sub过程中输入：

Dim sngwidth As Single, sngheight As Single

Dim rngview As Range

Set rngview = Range("a1:i9") 

With ActiveWindow

.DisplayHeadings = False

.DisplayHorizontalScrollBar = False

.DisplayVerticalScrollBar = False

.DisplayWorkbookTabs = False

.WindowState = xlNormal 

sngwidth = .Width - .UsableWidth

sngheight = .Height - .UsableHeight 

.Width = rngview.Width + sngwidth

.Height = rngview.Height + sngheight

.ScrollRow = 1 

.ScrollColumn = 1 

.ActiveSheet.ScrollArea = rngview.Address 

.EnableResize = False 

End With

Set rngview = Nothing 

点击运行可以显示一个a1：i9区域窗口。