|
質問です よろしくお願い致します
Dim aaa(1 To 7) As String, bbb(1 To 7) As String, i2 As Integer
aaa(1) = "B5"
aaa(2) = "G5"
aaa(3) = "G11"
aaa(4) = "B4"
aaa(5) = "C4"
aaa(6) = "I12"
aaa(7) = "J4"
bbb(1) = Cellb(x)
bbb(2) = Cellc(x)
bbb(3) = Celld(x)
bbb(4) = Celle(x)
bbb(5) = Cellf(x)
bbb(6) = Cellg(x)
bbb(7) = Cella(x)
For i2 = 1 To 7
Range(bbb(i2)).Copy
Worksheets(Application.Worksheets.count).Activate
Range(aaa(i2)).PasteSpecial Paste:=xlPasteValues
Worksheets("管理表").Select
Next
VBAで上記のようなプログラムをコーディングしました。
Worksheets(Application.Worksheets.count).Activateというコードで、
最後のシートをアクティブにしたいのです。
しかしなぜかデバッカで留めて、F8で進めるとアクティブになるのですが、
デバッカで留めずに普通に流すとアクティブにならないのです。
普通に流したときアクティブになる方法を御教授よろしくお願い致します。
|
|