Excel VBA質問箱 IV

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

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


36771 / 76738 ←次へ | 前へ→

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

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

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