stillfish00

¦^´_ 3# apao2000

¥i§_°õ¦æ¥¨¶°®É¡A¥u¶}±Òuserform¦Ó¤£Åã¥Üworkbook©O?

¥i¦bForm¤¤³o¼Ë¥[

1. Private Sub UserForm_Initialize()
   
2.   ThisWorkbook.IsAddin = True
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_Terminate()
   
6.   ThisWorkbook.IsAddin = False
   
7. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 4# stillfish00

1. Private Sub TextBox1_Change()
   
2.   ThisWorkbook.Sheets(1).[A1].Value = TextBox1.Value
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_Initialize()
   
6.   ThisWorkbook.IsAddin = True
   
7.   TextBox1.Value = ThisWorkbook.Sheets(1).[A1].Value
   
8. End Sub
   
9. 
   
10. Private Sub UserForm_Terminate()
    
11.   ThisWorkbook.IsAddin = False
    
12.   'Unload Me
    
13. End Sub

½Æ»s¥N½X