sheet1からsheet2に転記するにあたっての質問です。
sheet1の数値を使ってuとzを計算し、それをsheet2に出力したいのですが
「アプリケーション定義またはオブジェクト定義のエラーです」
というエラーが出てしまいます。現在のコードは以下になります。
どのように直せば良いのか教えて下さい。
Worksheets("Sheet2").Cells(n, j + 1).Value = u
Worksheets("Sheet2").Cells(n + 1, j + 1).Value = z
No.2ベストアンサー
- 回答日時:
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
も同様に調べてみてください。
hotosysさん
回答ありがとうございます。
調べてみたところ
u=0
z=0
となっていましたが、sheet2には
4098.34864786929や
-5235.01068699772など、
計算された数値(正しい数値でした)が入力されていました。
エラー表示されるのに正しい数値が出力される場合、放置しておいてもいいのでしょうか?
何度も申し訳ありませんが、ご回答宜しくお願い致します。
No.3
- 回答日時:
>「アプリケーション定義またはオブジェクト定義のエラーです」
>現在のコードは以下になります
>Worksheets("Sheet2").Cells(n, j + 1).Value = u
>Worksheets("Sheet2").Cells(n + 1, j + 1).Value = z
当然ながらコードはこの2行だけではないですよね。(^^;;;
n,n+1,j+1の値が0以下またはシート最大行超でないなら
エラーはここではなく別のところにあるはずです。
それは、
>計算された数値(正しい数値でした)が入力されていました
この文言からも推察できます。
で、以下のことをしてください。
このエラーダイアログに「デバッグ」ボタンがあると思いますが
それをクリックするとエラーコードの箇所に色が付きますので
その部分に変数があったらその上にマウス持っていくと、
その変数の値が表示されますのでそれが正しい値か確認してください。
また、そのコードを提示してください。
>エラー表示されるのに正しい数値が出力される場合、放置しておいてもいいのでしょうか?
いくらなんでもこれは拙いでしょう。(^^;;;;
以上。
ご回答ありがとうございます。
変数の値を調べてみたところ、
excelに出力する際に、列番号が256のときにエラーになっていることがわかりました。
ですので、行と列を逆にして出力したら解決しました。
ありがとうございました!
No.1
- 回答日時:
セルの指定で行または列が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以上になるようにする。
早急な回答ありがとうございます。
しかし、ステップインで確認してみましたところどちらの最低値も
n=4
j=1
のように、1以上の自然数でした。
他に考えられる原因があれば回答をお願い致します。
何度も申し訳ありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Excel(エクセル) エクセル VBAの構文について 2 2023/02/10 18:26
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) Excelのマクロ ブック間である範囲をコピー Workbooks(“a.xlsx“).Sheets 3 2022/05/12 17:02
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
EXCELのマクロが 実行時エラー50290 で異常終了する(KillTimer使用時)
Excel(エクセル)
-
エクセルVBA 実行時エラー 50290について
Visual Basic(VBA)
-
VBAのこの実行時エラーは何故起きる?
Visual Basic(VBA)
-
-
4
簡易リストボックス
その他(Microsoft Office)
-
5
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
実行時エラー3001「引数が間違...
-
実行時エラー48発生時のDLL特定...
-
マクロについて教えてください...
-
VBS実行時エラー オブジェクト...
-
DataGridView からの値取得に関...
-
VBAでのエラー
-
EXCEL/VBAで、自分のPCだけエラ...
-
INSERT INTOステートメント構文...
-
VBSで変数の宣言はできないので...
-
実行時エラー -'-2147417848
-
AccessVBAでExcelを起動し、罫...
-
OLEDB.NETで接続できない
-
なぜこんな初歩的なVBAのIf文で...
-
【Excel VBA】マクロをボタンに...
-
Application.ActiveInspectorで...
-
デバッグ時はOK、デバッグ無し...
-
VBAがブレークモードになっ...
-
VBAのコードがエラーになっ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
マクロについて教えてください...
-
ExcelVBA Range クラスの Page...
-
実行時エラー3001「引数が間違...
-
VBS実行時エラー オブジェクト...
-
VBAがブレークモードになっ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
EXCEL VBAマクロ中断でデバッグ...
-
VBSで変数の宣言はできないので...
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
AccessVBAでExcelを起動し、罫...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
Application.ActiveInspectorで...
おすすめ情報