ªð¦^¦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 : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD