各位大大好 小的在网路上看到一VBA Timer的应用 ub Schedule() DoEvents If Sheet2.Cells(2, 1) = 1 Then '当这个栏位值为1的时候开始纪录 Call record '把DDE值抓到EXCEL的副程式 Call timer_Start 'timer开始 End If End Sub Sub timer_Start() '开始timer 每秒call Schedule一次 Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=True End Sub Sub timer_Stop() On Error Resume Next '停止timer Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=False End Sub Sub record() '纪录DDE资料的副程式 Sheet2.Cells(2, 2) = Sheet2.Cells(2, 2) + 1 '这栏用来记录现在行数 Sheet2.Cells(Sheet2.Cells(2, 2), 3) = Sheet1.Cells(1, 1) '假设DDE要记录的值在 Sheet1的(1,1)这个栏位 '将这资料存在 Sheet2中 End Sub 於是就把它贴去VBA的编议器上,我并没有添加任何FORM或物件 他告诉我找不到巨集 想请问一下小的是出哪的错 因为小弟无任何VBA经验,很久以前有碰过VB 想请问一下各位大大可否给予指导. 或是给小的一些简单的概念,谢谢 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 210.243.104.61