我急需一个10分钟器

宇文化龙0915 2018-11-11 08:47:40 372 浏览

可以直接插入到PPT中，Z好是简单一些，一点按钮就计时开始，一点就结束，倒数20秒有简单的声音提示，Z好是设计好的，时间紧迫，没时间在学了，邮箱zdyaxxjs@126.com

参与评论

登录后参与评论

全部评论(0条)

登录或新用户注册

请用手机微信扫描下方二维码
快速登录或注册新账号

微信扫码，手机电脑联动

注册登录即表示同意《仪器网服务条款》和《隐私协议》

热门问答

我急需一个10分钟器: 可以直接插入到PPT中，Z好是简单一些，一点按钮就计时开始，一点就结束，倒数20秒有简单的声音提示，Z好是设计好的，时间紧迫，没时间在学了，邮箱zdyaxxjs@126.com

急需一个能在PPT里面插入的FLASH的8分钟器: 急需一个能在PPT里面插入的FLASH的8分钟器急用，非常感谢，在线等~！~！我的邮箱是38124106@qq.com 非常感谢

急需一个关于10kV开关柜耐压试验的详细教程或者视频: 急需一个关于10kV开关柜耐压试验的详细教程或者视频，还需要试验设备的接线方法，如何使测量设备连接被测设... 急需一个关于10kV开关柜耐压试验的详细教程或者视频，还需要试验设备的接线方法，如何使测量设备连接被测设展开

这是个器怎样才能添加一个“继续”按钮？: Dim n '公用变量，记住下一个任务执行的时间 Dim a '开始时间 Dim b '结束时间 Sub 计时() n = Now + TimeValue("0:00:01") If Now() = b Then MsgBox "结束": Call 停止: Exit Sub [c3] = Format(b - Now()， " h:mm:ss") '设置单元格格式 App... Dim n '公用变量，记住下一个任务执行的时间 Dim a '开始时间 Dim b '结束时间 Sub 计时() n = Now + TimeValue("0:00:01") If Now() = b Then MsgBox "结束": Call 停止: Exit Sub [c3] = Format(b - Now()， " h:mm:ss") '设置单元格格式 Application.OnTime n， "计时" '到指定时间后再执行本过程 End Sub Sub 开始() [c1] = Format([c1]， "h:mm:ss") '设置单元格格式 a = [c1] '设定时间 b = Now() + a '计算结束时间 [c2] = Format(b， "yyyy-m-d h:mm:ss") '设置单元格格式 Call 计时 End Sub Sub 停止() On Error Resume Next Application.OnTime n， "计时"，， False '停止任务的执行 End Sub 展开