excel打开后 定时 自动打印 Sub auto_open() '设置一个自动运行的宏——auto_open Application.OnTime TimeValue("08:30:00"), "tx" '设置提醒时间——08:30:00（可以根据需要修改），设置调用提醒宏——tx。 Application.OnTime TimeValue("08:52:00"), "tx" '再设置提醒一次。 End Sub Sub tx() '设置一个显示提醒消息的宏（名称要与上述自动运行宏中调用的名称
是EXCEL的定时执行 Sub OntimeRun() '运行前用k先判断是否运行 If k = False Then Exit Sub Else '执行程序aa Call aa '如果k=true，那么每隔3秒执行程序OntimeRun Application.OnTime Now() + TimeValue("00:00:03"), "OntimeRun" End If '释放控制权，让excel可以干其他事情 VBA.DoEvents End Sub
ZXAN(config)#show onu unauthentication epon-olt_0/4/4 显示相关PON口下未注册认证的ONU Onu interface : epon-onu_0/5/3:3 MAC address : 4cac.0ab7.ae28 当前ONU MAC地址 SN : AuthState State : deny OnTime : 2001/01/01 00:17:23 ZXAN(config)#show onu all-status epon-olt_0/4
