问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

Excel vba的问题:如何用settimer和killtimer写一个代码

发布网友 发布时间:2022-06-09 17:43

我来回答

1个回答

热心网友 时间:2024-12-15 02:24

      Declare Function SetTimer Lib "user32" _
            (ByVal hwnd As Long, _
            ByVal nIDEvent As Long, _
            ByVal uElapse As Long, _
            ByVal lpTimerFunc As Long) As Long
      Declare Function KillTimer Lib "user32" _
            (ByVal hwnd As Long, _
            ByVal nIDEvent As Long) As Long

Public lngTimerID As Long
Sub g(ByVal hwnd As Long, _
                     ByVal uMsg As Long, _
                     ByVal idEvent As Long, _
                     ByVal dwTime As Long)
    xx = Int(Rnd * 10 + 3)
    [a1].Interior.ColorIndex = xx
    If xx = 3 Then lngTimerID = KillTimer(0, lngTimerID)
End Sub

Sub mystart()
    lngTimerID = SetTimer(0, 0, 1000, AddressOf g)
End Sub

追问运行不成功,有编译错误。

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
桑葚干直接吃还是泡水喝比较好桑葚干直接吃补肾吗 桑葚干泡水吃好还是干吃好 益智仁脑素神经酸片的功效与作用有哪些 黄冈师范学院师范专业有哪些 语文教育专业考研方向分析 黄冈师范学院语文教育专科毕业能拿教师资格证吗 php保留数字小数点后两位的方法 梦见被后咬 梦见母亲给赔鸡钱补了十二元的预兆 梦见门掉下来要二十五元修理费 linux 使用setittimer 如何设定一段时间后让方程停止 setitimer只能设定一个吗 秋天什么果实是翠绿色 linux内核怎么配置setitimer的精度 TIMER翻译 怎样检查自己小腿的肌肉是松弛还是绷紧 ...迈克菲突然打不开,我的电脑中毒了么?怎么办 McAfee主界面打开后一片空白 迈克菲杀毒界面怎么显示不完整,什么原因啊~ 至自己成熟的说说 为什么我的mcafee主界面打不开 McAfee 不能显示主界面了!!谁帮帮! 成熟稳重人该发的说说有哪些? 求助!Mcafee不能显示主界面 心理咨询师是否可以跨地区参加考试? 简密内衣价格一般多少 女士内衣一套5000元正常吗 同角三角函数的基本关系式是什么 虫子旁加上中下结构艹四戍读什么? 虫子加兑字念什么 托福tpo要set timer怎么set我是mac 秋天有哪些果实,顺便怎么形容它的外形 vb中Set Timer1 = Controls.Add("VB.Timer", "Timer1")是什么意思_百度... 北京林业大学林学院的介绍 北京林业大学林学专业怎么样 6sp没有插耳机却显示耳机模式 北京林业大学林学类专业怎么样 北京林业大学林学院的专业好不好啊? 北京林业大学林学怎么样 我得的是不是白喉病 一到晚上就失声的白喉病严重吗 北京林业大学林学类专业哪个好就业 北京林业大学 林学院的 林业 怎么样 ? 谁能给我讲一下 谢谢了!_百度... 有没有知道这个鹌鹑得了什么病? 北京林业大学林学专业学生的就业方向 求助 为什么最近torrentkitty登不进去 北京林业大学 林学专业 就业指导 torrentkitty改了域名也进不去 北京林业大学林学院好考吗 钢琴书拜厄23条怎么弹教法