怎么在excel表格中设定闹钟

1.“EXCEL表格中闹钟功能如何设置” 我做了一个记事表格,每件事情

不会VBA，有个简单的方法：如果每天的事情只有1件，那就比较简单，具体操作方法：假设A列是计划日期，B列是事情，C2是要提示的地方（任意设定），那在C2输入：=IF(COUNTIF(A:A,TODAY())=0，"无"，VLOOKUP(TODAY(),A:B,2,0））其他的美观和格式问题你可以调整。

如果每天的事情不只1件，那需要增加辅助列，具体操作方法：假设A列为序号（1、2、3。）,B列为计划日期，C列为事情，H2为提示的地方（任意设定）1、在事项前插入1列，在C2输入 =A2&B2 ，并向下复制（这时事情变成D列）2、在E2中输入 =A2&today（) ，并尽可能多的向下复制（同一天事情数量确定复制行数）3、在F2中输入 =IF(COUNTIF(C:C,E2)=0,"",VLOOKUP(E2,C2:D7,2,0))4、在H2中输入 =F2&""&F3& ""&F4&" "&F5&" "&F6&" "&F7。

..希望能够看的明白。

2.excel 如何实现闹钟功能

1、启动Excel，新建一文档，取名保存（如“提醒.xls”）。

2、按“Alt+F11”组合键进入VBA编辑状态。

3、在左侧“工程资源管理器”窗口中，选中“VBAProject（提醒.xls）”选项，执行“插入模块”命令，插入一个新模块。

4、将下述代码输入到右侧的编辑区域中：

Sub auto_open（) '设置一个自动运行的宏——auto_open

Application.OnTime TimeValue("08:30:00"), "tx" '设置提醒时间——08:30:00（可以根据需要修改），设置调用提醒宏——tx。

Application.OnTime TimeValue("09:30:00"), "tx" '再设置提醒一次。

End Sub

Sub tx（) '设置一个显示提醒消息的宏（名称要与上述自动运行宏中调用的名称一致）。

msg = MsgBox（"通知张三、李四、王五评委参加下午评标！"， vbInformation， "赶快打电话"） '设置提醒对话框中的消息和标题（前面是消息内容，后面是对话框标题，请根据需要输入）。

End Sub

注意：①上述代码中，英文单引号及其后面的字符是对代码的解释，在实际输入时可以不需要。②如果设置多个提醒宏（tx1、tx2……），并在自动运行宏中分别设置调用的时间，可以实现多个消息的定时提醒。

5、输入完成后，退出VBA编辑状态，保存工作簿文档。

6、以后，一上班，就启动Excel，打开上述工作簿文档。设定时间一到，系统即刻弹出提示框。

3.如果在excel表上添加时钟?

如何在Excel中插入Flash时钟的？

动态时钟不是用函式运算、自动化功能制作出来的，这只是简单的插入Flash文挡的功能而已，而且只要你有Flash文件，任何人都可以轻松自行制作。

制作方法：

第1步 首先打开一个空白Excel文件，点击“视图” → 然后点选【控件工具箱】，→点击“其他控件”。如下图：

第2步 然后再点击[Shockwave Flash Object]项目，表示要插入Flash物件。

第3步 接下来，鼠标会变成一个小十字，此时可以在Excel编辑区中画一个大小适中的方框，这个方框就是用来显示Flash时钟的内容的。

第4步 画好方框后，接着点击【属性】，准备设置属性。

第5步 出现「属性」对话框后，将DeviceFont设置成False；将Eebedmovie设置成True；将Enabled设置成True；将Locked设置成True；将Loop设置成True；将Menu设置成False；并在“Movie”右侧填入时钟的地址与名称。

第6步 如下图，退出设计模式，全部完成。

4.如何在Excel里使用定时器

在 Office 里有个方法是 application.ontime ，具体函数如下： expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule) 如果想进一步了解，请参阅 Excel 的帮助。

这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在 Excel 里编写自己的定时程序了。

下面就举两个例子来说明它。 1.在下午 17:00:00 的时候显示一个对话框。

Sub Run_it() Application.OnTime TimeValue("17:00:00"), "Show_my_msg" '设置定时器在 17:00:00 激活，激活后运行 Show_my_msg 。 End Sub Sub Show_my_msg() msg = MsgBox（"现在是 17:00:00 !", vbInformation， "自定义信息"） End Sub 2.模仿 Excel 97 里的 "自动保存宏"，在这里定时 5 秒出现一次 Sub auto_open() MsgBox "欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！"， vbInformation， "请注意！" Call runtimer '打开文档时自动运行 End Sub Sub runtimer() Application.OnTime Now + TimeValue("00:00:05"), "saveit" ' Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。

End Sub Sub SaveIt() msg = MsgBox（"朋友，你已经工作很久了，现在就存盘吗？" & Chr(13) _ & "选择是：立刻存盘" & Chr(13) _ & "选择否：暂不存盘" & Chr(13) _ & "选择取消：不再出现这个提示"， vbYesNoCancel + 64， "休息一会吧！"） '提示用户保存当前活动文档。 If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub Call runtimer '如果用户没有选择取消就再次调用 Runtimer End Sub 以上只是两个简单的例子，有兴趣的话，可以利用 Application.Ontime 这个函数写出更多更有用的定时程序。