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

[µo°Ý] ½Ð°Ý¦U¦ì¤j¤j!

¦^´_ 3# koiiven
Range("H5").Offset(s, 0).Resize(j, 1).Select   '·|¿ï¾ÜH8¨ìH10   ¸Ó¦p¦ó­×§ï¤~¯à¿ï¾ÜH5¨ìH7©O?
Range("H5").Resize(j, 1).Select  ¬O³o¼Ë¶Ü?

TOP

¦^´_ 7# koiiven
ActiveCell= DateSerial( i, j, k)

TOP

¦^´_ 9# koiiven
  1. With ActiveCell
  2.     .Value = DateSerial(i, j, k)
  3.     .NumberFormatLocal = "[$-404]e""¦~""m""¤ë""d""¤é"";@"
  4. End With
½Æ»s¥N½X

TOP

¦^´_ 11# koiiven
¶Ç¤Wµ{¦¡½X¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD