Excelの三つのVBAを一つにまとめる。

質問

初めまして、よろしくお願いします。当方全くの素人でVBAの基礎もよくわからず、ネットから拾ってきていじった三つのVBAがあります。この三つ、一つ一つは個別に機能するのですが、VBAとして正しいのかさえよく解っていません。この三つを一つにまとめて、同時に機能するようにしたいと頭を抱えています。

Sub TEST()
Application.ScreenUpdating = False
Application.EnableEvents = False

ActiveSheet.Calculate

Range("b10:b20").Insert shift:=xlShiftToRight
Range("b10:b20").Value = Range("a10:a20").Value

Application.OnTime TimeValue("09:00:00"), "TEST"

Application.ScreenUpdating = True
Application.EnableEvents = True

ActiveWorkbook.Save

End Sub

________________________________________________________________
Sub TEST1()
Application.ScreenUpdating = False
Application.EnableEvents = False

ActiveSheet.Calculate

Dim myCnt As Long
Range("c30:c40").Copy
Range("d30:d40").PasteSpecial Paste:=xlPasteValues
Range("b30:b40").Copy
Range("c30:c40").PasteSpecial Paste:=xlPasteValues
Range("a30:a40").Copy
Range("b30:b40").PasteSpecial Paste:=xlPasteValues

nextTime = Now() + TimeValue("01:00:00")
Application.OnTime nextTime, "TEST1"

Application.ScreenUpdating = True
Application.EnableEvents = True

ActiveSheet.Calculate

ActiveWorkbook.Save

End Sub

________________________________________________________________
Sub TEST2()
Application.ScreenUpdating = False
Application.EnableEvents = False

ActiveSheet.Calculate

Dim myCnt As Long
Range("c50:c60").Copy
Range("d50:d60").PasteSpecial Paste:=xlPasteValues
Range("b50:b60").Copy
Range("c50:c60").PasteSpecial Paste:=xlPasteValues
Range("a50:a60").Copy
Range("b50:b60").PasteSpecial Paste:=xlPasteValues

nextTime = Now() + TimeValue("00:10:00")
Application.OnTime nextTime, "TEST2"

Application.ScreenUpdating = True
Application.EnableEvents = True

ActiveSheet.Calculate

ActiveWorkbook.Save

End Sub

________________________________________________________________
　解る方、よろしくお願いします。

回答No.1

mt2008

コードの細かい所は見て居ませんが、Application.OnTime　で、同じ時間に複数のプロシージャを動かす設定にした場合、正常に動作するのか……と言う質問だと理解しました。よろしいでしょうか？

動きますが同時ではありません。
同じ起動時間で最後に登録されたプロシージャから実行されます。

たとえば、TEST、TEST1、TEST2の順で9:00:00に起動するようにセットした場合、TEST2→TEST1→TESTの順で動きます。

お礼

解答ありがとうございます。個別に起動させるやり方は解るのですが、TEST1、TEST2を指定時間間隔で起動できず、困っています。