|
まだ初心者さん、Asakiさん、こんにちは
Asakiさんに1票!
> ActiveSheet.Cells(8, 2).Value = ws1.Cells(i, 9).Value
> ActiveSheet.Cells(8, 5).Value = ws1.Cells(i, 10).Value
> ActiveSheet.Cells(A, 1).Value = ws1.Cells(i, 4).Value
> ActiveSheet.Cells(A, 2).Value = ws1.Cells(i, 5).Value
> ActiveSheet.Cells(A, 3).Value = ws1.Cells(i, 6).Value
> ActiveSheet.Cells(A, 4).Value = ws1.Cells(i, 7).Value
> ActiveSheet.Cells(A, 5).Value = ws1.Cells(i, 11).Value
> ActiveSheet.Cells(A, 11).Value = ws1.Cells(i, 12).Value
> ActiveSheet.Cells(A, 11).Value = ws1.Cells(i, 12).Value
を下記のようにシートを明示するように変更してみてください。
Worksheets(d).Cells(8, 2).Value = ws1.Cells(i, 9).Value
Worksheets(d).Cells(8, 5).Value = ws1.Cells(i, 10).Value
Worksheets(d).Cells(A, 1).Value = ws1.Cells(i, 4).Value
Worksheets(d).Cells(A, 2).Value = ws1.Cells(i, 5).Value
Worksheets(d).Cells(A, 3).Value = ws1.Cells(i, 6).Value
Worksheets(d).Cells(A, 4).Value = ws1.Cells(i, 7).Value
Worksheets(d).Cells(A, 5).Value = ws1.Cells(i, 11).Value
Worksheets(d).Cells(A, 11).Value = ws1.Cells(i, 12).Value
Worksheets(d).Cells(A, 12).Value = ws1.Cells(i, 13).Value
#ステップ実行はしてみましたか?で、その結果はいかがでしたか?
>>この意味は??
>はい。卸が異なると営は必ずちがうということです。
>>(同じ卸を使う営はないの意味?コードとなにか関連があるのですか?)
こちらの答えは?
|
|