设置excel表格中A列为日期列，在任何一行输入信息时其对应A列显示输入时的日期，请问怎样能够达到啊？
发布网友
发布时间：2022-05-19 10:59
我来回答
共2个回答
热心网友
时间：2023-10-11 01:08
据我的理解，这个需要编写vba脚本，响应单元格change事件，当键入数据时，自动根据上一行A列的日期来填写数据：
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A" & Target.Row) = "" And Target.Row > 1 Then
Range("A" & Target.Row) = Range("A" & Target.Row - 1)
End If
End Sub
追问5号照您的方法做是可行的，今天又不行了，我重新复制了一次您写的数据，可是没有效果啊。
追答
不知道你说的是什么情况下没有效果？
上面的代码里，当键入数据时，会自动根据 “上一行” A列的日期来填写数据，这里有个小前提就是这个“上一行”不能是空的，对此，我把代码又稍稍修改了下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A" & Target.Row) = "" And Target.Row > 1 Then
LastRow = Cells(Target.Row, 1).End(xlUp).Row '新添加的代码
Range("A" & Target.Row) = Range("A" & LastRow)
End If
End Sub
热心网友
时间：2023-10-11 01:09
Alt+F11 粘贴以下内容:
Private Sub Worksheet_Change(ByVal Target As Range)
if target.column >1 then cells(target.row,1)=date
End Sub
EXCEL中在A列输入字符,在B列显示A列中的字符输入的当前日期时间
这个是因为本身NOW函数是根据计算机系统内的时间变化的，是可变的，TODAY 函数也是一样的，可变，两者的区别是一个可以记录到时间段，一个只显示日期没有输入具体时间。可以使用VBA函数解决 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 Or Target.Column = 3 Then Cells(...
EXCEL中在A列输入字符,在B列显示A列中的字符输入的当前日期时间
NOW()是当前日期时间，会随时变化。可用快捷键在B列输入日期和时间。日期：Ctrl+ ;时间：Ctrl+shift+ ;中间可输入一个空格。
WPS如何在同一行ABCD任意一个单元格输入内容,E单元格自动输入当前日期...
Step1：使用WPS打开表格文件，在表格中在A1单元格中输入文字“内容”（具体根据你的实际情况命名，这里只是举例），在B1单元格输入文字“时间”，A列的单元格就是以后输入项，B列对应的单元格就会显示时间。Step2：接着点击 “文件”，出现下拉选项。在下拉选项中选择点击“选项”。进入选项界面，在侧边...
excel 设置如果我在A1输入任意数字则在B1显示当前时间日期
首先：要启动迭次运算，设置-公式-启用迭代计算 其次，在B列输入公式：=IF(A1="","",IF(B1<>"",B1,TEXT(NOW(),"yyyy-mm-dd hh:mm:ss")))然后你再A列输入内容的时候就可以记录时间了 不过最好还是建议用VBA获取，因为公式其实是不稳定的。公式的执行条件是对监视单元格的“非空”判断，...
在excel中我想在A列输入内容时B列出现输入内容时的当时时间,怎么做啊...
按下Alt+F11，粘贴如下内容：Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 Then Target.Offset(0, 1) = Now()End Sub 关闭窗口即可。
如何在excel表格中实现一列输入内容另一列自动显示内容
1、打开需要操作的EXCEL表格，在目标单元格中输入公式=IFERROR(VLOOKUP(A2,$D$3:$E$6,2,0),"")。【函数说明，其中$D$3:$E$6是需要查找的表格对照区域绝对引用，2表示返回D列后一列的内容。VLOOKUP(A2,$D$3:$E$6,2,0)，表示A2编号从D列查找对应的编号，相同则返回E列的内容，最后0...
EXCEL中在一个单元格输入内容时在另一个单元格自动输入日期,并且日期...
3、最简单的是在需要日期的单元格上按住ctrl再按；（即ctrl+；）建议用后2种办法 附上代码 工具-》宏-》 vb编辑器-》双击左侧树型目录的sheet1，然后在右侧代码区复制一下内容。假设A列输入，B列显示日期 Private Sub Worksheet_Change(ByVal Target As Range)Dim iRow As Integer Dim iCol As ...
在excel 2007怎么设置A列自动显示当天的日期?
ctrl+分号。因为就算你用了一个公式，在BCDEF等列填写内容的时候就在A列显示当天日期，也得用到today（）这个公式，而这个公式的显示结果是不固定的，1号打开表，显示的就是1号，2号打开表显示的就是2号。所以还不如直接用快捷键填当天日期呢。另外，ctrl+shift+分号，是填写当前时间的意思。
excel输入内容后在另一个单元格自动生成当前日期,
1、假设列A是输入数据区域;B列是显示日期区域。2、我们首先将B列设置为日期格式。选定日期区域，B2：B10。3、在“开始”选项的数字组中;单击“格式”下拉按钮以在弹出菜单中显示长日期。4、然后，也可以按下CTRL+1，打开用于设置单元格格式的对话框，并将此字段设置为日期格式。5、现在B2：B10已经...
excel表格中,我要在当A1输入内容时,则b1自动填充当天的日期
Excel 内 右键 点工作表 名字--查看代码,如下代码 复制进去，存为启用宏的工作薄，启用宏可使用：Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 1 Then '如果当前编辑单元格在第1列 A列 If Target <> "" Then Target.Offset(0...
