[已解决][求助]请函数小菜鸟 版主修改下定时的代码

东方智彩

请函数小菜鸟 版主修改下代码让定时程序成滚动计时，每到指定时间就自动执行一次程序，谢谢

 

SyqUwyFb.rar (17.04 KB, 下载次数: 12)

2009-9-27 15:03 上传

点击文件名下载附件
[求助]请函数小菜鸟 版主修改下定时的代码

最佳答案

月排行榜 / 总排行榜

amulee

2009-9-27 15:08

Sub RUN()
    If k = True Then
        If Sheets(1).CheckBox1.Value = True Then
            Call 程序1
        End If
        If Sheets(1).CheckBox2.Value = True Then
            Call 程序2
        End If
        If Sheets(1).CheckBox3.Value = True Then
            Call 程序3
        End If
        Call OntimeRun '当运行后再执行一次定时即可
    Else
    End If
End Sub

跳转到最佳答案楼层

amulee

Sub RUN()
    If k = True Then
        If Sheets(1).CheckBox1.Value = True Then
            Call 程序1
        End If
        If Sheets(1).CheckBox2.Value = True Then
            Call 程序2
        End If
        If Sheets(1).CheckBox3.Value = True Then
            Call 程序3
        End If
        Call OntimeRun '当运行后再执行一次定时即可
    Else
    End If
End Sub

函数小菜鸟

错误
[em04][em04]

[此贴子已经被作者于2009-9-27 15:20:54编辑过]