- ©«¤l
- 15
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-3-16
- ³Ì«áµn¿ý
- 2020-11-2
|
[µ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§Ú·Qnªº
³Â·Ð¦U¦ì¤j¤j¤F ÁÂÁÂ- Private Sub Worksheet_Calculate()
- Dim xR As Range
- If [b2] <> [b3] Then
- Set xR = [c65536].End(xlUp)(2)
- xR = [b2]
- xR(1, 2) = Time
- [b3] = [b2]
- End If
- End Sub
½Æ»s¥N½X
|
|