ªð¦^¦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
Â^¨ú.JPG
2017-7-14 09:21

¦^´_ 1# gery
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Private Sub Worksheet_Calculate()
  3.     Dim xR As Range
  4.     If [B2] <> [B3] Then
  5.         [C2:D2].Insert
  6.         [C2] = [B2]
  7.         [d2] = Time
  8.     End If
  9.     If IsNumeric([d2]) And [d2] > 0 Then
  10.         Do While [D65536].End(xlUp) + #12:05:00 AM# < [d2]
  11.             [D65536].End(xlUp).Offset(, -1).Resize(, 2) = ""
  12.         Loop
  13.     End If
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

¦^´_ 2# GBKEE


   
Â^¨ú.JPG
2017-7-14 22:24


  ¤£ª¾¹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

¦^´_ 4# gery

¸Õ¸Õ¬Ý
    «O¯dx¤ÀÄÁ¤ºªº¸ê®Æ.zip (46.47 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE


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

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD