Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6457 / 13644 ツリー ←次へ | 前へ→

【45143】シート切り替えについて ムラッチ 06/12/13(水) 16:45 質問[未読]
【45145】Re:シート切り替えについて Jaka 06/12/13(水) 17:01 発言[未読]

【45143】シート切り替えについて
質問  ムラッチ  - 06/12/13(水) 16:45 -

引用なし
パスワード
   質問です よろしくお願い致します
     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で進めるとアクティブになるのですが、
デバッカで留めずに普通に流すとアクティブにならないのです。
普通に流したときアクティブになる方法を御教授よろしくお願い致します。

【45145】Re:シート切り替えについて
発言  Jaka  - 06/12/13(水) 17:01 -

引用なし
パスワード
   最後に
Worksheets("管理表").Select
を入れてれば、このシートを選択して終わるでしょうね。

配列のところは良く見てないですが、これですみそうです。

        For i2 = 1 To 7
        Worksheets("管理表").Range(bbb(i2)).Copy
        Worksheets(Application.Worksheets.count).Range(aaa(i2)).PasteSpecial Paste:=xlPasteValues
        Next

6457 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free