|
|
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR
If Target.Column = 1 Then
If Target.Offset(0, 1).Value = "" Then Target.Offset(0, 1).Value = Now()
End If
Exit Sub
ERR:
End Sub
我分别有13‘16‘20‘23‘27‘30‘33‘36列的输入则对应的14、17、21、24、28、31、35、37列则显示日期
VBA代码如何修改，一次到位的 |
|
