- VBAなんでも質問スレ
708 ：デフォルトの名無しさん[sage]：2014/06/14(土) 15:16:41.92 ID:UnUM1hDE - こんにちは。セルの不一致部分を取り出して、１から並べ直し、
修正したデータを入力するというマクロを作成しているのですが、
同じ列で複数の間違いがあった場合、iを進めないように、コメントアウトしているif文を入れたのですが、
そうすると、２行目で 実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです
が表示されてしまいます。
列に間違いは２つ以上ないということで、コメントアウト部分を削除したままなら問題なく稼働するのですが、
この１文を入れるとどうしても進みません。
Arrayには、不一致部分のセルの座標が入っています。
全然ここから進まなくて困っていますので、どうかご教授お願い致します。
Do
ws.Cells(Array_l(j), Array_r(j)).Value = s1.Cells(i + 1, Array_r(j)).Value
'B1の数値を修正する
ws.Cells(Array_l(j), Array_r(j)).Interior.Color = xlNone
'B1のセル背景を元に戻す
ws2.Cells(Array_l(j), Array_r(j)).Interior.Color = xlNone
'B2のセル背景を元に戻す
'If Array_l(j) = Array_l(j + 1) Then
i = i - 1
'End If
j = j + 1
i = i + 1
If Array_l(i) = Empty Then Exit Do
Loop
|
- VBAなんでも質問スレ
709 ：デフォルトの名無しさん[sage]：2014/06/14(土) 15:23:57.74 ID:UnUM1hDE - コメントアウトしている部分は
i=i-1
の部分です 'つけ忘れです、すみません。
|
- Excel VBA 質問スレ Part33
737 ：デフォルトの名無しさん[sage]：2014/06/14(土) 15:36:29.51 ID:UnUM1hDE - http://peace.2ch.net/test/read.cgi/tech/1342087380/
こちらで質問したのですが、
こちらのスレのほうがよかったのですかね？
708です
|
- VBAなんでも質問スレ
711 ：デフォルトの名無しさん[sage]：2014/06/14(土) 17:00:57.85 ID:UnUM1hDE - >>710
返信ありがとうございます
iを調節するIF文を入れるとなぜか
s1.Cells(i + 1, Array_r(j)).Value にエラーが出るんです。
s1.Cells( 2 , 4 ).Value
という風に変えてもエラーが出るんです。
IF文を消せば消えるんですが。
|
- VBAなんでも質問スレ
712 ：デフォルトの名無しさん[sage]：2014/06/14(土) 17:23:19.85 ID:UnUM1hDE - 事故解決できました！ありがとうございました！
|