[µo°Ý] ¦bªí³æ¦p¦ó«Ø¥ßª«¥óªº¯x°}

mobo

½Ð°Ý¦U¦ì¤j¤j,
   §Ú¦bªí³æ³]­p¤W¡A¦p¦ó«Ø¥ßª«¥óªº¯x°}©O?
   ¦p : §Ú»Ý­n«Ø¥ß 10 ­Ó TextBox ¡A¦p¦óÅý³o10­ÓTextBox Åܦ¨¯x°}¡A¥H¤è«KŪ¼g

·PÁÂ

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

kimbal

¦^´_ 1# mobo


§Aªº·N«ä¬O§_³o¼Ë?

¤U¸ü (124.14 KB)

2012-12-22 10:57

®ÄªG («ö¨ä¤¤¤@button)

¤U¸ü (22.27 KB)

2012-12-22 10:58

1. Private Sub CommandButton1_Click()
   
2.     For i = 0 To 9
   
3.         If TypeName(Me.Controls(i)) = "TextBox" Then
   
4.             Me.Controls(i) = i + 1
   
5.         End If
   
6.     Next
   
7. End Sub
   
8. 
   
9. Private Sub CommandButton2_Click()
   
10.     For i = 1 To 10
    
11.         Me.Controls("textbox" & Trim(Str(i))) = i
    
12.     Next
    
13. End Sub

½Æ»s¥N½X