主页 | excel电子表格 | Word办公 | PPT教学 | Wps文档处理 |

办公软件excel vba如何制作一个数字时钟

      下面为大家分享excel中使用vba制作一个数字时钟方法,不会的朋友可以参考本文,来学习吧!

      步骤

      1、首先我们打开一个工作样表作为例子。

      2、使用alt+f11进入vbe编辑器,插入一个新的模块,并在模块编辑框中输入以下代码:

      ption Explicit

      Sub MyMacro()

      Dim dTime As Variant

      dTime = Now + TimeValue("00:00:01")

      Application.OnTime dTime, "Sheet3.MyMacro", , True

      With Range("A1")

      .Value = Now

      .NumberFormat = "hh:mm:ss"

      End With

      End Sub

      3、这里我们将变量声明为不特定类型变量,然后对变量dTime赋值为当前时间返回值,并设定一个延时1秒的定义。

      4、接着我们用ontime函数来做一个定时处理,以dtime变量定义的时间来执行MyMacro这个宏过程。

      5、这里使用with函数来简写RANGE("a1")这段代码,使用方法很简单,在with后的属性代码都是表示的range(“a1”)这个对象的属性。

      6、将其值赋值为now当前时间,并以日期格式进行输出,如果不加固定格式的输出,那么输出的值会以当前工作表单元格的格式设置输出形式。

      以上就是excel vba制作一个数字时钟方法介绍,操作很简单,大家按照上面步骤进行操作即可,希望能对大家有所帮助!

  • 如何用办公软件excel vba编程画一只黑猩猩
  • Excel2016数据如何添加迷你图