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

¥i¤£¥i¥H¿é¤J»Ý­nªº¼Æ¦r½d³ò¦Û°Ê²£¥X

¦^´_ 3# yueh0720
  1. Sub Ex()
  2. Dim t&
  3. [C2:C65536] = ""
  4. [C2] = InputBox("°_©l½X")
  5. t = InputBox("µ²§ô­È")
  6. [C2].Resize(t - [C2] + 1).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
  7.         Step:=1, Trend:=False
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD