技巧分享：Excel表格内插入会动的电子时钟和倒计时，及更多Office软件使用技巧

.:. 草榴社區 » 技術討論區 » 技巧分享：Excel表格内插入会动的电子时钟和倒计时，及更多Office软件使用技巧
＜上一頁 1 2 3 4 下一頁＞	手機版回帖發布主題

真实约爱，空降约炮

免费上门，穴痒，水都流出来了！
la68z9.vip

全国小姐上门服务，免费约炮大群，在线匹配

御姐，网红，模特，萝莉，少女少妇任君挑选
la68z9.vip

基本上是属于不定期随心的分享各类目资源，不限于影音，软件，工具，读物，教程，技巧。。。等！！！

【重点提示，下载资源请尽量白嫖】
请尽量白嫖，白嫖无罪，下载没有速度的可以借鉴这个教程。下载速度取决于你的宽带。

引用 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办公软件使用技巧】

草榴最新地址-永久更新免费VPN工具和线路-永久更新

更多分享过的资源：
「资源汇总表格」

麻花地的椒全部帖子

你的点赞就是我的动力

[ 此貼被麻花地的椒在2024-02-20 08:15重新編輯 ]

------------------------

DMCA / ABUSE REPORT | TOP Posted: 2024-02-19 14:31 樓主引用 | 發表評論

喜羊羊的狼

級別：新手上路 ( 8 )
發帖：233
威望：34 點
金錢：2118 USD
貢獻：0 點
註冊：2024-01-05

＜上一頁 1 2 3 4 下一頁＞
.:. 草榴社區 -> 技術討論區

快速回帖	頂端
內容： HTML 代碼不可用使用簽名 Wind Code自動轉換	按 Ctrl+Enter 直接提交