「アプリケーション定義またはオブジェクト定義のエラー」の解決

Question

sheet1からsheet2に転記するにあたっての質問です。
sheet1の数値を使ってuとzを計算し、それをsheet2に出力したいのですが

「アプリケーション定義またはオブジェクト定義のエラーです」

というエラーが出てしまいます。現在のコードは以下になります。
どのように直せば良いのか教えて下さい。

      Worksheets("Sheet2").Cells(n, j + 1).Value = u
     Worksheets("Sheet2").Cells(n + 1, j + 1).Value = z

hotosys · Accepted Answer

No.1です。
後はuとzが怪しい事になりますが、とりあえず、
>Worksheets("Sheet2").Cells(n, j + 1).Value = u
を
On Error Resume Next
Worksheets("Sheet2").Cells(n, j + 1).Value = u
If Err.Number <> 0 Then
  DoEvents
End If
On Error GoTo 0
としてDoEventsの所にブレークポイントを入れて、ここに来た時(エラーが発生した時)の、n、j + 1、Worksheets("Sheet2").Cells(n, j + 1).Value、uの値を順に調べてみてください。
どれかがエラーになっているはずです。
また
>Worksheets("Sheet2").Cells(n + 1, j + 1).Value = z
も同様に調べてみてください。

onlyrom · Answer

＞「アプリケーション定義またはオブジェクト定義のエラーです」
＞現在のコードは以下になります
＞Worksheets("Sheet2").Cells(n, j + 1).Value = u
＞Worksheets("Sheet2").Cells(n + 1, j + 1).Value = z

当然ながらコードはこの２行だけではないですよね。(^^;;;
n,n+1,j+1の値が０以下またはシート最大行超でないなら
エラーはここではなく別のところにあるはずです。

それは、
＞計算された数値（正しい数値でした）が入力されていました
この文言からも推察できます。

で、以下のことをしてください。

このエラーダイアログに「デバッグ」ボタンがあると思いますが
それをクリックするとエラーコードの箇所に色が付きますので
その部分に変数があったらその上にマウス持っていくと、
その変数の値が表示されますのでそれが正しい値か確認してください。

また、そのコードを提示してください。


＞エラー表示されるのに正しい数値が出力される場合、放置しておいてもいいのでしょうか？

いくらなんでもこれは拙いでしょう。(^^;;;;

以上。

hotosys · Answer

セルの指定で行または列が0またはマイナスになると質問のエラーになります。

つまり
Worksheets("Sheet2").Cells(n, j + 1).Value = u
のnまたはj+1が0またはマイナスになっている場合、この行が質問のエラーになるので、1以上になるようにする。
Worksheets("Sheet2").Cells(n + 1, j + 1).Value = z
のn+1またはj+1が0またはマイナスになっている場合、この行が質問のエラーになるので、1以上になるようにする。

「アプリケーション定義またはオブジェクト定義のエラー」の解決

No.1です。

＞「アプリケーション定義またはオブジェクト定義のエラーです」

セルの指定で行または列が0またはマイナスになると質問のエラーになります。

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング