Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then Target.AddComment Target.Comment.Text Text:="??:" & Chr(10) & Date & " " & Time End If End Sub
第3个回答 2010-03-29
这个问题只能通过VBA解决,用VBA说起来很简单:
Private Sub Worksheet_Change(ByVal Target As Range) Range("A1") = "截止日期:" & Now() End Sub本回答被提问者采纳