excel中使用vba制作一个数字时钟
工具/原料
excel2013
更多经验请关注,如果帮到了你,请在上方给个投票谢谢支持。好人一生平安。
先顶后看年薪百万,如果帮到了你,帮忙给个好评,这对小编很重要,万分感谢。
方法/步骤
1、首先我们打开一个工作样表作为例子。
2、使用alt+f11进入vbe编辑器,插入一个新的模块,并在模块编辑框中输入以下代码:ption苇质缵爨ExplicitSubMyMacro()D足毂忍珩imdTimeAsVariantdTime=Now+TimeValue("00:00:01")Application.OnTimedTime,"Sheet3.MyMacro",,TrueWithRange("A1").Value=Now.NumberFormat="hh:mm:ss"EndWithEndSub
3、这里我们将变量声明为不特定类型变量,然后对变量dTime赋值为当前时间返回值,并设定一个延时1秒的定义。
4、接着我们用ontime函数来做一个定时处理,以dtime变量定义的时间来执行MyMacro这个宏过程。
5、这里使用with函数苴煜塑桠来简写RANGE("a1")这段代码,使用方法很简单,在with后的属性代码都是表示的range(“a1”)这个对象的属性。
6、将其值赋值为now当前时间,并以日期格式进行输出,如果不加固定格式的输出,那么诶受祗错输出的值会以当前工作表单元格的格式设置输出形式。