Excel/VBA ステップインと通常実行の違い

質問

• Excel/VBAのステップイン(F8)で実行するとうまくいくのに、通常実行するとエラー等はでませんが、数字を取ってくることができません。
• 通常実行でも期待通りの結果が得られるための改善方法を教えてください。
• 変数に5桁のAcc_IDを代入し、外部データX.xlsxの特定のシート内に該当するIDがあれば、次の列にある毎月の入金額をthisworkbookに入力するマクロを作成しています。

回答No.1

nayuta_lot · ベストアンサー

こんにちは

＞該当するIDがあれば、次の列にある毎月の入金額をthisworkbookに入力する
　　　　　　　　　：
＞外部データX.xlsxはこのようなレイアウトになっています。
＞123451月2月3月
＞入金額100200300

データの持ち方ですが、４列目（Ｄ列）にＩＤコードを記入していて、
金額はＩＤコードの１行下のＥ列から記入されているということでしょうか？
　　　　　　　　　　　￣￣￣￣￣￣￣￣￣￣
　Ｄ　　Ｅ　　Ｆ　　Ｇ
12345　1月　2月　3月
　　　　100　　200　　300

データのレイアウトを見る限り、そう解釈できるのですが・・
このあたりは、VBAの解釈について影響を与えるので正確に説明しましょう。

その前提で回答します。

１）R_X_Acc = .Cells.Find(Acc_ID).End(xlDown).Row

　の.End(xlDown)はいりません。
　連続したデータの最終行を取得するためのコードです。　あと、.Cellsはいらないのでは
　ないでしょうか？　検索結果の位置を取得するためには

　　R_X_Acc = .Find(Acc_ID).Row

　でよいと思います。

２）For ～　nextの中にある

　ThisWorkbook.Worksheets(MySheet).Cells(20, 9 + m) = .Cells(R_X_Acc + 1, 1 + m)

　この文ですが、１）に関連していますが、.Cells(R_X_Acc + 1, 1 + m)
　つまり、R_X_Acc + 1は、　１）で取得した行＋１行目を指定していますね。
　※検索値が該当した行＋１行目

　データが取得できていないのは、このR_X_Accを取得する際に、.End(xlDown)を使っているために
　正しい位置を取得できていないことが原因ではないでしょうか？

　また、1 + m　とありますが、Withで、

　　With Workbooks("外部データX.xlsx").Worksheets("入金").Columns(4)

　と指定していますので　
　　Workbooks("外部データX.xlsx").Worksheets("入金").Columns(4) _
　　　　　　.Cells(R_X_Acc + 1, 1 + m)

　となります。　

　.Columns(4).Cells(R_X_Acc + 1, 1 + m)という使い方はしたことはありませんが、
　Columns(4)を受けて、後ろのCells(x,y)のyは、１がＤ列となり、２はＥ列、３はＦ列と
　なるようですね。

　従って、上記はＤ列　+　mとなります。（m = 0～11）
　金額をＥ列から置いているなら

　ThisWorkbook.Worksheets(MySheet).Cells(20, 9 + m) = .Cells(R_X_Acc + 1, 2 + m)

　とします。

それから、宣言の記載等を省略していますが、このような質問をするときは、きちんと載せて
おきましょう。　そこに問題があるかもしれませんので・・

また、スキップ動作（Ｆ８）では上手く動いたというのは、よくわかりません。
普通にやれば、問題なく結果がでると思いますが・・

スキップでやった時にも、きちんと結果はでていましたか？
エラーが出なくても、論理的なエラーもありますので、結果を確認してください。

以下、私のほうで動いた内容を記載しておきます。

＜以下　参考＞

Sub test()

Dim Acc_ID As Integer
Dim X_Acc_ID As Object
Dim R_X_Acc As Integer
Dim MySheet As String

MySheet = "MySheet"
Acc_ID = 12345

With Workbooks("外部データX.xlsx").Worksheets("入金").Columns(4)

Set X_Acc_ID = .Find(Acc_ID)

If X_Acc_ID Is Nothing Then

Else

'列番号を取得
'R_X_Acc = .Cells.Find(Acc_ID).End(xlDown).Row　←　.End(xlDown)はいらない
'　　　　　　↑　このCellsはいらないのでは？

R_X_Acc = .Find(Acc_ID).Row
Dim m As Integer

For m = 0 To 11 '---12か月

'ThisWorkbook.Worksheets(MySheet).Cells(20, 9 + m) = .Cells(R_X_Acc + 1, 1 + m)　←　1 + mではない

ThisWorkbook.Worksheets(MySheet).Cells(20, 9 + m) = .Cells(R_X_Acc + 1, 2 + m)

Next m

End If

End With

End Sub

それでは

お礼

早速ありがとうございます。うまく動きました。
説明に不足がありまして申し訳ありません。ご想定の通りです。

ネットや本をみて見よう見まねで作っているのでそれぞれのコードをよく理解していませんでした。。。

改めましてありがとうございます。助かりました！