VBA编写当excel某单元格不为空时，如A1,则在A2生成一个改变时的当时时间。
3个回答
展开全部
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <= 1 Then
'选中的单元格是否只有一个，防止一次对多个单元格复制、删除等操作，容易导致失误
If Target.Column = 1 And Target.row = 1 and Trim(Target.Value) <> "" Then
'光标在第1行第1列，并且当前单元格的值不为空
Target.Offset(0, 1).Value = Now()
'将当前单元格右边单元格的数值设为当前系统时间
End If
End If
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
If Cells(i, 1) <> "" Then
Cells(i, 2) = Cells(i, 1)
Else
Cells(i, 2) = Time()
End If
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
留个邮箱，发给你！
追问
191887671
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
