同一单元格的内容变化时，同一单元格自动加上日期

redsunsky1

求助各位大神帮忙！
A列、B列的某单元格，当每次录入内容时，原内容保持不变，在前或者后，自动加当时日期（）；目的方便查询对话的时效性、免去每次用Ctrol+;这个动作。我用了change 事件时，如果用target.value=target.value & now().只会不停死循环。

看看各位大神有没有好招，谢谢！

3190496160

Public r
Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 And T.Column < 4 Then
    If T.Count > 1 Then Exit Sub
    If T.Value = "" Then Exit Sub
    Application.EnableEvents = False
    T.Value = r & Chr(10) & T.Value & "   " & Now()
    Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal T As Range)
Application.ScreenUpdating = False
If T.Row > 1 And T.Column < 4 Then
    If T.Count > 1 Then Exit Sub
    If T.Value = "" Then Exit Sub
    r = T.Value
End If
Application.ScreenUpdating = True
End Sub

3190496160

单元格变化时自动加上时间.rar (14.39 KB, 下载次数: 6)

2020-3-12 10:56 上传

点击文件名下载附件

taller

参考代码

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     With Target
   
4.         If .Count = 1 And Len(.Value) > 0 Then
   
5.             If .Address = "$A$2" Or .Address = "$B$2" Then
   
6.                 With .Offset(0, 2)
   
7.                     .Value = .Value & Chr(10) & Date & Chr(32) & Target.Value
   
8.                 End With
   
9.             End If
   
10.         End If
    
11.     End With
    
12.     Application.EnableEvents = True
    
13. End Sub
    

复制代码

taller

建议改为A，B列输入，C，D列保存记录

taller

示例文件

单元格变化时自动加上时间.7z (14.42 KB, 下载次数: 3)

2020-3-12 13:00 上传

点击文件名下载附件

zss427607

版主 牛 学习中，vba使用 太广泛

redsunsky1

3190496160 发表于 2020-3-12 10:56
Public r
Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 And T.Column < 4 Then

谢谢帮忙，好像我刚才调试时，好像不成！是不是他在叠加信息时，需clear一次原来内容？

redsunsky1

taller 发表于 2020-3-12 12:59
参考代码

谢谢版主大大，因为在实际表格中，两者沟通记录界面已其他信息显示，所以加多两列后，相对就没有那么直观。

3190496160

redsunsky1 发表于 2020-3-13 14:14
谢谢帮忙，好像我刚才调试时，好像不成！是不是他在叠加信息时，需clear一次原来内容？

我测试是完全符合你的需求的，顺便提一可，每次看到别人对代码的反馈中用     好像   二字，都特别反感