ªð¦^¦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 : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD