GBKEE

¦^´_ 1# mobo

1. Option Explicit
   
2. Dim Ar()
   
3. Private Sub CommandButton1_Click()
   
4.     Dim E As Variant, i As Integer
   
5.     [A1].Resize(, UBound(Ar) + 1) = Ar
   
6.     For i = 1 To UBound(Ar) + 1
   
7.         Cells(2, i) = Ar(i - 1)
   
8.     Next
   
9. End Sub
   
10. Private Sub UserForm_Initialize()
    
11.     Dim E As MSForms.Control, i As Integer
    
12.     For Each E In Controls
    
13.         If TypeName(E) = "TextBox" Then
    
14.             ReDim Preserve Ar(i)
    
15.             Set Ar(i) = E
    
16.             i = i + 1
    
17.         End If
    
18.     Next
    
19. End Sub

½Æ»s¥N½X