- ©«¤l
- 45
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 73
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-12-13
- ³Ì«áµn¿ý
- 2024-7-17

|
¦^´_ 2# momo020608
¤Uz¤ù¬q¥\¯à¬OA¦C¥un¿é¤J¸ê®Æ,B¦C·|¦Û°Ê±a¥X¨t²Î®É¶¡
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Row
Case 60000: Target(-59998, 2).Select
End Select
If Target.Column = 1 Then
Target.Offset(0, 1) = Now
End If
End Sub
??¤£ª¾¹D¦p¦óקï |
|