日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

在Excel VBA中，如果需要改變Excel窗口大小以方便用戶的操作，可通過VBA設(shè)置窗口的高度和寬度改變Excel窗口大小。Excel2003可通過VBA宏改變Excel窗口大小。

改變Excel窗口大小的方法：

首先按“Alt+F11”組合鍵，Excel2003打開代碼編輯器，單擊“插入”菜單-“模塊”，雙擊插入的模塊，在右側(cè)的代碼窗口中輸入：
Sub Excel_Partner()
Dim myWState As Long, myWidth As Double, myHeight As Double
With Application
myWState = .WindowState ‘獲取當前的窗口狀態(tài)
.WindowState = xlNormal ‘將窗口設(shè)置為一般顯示
myWidth = .Width ‘獲取當前窗口的寬度
myHeight = .Height ‘獲取當前窗口的高度
.Width = myWidth+100 ‘設(shè)定窗口的寬度
.Height = 300 ‘設(shè)定窗口的高度
If MsgBox("Excel窗口已經(jīng)改變!" & vbCrLf & "要恢復(fù)為原來的狀態(tài)嗎?", _
vbQuestion + vbYesNo) = vbNo Then Exit Sub
.Width = myWidth ‘恢復(fù)窗口的寬度
.Height = myHeight ‘恢復(fù)窗口的高度
.WindowState = myWState ‘恢復(fù)窗口的顯示狀態(tài)
End With
End Sub

按F5運行鍵運行程序，即可改變Excel窗口大小。