博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
Excel VBA 实现电子钟
阅读量:5776 次
发布时间:2019-06-18

本文共 1137 字,大约阅读时间需要 3 分钟。

来源:

Dim Runtime As Date                             '定义时间变量 Sub RunTimer()    Runtime = Now() + TimeValue("00:00:02")     '时间显示为增加1秒    Application.OnTime Runtime, "my_Procedure"  '在这个指定的时间执行下面的过程End Sub Sub my_Procedure()    Range("A1") = Format(Time, "h:mm:ss")       '在指定的表格显示系统当前的时间(Time)    RunTimer                                    '回头继续执行上面的程序End Sub

OnTime函数指在某一具体时间执行某一过程,即过程my_Procedure。

执行my_Procedure的时候,就显示现在的时间,然后立即执行Runtime过程,接着就循环下去,效果如下图所示:(颜色大小可以另外设置)

涉及到的相关概念:

  1. :表示从 0001 年 1 月 1 日到 9999 年 12 月 31 日的日期以及从午夜 12:00:00 到晚上 11:59:59.9999999 的时间。Date 的默认值为 0001 年 1 月 1 日的 0:00:00(午夜)。
  2. :以 datetime 格式返回当前日期和时间。
  3. Time 函数:返回系统当前的时间。
  4. 将文本格式的时间转换为日期时间格式的时间。
  5. :安排一个过程在将来的特定时间运行(既可以是具体指定的某个时间,也可以是指定的一段时间之后)。
      OnTime(EarliestTime, Procedure, LatestTime, Schedule)
      后面两个为可选参数!
    Application.OnTime Runtime, "my_Procedure"单独一行的方法不能加括号,要是涉及到赋值操作,则要加括号!
  6. :没有参数的时候指工作表中所有的单元格,带一个参数则表示第一行的第几个单元格,带两个参数,则分别表示行和列!
    With Cells(2, 2).Font        .Size = 20        .Color = RGB(255, 0, 0)        .Name = "Arial Black"        .FontStyle = "Bold Italic"    End With
  7. :它代表一个单元格或单元格区域。
  8. :返回根据格式 String 表达式中包含的指令设置格式的字符串。其中格式有预定义的符号,通过符号来代表不一样的显示格式!

转载地址:http://bpaux.baihongyu.com/

你可能感兴趣的文章
常用限制input的方法
查看>>
Ext Js简单事件处理和对象作用域
查看>>
IIS7下使用urlrewriter.dll配置
查看>>
12.通过微信小程序端访问企查查(采集工商信息)
查看>>
WinXp 开机登录密码
查看>>
POJ 1001 Exponentiation
查看>>
HDU 4377 Sub Sequence[串构造]
查看>>
云时代架构阅读笔记之四
查看>>
WEB请求处理一:浏览器请求发起处理
查看>>
Lua学习笔记(8): 元表
查看>>
PHP经典算法题
查看>>
LeetCode 404 Sum of Left Leaves
查看>>
醋泡大蒜有什么功效
查看>>
hdu 5115(2014北京—dp)
查看>>
数据结构中常见的树(BST二叉搜索树、AVL平衡二叉树、RBT红黑树、B-树、B+树、B*树)...
查看>>
PHP读取日志里数据方法理解
查看>>
第五十七篇、AVAssetReader和AVAssetWrite 对视频进行编码
查看>>
Vivado增量式编译
查看>>
一个很好的幻灯片效果的jquery插件--kinMaxShow
查看>>
微信支付签名配置正确,但返回-1,调不出支付界面(有的手机能调起,有的不能)...
查看>>