Excel 中如何实现在单元格内显示实时时间,秒表是要实时更新的,now(),today()都是不会自动更新的,要按F9
作者&投稿:惠星 (若有异议请与网页底部的电邮联系)
Private Sub Workbook_Open()
Application.OnTime Now(), "TimerProc"
End Sub
新建模块:
Public Function TimerProc()
ThisWorkbook.Sheets(1).Range("A1") = Format(Time(), "hh:mm:ss")
DoEvents
Application.OnTime Now() + TimeValue("00:00:10"), "TimerProc"
End Function
每10秒更新A1单元格时间
补充问题:
菜单:工具->宏->Visual Basic 编辑器
双击工程资源管理器窗口中的“ThisWorkbook”,在代码窗口选择“Workbook”的“Open”事件,输入如下代码:
Application.OnTime Now(), "TimerProc"
Visual Basic 编辑器菜单:插入->模块
在代码窗口输入如下代码:
Public Function TimerProc()
ThisWorkbook.Sheets(1).Range("A1") = Format(Time(), "hh:mm:ss")
DoEvents
Application.OnTime Now() + TimeValue("00:00:10"), "TimerProc"
End Functio
在单元格输入
=now()或
=TODAY()
操作步骤:
第一步:新建一个Excel工作簿→单击Sheet1工作表→工具→宏→Visual Basic编辑器。
第二步:在Sheet1工作表上右击→插入→模块。
第三步:在模块对话框中输入如下代码:
Sub biao()
ActiveSheet.Range("a1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "biao
End Sub
注:上述代码中的a1是表示我们要在A1单元格中建立一个电子时钟,如果想在其他单元格中建立一个电子时钟,可以把A1改成相应的单元格地址。
第四步:关闭Visual Basic编辑器,返回到Excel工作簿中→工具→宏→宏(M)…。
第五步:在宏对话框中选择biao→执行。
右击工作表标签-选择“查看代码”,弹出VB编辑窗口
点菜单:插入-模块
然后,录入以下代码(以秒表显示在A1单元格为例):
Sub 秒表()
ActiveSheet.Range("A1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "秒表", , True
End Sub
保存文件后,执行菜单:工具-宏-宏
在弹出的对话框中,选择“秒表”这个宏
点“执行按钮”
要显示24小时制的话,设置一下单元格的时间格式就好了。
Sub 秒表()
ActiveSheet.Range("A1").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1), "秒表", , True
End Sub
枞厕单糖: excel如何在单元格中显示公式的解决方法如下: 1、只输入公式的文本部分,不输入=,这样显示的时候就显示公式本身而不是结果了. 2、输入内容前,先将EXCEL中的格式设为文本.再输入内容,出来的即是输什么出现什么了. 3、如果是复杂的公式,可以插入图片,这样显示的也是公式本身.
万年县15226227863: 请教各位大侠: excel中如何实现在一个特定单元格中显示任一个鼠标选中单元格的内容? - ?
枞厕单糖: 右键底下 你要显示的表名,选择查看代码,然后把下面代码粘贴进去.记得对应表名哦.Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("h1").Value = Target.Text End Sub
万年县15226227863: 如何在excel一个单元格内显示文字和另外一个单元格的内容 - ?
枞厕单糖: 在一个单元格里输入文字和另一个单元格的内容即可.
万年县15226227863: excel中如何实现在单元格中显示另一张表格数据(鼠标经过时就像显示批注一样,但要求显示的是表格) - ?
枞厕单糖: 首先,鼠标经过目前在excel中要想产生什么效果,不做不到.只有在单击(选择)单元格对象时,才可能达成你要的效果. 至于最后的那句“而该表格可在Sheet2中编辑,并随着编辑该表格,显示的表格也会随之变化”无法理解.不知道你是要在出现的表格中编辑,还是要在sheet2中编
万年县15226227863: excel中如何实现在一个单元格中显示某个单元格前边单元格的内容 - ?
枞厕单糖: 比如在A1显示D10单元前边的D9 A1=offset(d10,-1,0,,) 比如在A1显示D10单元前边的C10 A1=offset(d10,0,-1,,)
万年县15226227863: 如何实现excel 在同一个单元格内输入数据显示计算结果 - ?
枞厕单糖: '比如下面这段代码,当在第一列输入一个数字时,自动减半 '工作表标签→查看代码→粘贴过去Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub Application.EnableEvents = False If IsNumeric(Target.Value) Then Target.Value = Target.Value / 2 Application.EnableEvents = True End Sub
万年县15226227863: 如何实现excel中在同一个单元格内加减乘除,也在同一个单元格内显示答案? - ?
枞厕单糖: 如果是你想将计算是公式与结果均显示在单元格中,用下面的方法.设你需要在单元格中显示的公式为1+2=3.则在单元格中输入:="1+2="...
万年县15226227863: Excel如何用函数将单元所在的行和列,自动显示在指定的单元格中 - ?
枞厕单糖: G11=CHAR( CODE("A") + COLUMN(D11)-1) H11=ROW(D11)
万年县15226227863: 选中EXCEL单选按钮后,指定单元格中显示选中的单选按钮的内容. - ?
枞厕单糖: 按图上做就OK了! 要是要让单元格显示的是选项按钮上的文字的话就把 Worksheets("Sheet1").Range("A2").Value = Worksheets("Sheet1").Range("A1").Value 改写成 Worksheets("Sheet1").Range("A2").Value = OptionButton1.Caption 其他几个按钮的自己改下
万年县15226227863: excel中如何让一串数字在一个单元格中都显示.十万火急! - ?
枞厕单糖: 选择要改的单元格,右键->设置单元格格式->数字->从常规改成数值,就可以了,还可以改变小数点位数,设置成0就是纯整数形式.希望能帮到你