こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

実行時エラーの原因がつかめない(ExcelVBA)

下記コードで実行時エラーの原因がつかめません。どなたか助けて
ください。Sheet5のA,B列のデータを Sheet6 のA,B列に
一定の範囲で逆順にコピーする操作です。

Dim Dn As Integer, Zn As Integer
Dn = Sheets("sheet1").Range("E37").Value / 8 + 0.5
Zn = Round(Dn) ‘
Sheets("Sheet6").Range("A1:A65536").ClearContents
Xn2 = Sheets("Sheet3").Range("D65536").End(xlUp).Row - 5 
Xn1 = Sheets("Sheet5").Range("A65536").End(xlUp).Row
I = 0
Do
Ix = I + 1
Iz = Xn1 - I
Sheets("Sheet6").Range("A" & Ix & " : B" & Ix).Value _
Sheets("Sheet5").Range("A" & Iz & " : B" & Iz).Value
I = I + 1
Loop Until I = Xn2 * Zn + 1

投稿日時 - 2007-04-09 12:44:52

QNo.2906891

すぐに回答ほしいです

質問者が選んだベストアンサー

よくわかりませんが、あきらかに変なのは

Sheets("Sheet6").Range("A" & Ix & " : B" & Ix).Value _
Sheets("Sheet5").Range("A" & Iz & " : B" & Iz).Value

ですね。

もし、Sheets("Sheet5").Range("A" & Iz & " : B" & Iz)の値をSheets("Sheet6").Range("A" & Ix & " : B" & Ix)にもってきたいなら、

Sheets("Sheet6").Range("A" & Ix & " : B" & Ix).Value _
= Sheets("Sheet5").Range("A" & Iz & " : B" & Iz).Value

ではないでしょうか?(=が抜けてます。)

投稿日時 - 2007-04-09 13:02:21

お礼

ありがとうございます

投稿日時 - 2007-05-09 17:23:37

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

ステップインで実行した時に、具体的にどのタイミングでどういった内容のエラーが出るのでしょうか。
とりあえず「=」がなくてもエラーは出ませんのでもっと別のレベルでの問題かと思います。コード的にはおかしいですが。

投稿日時 - 2007-04-10 02:42:18

あなたにオススメの質問