Board logo

標題: [發問] 表單問題 [打印本頁]
作者: shadowming    時間: 2010-7-22 22:52     標題: 表單問題

各位先進
請問要怎麼讓vba表單大小跟使用者螢幕大小一樣?
還有我想要讓excel打開時，只看到表單，讓workbook隱藏起來
這樣要怎麼設定呢?
麻煩知道的人幫我解答一下
作者: kimbal    時間: 2010-7-22 23:16

把UserForm1換一下你的form名
  1. Private Sub UserForm_Initialize()
  2.     Application.WindowState = xlMaximized
  3.     appWidth = Application.Width
  4.     appHeight = Application.Height
  5.     UserForm1.Top = 1
  6.     UserForm1.Left = 1
  7.     UserForm1.Width = Application.Width
  8.     UserForm1.Height = Application.Height
  9.     Application.Visible = False
  10. End Sub

  12. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  13.     Application.Visible = True
  14. End Sub
複製代碼
作者: Hsieh    時間: 2010-7-23 00:04

以Application的大小位置為依據
  1. Private Sub UserForm_Initialize()
  2. With Application
  3. Me.Top = .Top
  4. Me.Left = .Left
  5. Me.Height = .Height
  6. Me.Width = .Width
  7. End With
  8. End Sub
複製代碼
作者: shadowming    時間: 2010-7-23 23:00

謝謝兩位版主的指導
更謝謝Hsieh版主對我最近發表的問題都幫我解答
非常感恩!!
作者: yangjie    時間: 2010-8-20 23:49

隱藏workbook之方法:
於VBAproject之Excel物件(Thisbook)內語法
Private Sub Workbook_Open()
    Application.Visible = False
    Call myForm1
End Sub
由Form1做螢幕畫面
作者: yanto913    時間: 2010-10-22 20:05

Call myForm1
應該是改成
   myForm1.Show



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)