ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

A.rar (16.67 KB)

¦^´_ 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

TOP

¦^´_ 2# dechiuan999


OK,§Ú¸Õ¬Ý¬Ý

ÁÂÁÂ

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD