±qªí³æTextbox¨ì¿é¤JÀx¦s®æªº®æ¦¡

h99949

¥ÎUserform¸ÌªºTextBox¿é¤J¸ê®Æ«á¡A
¦A·s¼W±N¸ê®Æ¶K¨ìÀx¦s®æ¸Ì¡A
¦ý¦p¦ó±NÀx¦s«áªº®æ¦¡§ï¬°¼Æ¦r??

dechiuan999

¦^´_ 1# h99949


    §A¦n¡G
½Ð¸Õ¸Õ¦p¤U
Private Sub CommandButton1_Click()

[A65536].End(3)(2, 1) = CInt(TextBox1)
[B65536].End(3)(2, 1) = CInt(TextBox2)
[C65536].End(3)(2, 1) = CInt(TextBox3)
[D65536].End(3)(2, 1) = CInt(TextBox4)
[E65536].End(3)(2, 1) = CInt(TextBox5)
[F65536].End(3)(2, 1) = CInt(TextBox6)
   
End Sub

h99949

¦^´_ 2# dechiuan999


OK,§Ú¸Õ¬Ý¬Ý

ÁÂÁÂ

GBKEE

¦^´_ 3# h99949

1. Dim AR()
   
2. Private Sub UserForm_Initialize()
   
3.     AR = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6)
   
4. End Sub
   
5. Private Sub CommandButton1_Click()
   
6.     With [A65536].End(3)(2, 1).Resize(1, UBound(AR) + 1)
   
7.     'With [A65536].End(xlUp).Cells(2, 1).Resize(1, UBound(AR) + 1)
   
8.         .Value = AR
   
9.         .Value = .Value  '¦ý¦p¦ó±NÀx¦s«áªº®æ¦¡§ï¬°¼Æ¦r??
   
10.     End With
    
11. End Sub

½Æ»s¥N½X