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

[µo°Ý] ·Q½Ð°Ý¯à¤£¯à«O¯d5¤ÀÄÁ¤ºªº¸ê®Æ

[µo°Ý] ·Q½Ð°Ý¯à¤£¯à«O¯d5¤ÀÄÁ¤ºªº¸ê®Æ

¦U¦ì«e½ú¦n
§Ú¥Î¤Fºô¸ô¤W¤j¤jªº¸ê®Æ
¥i¥H±o¥X¤@Äæ¥Í²£¶q ¸ò¤@Äæ ®É¶¡
¤£ª¾¹D§Ú¯à¤£¯à±±¨îÅã¥Ü¥X¤­¤ÀÄÁ¤ºªº¸ê®Æ
²{¦b§Ú¬O¥Î¥¨¶° Åý¥L¤­¤ÀÄÁ±q·s¶}©l¶ñ¼g
¦ý³oµ²ªG¤ñ¸û¤£²Å¦X§Ú·Q­nªº
³Â·Ð¦U¦ì¤j¤j¤F ÁÂÁÂ
  1. Private Sub Worksheet_Calculate()
  2. Dim xR As Range
  3. If [b2] <> [b3] Then
  4.   Set xR = [c65536].End(xlUp)(2)
  5.   xR = [b2]
  6.   xR(1, 2) = Time
  7.   [b3] = [b2]
  8. End If
  9. End Sub
½Æ»s¥N½X

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2017/7/15 05:44): ¤W¶ÇÀɮ׬ݬÝ

¦^´_ 2# GBKEE


   

  ¤£ª¾¹D­þ¸Ì¦³¤F°ÝÃD

TOP

¦^´_ 2# GBKEE
171.zip (122.68 KB)
G¤j Åý±z¨£¯º¤F §Ú³o¬O¤½¥q³nÅé·|¿é¥XDDE¸ê®Æ,¦bÁ`¦X¤À­¶ªºA1®æ
²{¦b¬O¥Î®É¶¡¥¨¶° ©w®É§R°£ ¦ý±o¤£¥X§Ú­nªº¬ö¿ýªü
³Â·ÐG¤jÀ°§Ú¬Ý¬Ý¤F

TOP

¦^´_ 5# GBKEE


   ¤Q¤À·PÁÂG¤j §¹¬üªº¦^µª¤F§Úªº°ÝÃD~ ¾Ç²ß¤F ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD