- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28

|
2#
發表於 2010-7-22 23:16
| 只看該作者
把UserForm1換一下你的form名- Private Sub UserForm_Initialize()
- Application.WindowState = xlMaximized
- appWidth = Application.Width
- appHeight = Application.Height
- UserForm1.Top = 1
- UserForm1.Left = 1
- UserForm1.Width = Application.Width
- UserForm1.Height = Application.Height
- Application.Visible = False
- End Sub
- Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
- Application.Visible = True
- End Sub
複製代碼 |
|