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

zylz9941

请教：EXCEL中怎么在一个单元格输入内容时在另一个单元格自动输入日期
http://club.excelhome.net/thread-1479419-1-1.html
(出处: ExcelHome技术论坛)

zylz9941

之前放错板块了，请老师们帮帮忙，谢谢。

lsc900707

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

请高手们赐教哟

zylz9941

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

但是如果插入行、删除行、在A列按ctrl+enter批量输入数据、下拉快速填充、批量清空A列数据都会提示“运行时错误“13”,类型不匹配”
应该是增加了以下代码后才出现了提示，本人是小白，请老师赐教，谢谢。
Else
            Target.Offset(0, 1) = ""
        End If

lsc900707

zylz9941 发表于 2019-5-28 23:04
但是如果插入行、删除行、在A列按ctrl+enter批量输入数据、下拉快速填充、批量清空A列数据都会提示“运行 ...

如果要这样操作，建议不要使用工作表事件。

zylz9941

lsc900707 发表于 2019-5-29 06:27
如果要这样操作，建议不要使用工作表事件。

版主：由于多种原因暂时只能这样操作，能不能麻烦您帮忙解决一下呢？

chenxiaobo99

lsc900707 发表于 2019-5-29 06:27
如果要这样操作，建议不要使用工作表事件。

我也是有这种需求，在第一列输入数据，后面指定列自动填入输入时间，请大神帮忙

ggmmlol

chenxiaobo99 发表于 2020-10-16 09:09
我也是有这种需求，在第一列输入数据，后面指定列自动填入输入时间，请大神帮忙

加载宏系列小工具 【单元格】小工具之五：时间戳
http://club.excelhome.net/thread-1393812-1-1.html
(出处: ExcelHome技术论坛)