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

¥H¤¤µØ¥Á°ê¤è¦¡¿é¤J¤é´Á

¥H¤¤µØ¥Á°ê¤è¦¡¿é¤J¤é´Á

¦U¦ì«e½ú§A­Ì¦n!
            «e½ú!!¤p§Ì·Q¥H¤¤µØ¥Á°ê¤è¦¡¿é¤J¥X¥Í¦~¤ë¤é
             ZZ = Application.InputBox("¿é¤J¤é´Á", "½Ð¿é¤J§Aªº¥X¥Í¦~¤ë¤é", "82/1/12", Type:=2)
             [A7] = Format(ZZ, "[$-404]e/m/d;@")
             ¦ý±o¨ìªºA7=71/1/12¤Ö11¦~½Ð°Ýµ{¦¡­n¦p¦ó¼g
             ¦A«h·í¤é´Á¶W¹L100¦~´NµLªk¥¿½TÅã¥Ü¤£ª¾¦³¦ó¤è¦¡¸Ñ¨M°ÝÃD,
             ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

¦^´_ 1# myleoyes


    ZZ = InputBox("¿é¤J¤é´Á", "½Ð¿é¤J§Aªº¥X¥Í¦~¤ë¤é", "82/1/12")
[A7] = CDate("R" & ZZ): [A7].NumberFormat = "[$-404]e/m/d;@"
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh
°¸¹³«e½ú!ÁÂÁÂ!!¬°¦ó¥X²{°õ¦æ¶¥¬q¿ù»~'13':«¬ºA¤£²Å¦X©O?
                ½Ð¦A³Â·Ð¤@¤UÁÂÁ¦A¤T!!

TOP

¦^´_ 3# myleoyes
½Ð½T»{INPUTBOX¿é¤J¤¤µØ¥Á°ê¤é´Á¡A¨Ã¥BZZÀ³«Å§i¬°String
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
°¸¹³«e½ú!ÁÂÁÂ!!µ{¦¡¨S°ÝÃD
       °ÝÃD¬O¬°¦ó¥¦¤£¯à¦bWin7ªº§@·~¨t²Î°õ¦æ©O?
       ¤]´N¬O»¡¤p§Ì¥ÎWin7ªº§@·~¨t²Î°t2007ªºExcel
       °õ¦æµ{¦¡®É·|¥X²{«¬ºA¤£²Å¦X
       ¦ý¦bWin-XPªº§@·~¨t²Î°t2007ªºExcel
       °õ¦æµ{¦¡¬OOK!!ªº
       ¦bVistaªº§@·~¨t²Î°t2007ªºExcel
       °õ¦æµ{¦¡¤]¬O¨S°ÝÃD?
       ¤½¥qªº¹q¸£»P¦P¨Æªº¹q¸£,µ§¹q¤]¬O¦P¼Ëµ²ªG
       ¤£ª¾¬°¦ó?½Ð«e½ú¦A¨¯­W,ÁÂÁ¦A¤T!!
       ½Ð¦³¬Ý¨ì¦¹½g¤å³¹ªº«e½ú!¥i§_¤]´ú¸Õ¤@¤U
       ¬O§_¤]¦³¬Û¦Pªº°ÝÃD©O?ÁÂÁ¤j®a

TOP

¦^´_ 5# myleoyes
­ì¦]¤£©ú¡A§ï¥Î¥H¤U¤è¦¡¸Õ¸Õ¬Ý
ZZ = InputBox("¿é¤J¤é´Á", "½Ð¿é¤J§Aªº¥X¥Í¦~¤ë¤é", "82/1/12")
a = Split(ZZ, "/")
a(0) = a(0) + 1911
[A7] = Join(a, "/")
[A7].NumberFormat = "e/m/d"
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh
°¸¹³«e½ú!¨¯­W§AÅo!ÁÂÁ¦A¤T!!

TOP

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!!³o¼Ëªº¤é´Á§ÎºAµ{¦¡µLªk¤U©Ô
  Sub ¤é´Á()
      ZZ = InputBox("¿é¤J¤é´Á", "½Ð¿é¤J¤é´Á", "101/12/30")
      If ZZ = 0 Or ZZ = "" Then End
      A = Split(ZZ, "/")
      A(0) = A(0) + 1911
      [B3] = Join(a, "/")
      [B3].NumberFormat = "e/m/d"
      [B3] = Format(ZZ, "[$-404]e/m/d")
      [B3] = ZZ
      Range("B3:B" & [a152].End(3).Row).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlYear, Step:=1
      [B:B].EntireColumn.AutoFit
End Sub
      µ{¦¡¼g¥Xªº[B3] =101/12/30
      ¦ÓB4=102/12/30 ¤½¦¡B4=EDATE(B3,12)³o¼Ë¬O¿ù»~­È
      ½Ð°Ý³o¨â­Ó°ÝÃD µ{¦¡»P¤½¦¡­n¦p¦ó°µ¦n?
      ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

TOP

¦^´_ 8# myleoyes
  1. Sub ¤é´Á()
  2. ZZ = InputBox("¿é¤J¤é´Á", "½Ð¿é¤J¤é´Á", "101/12/30")
  3. If ZZ = 0 Or ZZ = "" Then End
  4. a = Split(ZZ, "/")
  5. a(0) = a(0) + 1911
  6. [B3] = Join(a, "/")
  7. [B3].NumberFormat = "e/m/d"
  8. Range("B3:B" & [A152].End(3)).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=1
  9. [B:B].EntireColumn.AutoFit
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# register313
«e½ú! ÁÂÁÂ!!
         ­ì¨Ó!­ìµ{¦¡¬O¦hÅo!³o¨â¦æ
                  [B3] = Format(ZZ, "[$-404]e/m/d")
                  [B3] = ZZ
         ¦Ó«e½ú! ªº³o¦æ¦³»~
         Range("B3:B" & [A152].End(3)).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=1
         À³¸Ó¬O³o¼Ë
        Range("B3:B" & [a152].End(3).Row).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlYear, Step:=1
         ÁÂÁ¦A¤T!!

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD