ªð¦^¦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 : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD