Question

excel表格中怎样让输入的时间与电脑时间同步！

excel表格中怎样让输入的时间与电脑时间同步！例：在Excel表格中输入20:15:12让秒自动增加。求一宏代码……

Answer 1

1、首先打开Excel2016，选定一个单元格，如果输入日期，可以输入“2018-1-9”。

2、当你一回车，日期格式立马由“2018-1-9”变为“2018/1/9”，这是Excel默认的格式

3、如果想改成其他格式，则可以在菜单栏上选择，有“长日期”和“短日期”两种选择方式。

4、如果想改成更多的其他地区的格式等，可以按“Ctrl+1”弹出设置单元格格式对话框中找到其他的格式。

5、关于时间上也有可以格式可以在“单元格格式”对话框中找到。

6、如果想输入现在的日期，可以通过输入函数来实现，通过输入“=today（）”回车，就会出现今天的年月日。

7、同样，如果想输入现在的时间，则需要输入“=now（）”即可出现现在的时间。

Answer 2

Sub S()

t = Timer

While Timer < t + 1

DoEvents

Wend

my:

Range("a2").Value = Now()

GoTo my

End Sub

要暂停时按ESC键

Answer 3

1、使用快捷键【Ctrl】+【；】，可以快速插入当前的日期
2、使用快捷键【Ctrl】+【Shift】+【；】，可以快速插入当前的时间
3、输入函数【=now（）】，回车就可以得到当前电脑的日期和时间
如果时间格式不是你要的，选择单元格，右击，选择【单元格格式】，在【时间】下，有很多格式，绝对能够满足你的需要。

Answer 4

比如说在A1输入=NOW()
B1=输入日期和时间
D1在数据-有效性-序列，输入1，2
然后在C1输入=choose(d1,A1,B1)
然后在选择1就是A1就是当前
选择2就是B1的日期时间
无论你修改系统时间还是B1的时间
你都可以选择1,2来选择你的日期时间。

Answer 5

工作表代码Private Sub Worksheet_Activate()
Application.OnTime Now() + TimeValue("00:00:01"), "aa"
End Sub
模块代码Sub aa()
[a1] = Now()
bb
End SubSub bb()
Application.OnTime Now() + TimeValue("00:00:01"), "aa"
End Sub