GBKEE

¦^´_ 3# owen9399
¬Ý¤£À´§Aªº±Ô­z,§ì¤£µÛÀYºü.

GBKEE

¦^´_ 8# owen9399
ÁÙ¬O¤£¤F¸Ñ§Aªº¶D¨D.
¨D ¦U[§Ç¸¹,¤½¥q¦WºÙ,¬ö©À«~] ªº®w¦s??
¨D ¦U[§Ç¸¹,¤½¥q¦WºÙ,¬ö©À«~] ¾ÚÂI®tÃB ??
¨D ¦U¤u§@ªíªº­pºâ ??
¥ý«á¶¶§Ç(¤£ª¾¦p¦ó¤U¤â) ???

GBKEE

¦^´_ 12# owen9399

1. '¶i³f¿é¤J
   
2. Option Explicit
   
3. Dim Text_Ar(1 To 5)
   
4. Private Sub UserForm_Initialize()
   
5.     Dim I As Integer
   
6.     For I = 1 To 5
   
7.      Set Text_Ar(I) = Me.Controls("TEXTBOX" & I)
   
8.     Next
   
9. End Sub
   
10. Private Sub CommandButton1_Click()  '¿é¤J
    
11.     With ActiveSheet
    
12.         With .Range("A" & .Rows.Count).End(xlUp).Offset(1)
    
13.             .Resize(1, 5) = Text_Ar
    
14.         End With
    
15.     End With
    
16. End Sub
    
17. Private Sub CommandButton2_Click()  '²M°£
    
18.     Dim I As Integer
    
19.      For I = 1 To 5
    
20.       Text_Ar(I).Text = ""
    
21.     Next
    
22. End Sub
    
23. Private Sub CommandButton3_Click()
    
24.     Unload Me    '°h¥X
    
25. End Sub

½Æ»s¥N½X