请教：EXCEL中怎么在一个单元格输入内容时在另一个单元格自动输入日期

zylz9941

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1) = Date
End If
End Sub
已经实现Excel 在单元格A1输入内容之后，B1自动添加修改时间，请问如何实现清空a1内容，b1也自动为空白呢？

zylz9941

请大师们赐教，谢谢！

lsc900707

zylz9941 发表于 2019-5-27 18:13
请大师们赐教，谢谢！

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column = 1 Then
   
3.         If Len(Target) Then
   
4.             Target.Offset(0, 1) = Now
   
5.         Else
   
6.             Target.Offset(0, 1) = ""
   
7.         End If
   
8.     End If
   
9. End Sub

复制代码

zylz9941

lsc900707 发表于 2019-5-27 21:00

版主你好：插入行时提示“运行时错误'13',类型不匹配”，请问如何处理呢？

zylz9941

lsc900707 发表于 2019-5-27 21:00

版主你好：在A列按ctrl+enter批量输入和下拉快速填充也要提示“运行时错误'13',类型不匹配”，请问如何处理呢？

lsc900707

zylz9941 发表于 2019-5-28 10:07
版主你好：在A列按ctrl+enter批量输入和下拉快速填充也要提示“运行时错误'13',类型不匹配”，请问如何处 ...

如果仍要这样操作，那就加一句：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     On Error Resume Next
   
3.     If Target.Column = 1 Then
   
4.         If Len(Target) Then
   
5.             Target.Offset(0, 1) = Now
   
6.         Else
   
7.             Target.Offset(0, 1) = ""
   
8.         End If
   
9.     End If
   
10. End Sub
    

复制代码

zylz9941

lsc900707 发表于 2019-5-30 16:19
如果仍要这样操作，那就加一句：

虽然批量删除A列时B列不会自动清空，不过已经很不错了，谢谢版主。

无敌小猪猪

=IF(A11<>"",NOW(),"")

无敌小猪猪

我感觉还是用函数比较快

asdwzc12345

无敌小猪猪 发表于 2020-10-17 14:10
我感觉还是用函数比较快

你的这个,只要别的单元格发生改变也会改变的
函数是一起计算的