excel中在A1中输入一个数字后在A2中自动插入系统时间并不随时间变化
3个回答
展开全部
右键SHEET1
复制下列代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
Target.Offset(0, 1) = Date
End If
End Sub
注意:在VBA代码中,Date、Now、Time分别表示系统日期、日期及时间.
If Target.Column = 7 Then 表示: 在第7列输入后,第8列自动出现日期,根据实际情况修改即可。
复制下列代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
Target.Offset(0, 1) = Date
End If
End Sub
注意:在VBA代码中,Date、Now、Time分别表示系统日期、日期及时间.
If Target.Column = 7 Then 表示: 在第7列输入后,第8列自动出现日期,根据实际情况修改即可。
参考资料: http://zhidao.baidu.com/question/245453088.html
展开全部
函数是做不到这个的,要用VBA
假如要在sheet1中实现这个功能
ALT+F11,双击右边工程资源窗口中的sheet1
左边空白处输入代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
Sheet1.Cells(2, Target.Column) = Now
End If
End Sub
当第一行数据任意行数据发生改变,第二行对应列自动记录改变的时间
Target.Column 和Target.Row可以根据你的要求修改
假如要在sheet1中实现这个功能
ALT+F11,双击右边工程资源窗口中的sheet1
左边空白处输入代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
Sheet1.Cells(2, Target.Column) = Now
End If
End Sub
当第一行数据任意行数据发生改变,第二行对应列自动记录改变的时间
Target.Column 和Target.Row可以根据你的要求修改
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=if(A1,now(),)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询