[已解决]求助，如何在A1输入任何值的时候，B1自动填写为当前时间

doudon2008

求助，如何在A1输入任何值的时候，B1自动填写为当前时间，格式为 X时X分。

最佳答案

月排行榜 / 总排行榜

redsheep

2012-12-21 16:09

2楼的公式应该不行吧,公式的话你输入下个单元格的话上一个就变动了,还是得用宏
我给你做了个
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Cells(Target.Row, 2).Value = WorksheetFunction.Text(Now(), "h时m分")
End Sub


或者你直接看附件也行
B列时间.zip (8.33 KB, 下载次数: 30)

2012-12-21 16:09 上传

点击文件名下载附件

跳转到最佳答案楼层

云影

=IF(A1="","",TEXT(NOW(),"h:mm:ss"))

doudon2008

云影 发表于 2012-12-21 14:14
=IF(A1="","",TEXT(NOW(),"h:mm:ss"))

貌似不行，当A2也输入的时候，B1，B2 的时间都变为B1的时间了。我是想 B1记录A1的时间，B2记录A2的时间

redsheep

2楼的公式应该不行吧,公式的话你输入下个单元格的话上一个就变动了,还是得用宏
我给你做了个
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Cells(Target.Row, 2).Value = WorksheetFunction.Text(Now(), "h时m分")
End Sub


或者你直接看附件也行
B列时间.zip (8.33 KB, 下载次数: 30)

2012-12-21 16:09 上传

点击文件名下载附件

doudon2008

redsheep 发表于 2012-12-21 16:09
2楼的公式应该不行吧,公式的话你输入下个单元格的话上一个就变动了,还是得用宏
我给你做了个
Private Sub ...

正解啊，谢谢帮忙

1528734650

妈呀，我是幼儿园小班的，不会用宏，大师们帮帮我。

1528734650

redsheep 发表于 2012-12-21 16:09
2楼的公式应该不行吧,公式的话你输入下个单元格的话上一个就变动了,还是得用宏
我给你做了个
Private Sub ...

redsheep 你好！你的“B列时间.zip”试了试，还行，怎么弄的，麻烦给个公式或怎么弄宏。谢谢！

1528734650

我怎么才能看到你做的宏呢？
谢谢

1528734650

B列时间.zip中的方式可用，咋整的！帮帮我！谢了！

1528734650

redsheep 大师你好！麻烦你在这文档上做6个时间自动输入，我回来复制上来就可以了，具体怎么做我再慢慢摸索，边学边弄了，急用的。先谢谢了。