excel中教大家使用vba去控制窗體大小

小編致力于為大家奉獻最有效的經驗，讓大家能夠解決掉問題，但是大家也都知道，每個人遇到的情況都是不一樣的，大家在看小編經驗的同時，除了跟隨操作，也需要自己的思考，舉一反三的解決問題，這樣才會變得更加有內涵，成為和小編一樣的經驗達人。excel中教大家使用vba去控制窗體大小，這里，讓小編給大家介紹一下。

工具/原料

excel2016
此經驗本人原創首發，未經本人許可請勿轉載。

方法/步驟

1
首先我們打開一個工作樣表作為例子。
2
使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：
Sub SheetGradualGrow()
Dim x As Integer
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = 50
.Width = 50
For x = 50 To Application.UsableHeight
.Height = x
Next x
For x = 50 To Application.UsableWidth
.Width = x
Next x
.WindowState = xlMaximized
End With
End Sub
3
因為所有額對象都是激活當前的窗口，所以我們在這里首先使用with函數來標準化代碼，格式是在with空格后寫下對象名稱，以下的對象屬性或方法皆以.開始輸入。
4
現在設置excel工作薄的工作窗口為正常模式，即不為最大化，也不為最小小化。然后設置窗口的坐標為top=1，left=1，即為屏幕最左上方（1,1）的位置。
5
將窗口大小設置為高height=50，寬width=50，大概窗體的大小是這樣的。
6
接著我們使用循環語句將高寬累加，并在excel中進行顯示更新，其終止值為UsableHeight和UsableWidth，即為普通窗口能夠達到的最大尺寸。
7
最后我們直接將窗體的大小以屬性.WindowState = xlMaximized，將窗體最后設置為最大化，當運行這個過程時，excel工作窗口會逐漸變大，最終以最大化后結束過程。
8
先寫到這里了，謝謝大家的觀看。
祝大家生活愉快。
小編還有許多其他的經驗可以觀看，如果無法解決問題可以聯系小編進行咨詢。
看不清楚圖片的可以點擊放大再看哦。