| 会员登录 立即注册
关注公众号

关注公众号拿干货

CATIA论坛公众号
加入联盟

扫微信(sakula)入联盟

CATIA软件
风格切换

catia教程

搜索

CATIA联盟论坛

[CATIA VBA] CATIA二次开发专题:基于EXCEL VBA 开发一个定时器功能

[复制链接]
CATIA运动仿真 发表于 2019-8-7 10:16:48 | 显示全部楼层 |阅读模式
CATIA运动仿真
2019-8-7 10:16:48 1106 0 看全部
  各位上帝,如果喜欢本公众号或绝对本帖有价值,请动动金贵的手转发,给与小编坚持下去的动力。
CATIA二次开发专题:基于EXCEL VBA 开发一个定时器功能49

  今天给大家分享一个EXCEL VBA开发的定时器功能。相信很多场合下可以用到。希望大家喜欢。学习二次开发重在坚持不射。就怕那种入门及放弃哦。随我一起来。
Private mdteTime As Date
Private Const MDTE_SPECIALDATE As Date = #10/1/2018#
Private Const MDTE_SPECIALTIME As Date = #12:00:00 AM#
Sub StartTimer()
     Call TimeOn
End Sub
Sub TimeOn()
     Dim intNum As Integer
     Dim dteNowTime As Date, dteTime As Date
     dteNowTime = Now()
     If dteNowTime >= MDTE_SPECIALDATE + MDTE_SPECIALTIME Then
         ActiveSheet.Range("B10:B11").Value = 0
         MsgBox "时间到!", vbExclamation
         Exit Sub
     End If
     If TimeValue(dteNowTime) > MDTE_SPECIALTIME Then intNum = 1
     With ActiveSheet
        .Range("B10").Value = MDTE_SPECIALDATE - Date - intNum
        dteTime = MDTE_SPECIALTIME - TimeValue(dteNowTime) + _
            intNum * 86400
        .Range("B11").Value = Hour(dteTime)
        .Range("B12").Value = Minute(dteTime)
        .Range("B13").Value = Second(dteTime)
    End With
    mdteTime = dteNowTime + TimeValue("0:0:1")
    Application.OnTime mdteTime, "TimeOn"
End Sub
Sub StopTimer()
     On Error Resume Next
     Application.OnTime mdteTime, "TimeOn", , False
End Sub

'------------------- mdlOnTime -------------------
Dim mdteTime As Date
Sub RunTimer()
    mdteTime = Now() + TimeValue("00:00:01")
    Application.OnTime mdteTime, _
        Procedure:="My_Procedure"
End Sub
Sub My_Procedure()
      Range("A1") = Format(Time(), "h:mm:ss")
      Call RunTimer
End Sub
Sub KillTimer()
    Application.OnTime mdteTime, _
        Procedure:="My_Procedure", Schedule:=False
End Sub
CATIA论坛官方公众号
  • 您可能感兴趣
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 返回列表

查看:1106 | 回复:0

CATIA教程| CATIA视频| CATIA培训| CATIA下载| CATIA安装| CATIA插件| CATIA入门| CATIA V5| CATIA V6| CATIA论坛
联系电话:18982019507 地址:成都市青羊区二环路西一段155号天祥广场4栋1801
版权所有 ©软易达 •( 蜀ICP备14018086号 )Copyright © 2001-2013 Comsenz Inc. All Rights Reserved.   Powered by Discuz! X3.4
联盟微信客服:
silhouette023CATIA软件


CATIA技术群

微信公众号 CATIA微信公众号
“CATIA联盟”