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

[µo°Ý] ½Ð°ÝÀx¦s®æ®É¶¡®æ¦¡°ÝÃD

¦^´_ 1# lifedidi
  1. Private Sub CommandButton1_Click()
  2. With Sheet1
  3. Set a = .[A65536].End(xlUp).Offset(1, 0)
  4.    With a.Resize(, 3)
  5.      .Value = Array(TimeValue(TextBox1), TimeValue(TextBox2), TimeValue(TextBox3))
  6. End With
  7. End With
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD