- 372 名前：デフォルトの名無しさん mailto:sage [2010/12/22(水) 01:08:11 ]
- >>370
「だいたい」30秒でいいならsleep 30000でもいいけど、
きっちり30秒間隔でやりたいなら、時刻を覚えておいて30秒を足していくとかしないと
Public n ' 基準時刻
Sub timer_start()
n = Now
main
End Sub
Sub main()
Dim a()
a = Range("A1:A3")
Range("B1:B3") = a
n = n + TimeValue("00:00:30")
Application.OnTime n, "main"
End Sub
