[µo°Ý] ªí³æ°ÝÃD

shadowming

¦U¦ì¥ý¶i
½Ð°Ý­n«ç»òÅývbaªí³æ¤j¤p¸ò¨Ï¥ÎªÌ¿Ã¹õ¤j¤p¤@¼Ë?
ÁÙ¦³§Ú·Q­nÅýexcel¥´¶}®É¡A¥u¬Ý¨ìªí³æ¡AÅýworkbookÁôÂð_¨Ó
³o¼Ë­n«ç»ò³]©w©O?
³Â·Ðª¾¹Dªº¤HÀ°§Ú¸Ñµª¤@¤U

yanto913

Call myForm1
À³¸Ó¬O§ï¦¨
   myForm1.Show

yangjie

ÁôÂÃworkbook¤§¤èªk:
©óVBAproject¤§Excelª«¥ó(Thisbook)¤º»yªk
Private Sub Workbook_Open()
    Application.Visible = False
    Call myForm1
End Sub
¥ÑForm1°µ¿Ã¹õµe­±

shadowming

ÁÂÁ¨â¦ìª©¥Dªº«ü¾É
§óÁÂÁÂHsiehª©¥D¹ï§Ú³Ìªñµoªíªº°ÝÃD³£À°§Ú¸Ñµª
«D±`·P®¦!!

Hsieh

¥HApplicationªº¤j¤p¦ì¸m¬°¨Ì¾Ú

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

½Æ»s¥N½X

kimbal

§âUserForm1´«¤@¤U§Aªºform¦W

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
    
11. 
    
12. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
13.     Application.Visible = True
    
14. End Sub

½Æ»s¥N½X