level 2
大怪兽℉-
楼主
这个代码网上抄的，主要是记录数据，但是只能记录一行的，我想记录多行，比如7,10,15行的数据都得记录。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 5 Then Exit Sub
t = Now()
If Target.Comment Is Nothing Then
Target.AddComment.Text t & " " & IIf(Target = "", "清空", Target)
Else
Target.Comment.Text Target.Comment.Text & Chr(10) & t & " " & IIf(Target = "", "清空", Target)
End If
End Sub
2025年01月12日 11点01分
1
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row <> 5 Then Exit Sub
t = Now()
If Target.Comment Is Nothing Then
Target.AddComment.Text t & " " & IIf(Target = "", "清空", Target)
Else
Target.Comment.Text Target.Comment.Text & Chr(10) & t & " " & IIf(Target = "", "清空", Target)
End If
End Sub