![]()
基本上是属于不定期随心的分享各类目资源，不限于影音，软件，工具，读物，教程，技巧。。。等！！！
【重点提示，下载资源请尽量白嫖】
请尽量白嫖，白嫖无罪，下载没有速度的可以借鉴这个教程。下载速度取决于你的宽带。
引用 6060825：白嫖福音，最全解限速下载网络资源
所有分享的资源均来源于网络，没有任何商业目地，不卖软件，不卖教程，不卖资源，不带货，如侵害到你的权益，请联系删除！
工作中我们经常会用到Excel表格 Word文档 PPT演示稿等，很多时候需要一些技巧来实现表格功能更完善，视觉效果更美观，比如插入会动的电子时钟
效果：
![]()
我们新建一个Excel空白表格，暂时命名为电子时钟吧。
![]()
然后在任意位置，你需要现实电子时钟的位置，写入时间代码
=NOW()
![]()
写好之后我们会发现，这是没有秒的，只是到分钟而已，我们需要修改一下格式
我们可以光标放在需要修改的栏上右键-修改单元格格式，也可以键盘按 Ctrl+1 唤起修改窗口，我们在自定义格式中个输入：
yyyy/m/d h:mm:ss
ss是秒的代码，确定之后我们可以看见有秒显示，但是时间是不会随秒跳动的
![]()
我们先将表格另存为启用“宏”的格式（Excel 启用宏的工作簿(*.xlsm)），再从刚刚保存的文件夹中打开它，然后按下键盘Alt+F11 换出的界面我们点击插入模块，下拉选择模块，然后键入以下代码，关闭之后点击一下运行，双方选项中类似播放的按钮，或者直接按键盘F5可以唿出。
- Sub AotoTime1()
- Dim NewTime As Date '定义NewTime的数据类型
- Set myDocument = ThisWorkbook.Worksheets("Sheet1") '定义工作表
- NewTime = Now + TimeValue("00:00:01") '更新时间是1秒
- myDocument.Range("A1").Value = Time 'Sheet1 A1单元格显示动态时间
- Application.OnTime NewTime, "AotoTime2" '安排一个过程在将来的特定时间（Newtime）运行，调用Aoto2
- End Sub
- Sub AotoTime2()
- Call AotoTime1 '调用Aoto1
- End Su
![]()
然后我们就得到了一个会跳秒的电子时钟，我们的代码中是选择在A1中显示时间，所以在A1中也会多出来一个时间，我们可以选择无视它，或者用一个图标或者图案遮挡，也可以直接这列拉到最小，因为要调试这个代码太麻烦了，所以直接用我们自己选择修改好的
![]()
最后，我们再给字体上一些颜色，修改一下字体就好了，有电子时钟字体也可以下载安装使用
![]()
如果我们还需要一个倒计时，我们可以在需要显示倒计时秒表的位置输入一下代码：代码中够时间可以自己设定，比如距离高考时间，距离开学时间，距离XXXXXXXXXX还有多少时间。
="2024/3/1"-NOW()
然后我们会发现，时间显示是错的，显示1900年去了，我们按下键盘Ctrl+1 唤起修改单元格格式窗口，自定义以下格式
d"天"h"小""时"m"分"s"秒"
最后设置字体，颜色，大小，就完成了
![]()
更多Office办公软件使用技巧，和教程已打包
![]()
点击下载【office办公软件使用技巧】
更多分享过的资源：
「资源汇总表格」
麻花地的椒 全部帖子
![]()
[ 此贴被麻花地的椒在2024-02-20 08:15重新编辑 ]
赞(113)