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