EXCLE在B列输入一组数字,在A列则生成输入B列数字时的日期,要求日期不能随着系统时间变化而变化。
答案:2 mip版
解决时间 2021-02-26 06:08
- 提问者网友：时光易老
- 2021-02-25 09:38
EXCLE在B列输入一组数字,在A列则生成输入B列数字时的日期,要求日期不能随着系统时间变化而变化。
最佳答案
- 二级知识专家网友：绿小萝
- 2021-02-25 11:15
这个要用VBA编程的
全部回答
- 1楼网友：花落浅殇
- 2021-02-25 11:41
这个用单元格事件完成即可，跟什么整个表没关系，代码如下
此代码假定你前二行为表头行，从第三行开始输入有效，即B列从第三行开始输入时，自动在对应行A列输入当前日期
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Count = 1 And Target.Column = 2 Then
Target.Offset(0, -1) = Date
End If
End Sub
以下是自动输入当前日期和时间
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Count = 1 And Target.Column = 2 Then
Target.Offset(0, -1) = Now()
End If
End Sub
以下是自动输入当前时间（不含日期）
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Ro...这个用单元格事件完成即可，跟什么整个表没关系，代码如下
此代码假定你前二行为表头行，从第三行开始输入有效，即B列从第三行开始输入时，自动在对应行A列输入当前日期
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Count = 1 And Target.Column = 2 Then
Target.Offset(0, -1) = Date
End If
End Sub
以下是自动输入当前日期和时间
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Count = 1 And Target.Column = 2 Then
Target.Offset(0, -1) = Now()
End If
End Sub
以下是自动输入当前时间（不含日期）
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Count = 1 And Target.Column = 2 Then
Target.Offset(0, -1) = Format(Now(), "h:m:s")
End If
End Sub
以上代码都是写到你需要处理的表格对应的VBE编辑区内
我要举报
如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！
点此我要举报以上问答信息
推荐资讯