VBAでセルの選択をするとエラーになってしまいます。

Question

VBAを勉強し始めたばかりの者です。

Windows11proでExcel2019の環境です。

練習のコードを書いていて　実行時エラー'1004;　「アプリケーション定義またはオブジェクト定義のエラーです」と出て実行できません。

こんなコードです。

Sub renshuu4()

Dim total As Single 

Range("D11").Select 

Do While ActiveCell.Value <> "" 

    total = total + ActiveCell.Value 

    ActiveCell.Offset(0, 1).Value = total 

    ActiveCell.Offset(1, 0).Select 

Loop 
```End Sub

コードに間違いがあるようには思えないのですが、

   Range("D11").Select

の辺りで引っ掛かってしまいます。

試しに

Sub renshuu4\_2()  

Range("D11").Select

としてみても同様です。

Excelの画面に戻って実行しようとすると×印と400が出ます。

どこがいけないのか、教えて頂けないでしょうか？

Answer 1

> Range("D11")

どのブックのどのシートを意図してますか？

何も指定しない場合は、アクティブなブック、アクティブなシートとなります。

又、シート種別はワークシート、チャートシート、マクロシートなどが存在しますがセルが存在するのはワークシートだけです。

マクロ内で対象とするブック／シートを指定していないので、マクロ起動時の状態によって意図しない結果やエラーが出るでしょう。

Answer 2

こんにちはテニプラ

私はアンナです、そして私はあなたの質問を手伝うことを嬉しく思います。このフォーラムでは、私たちはあなたと同じようにマイクロソフトの消費者です。

「範囲( "D11"))の行でエラーが発生しているようです。選択」。これは、指定したセルまたは範囲が作業中のワークシートに存在しないことが原因である可能性があります。

考えられる解決策の 1 つは、参照しようとしているワークシートの名前を確認し、スペルが正しいことを確認することです。別の解決策は、ワークシートが非表示、閉じ、または削除されているかどうかを確認することです。

次のコードを使用して範囲を選択することもできますが、範囲が存在しない場合はエラーになりません。

エラー時 次に再開 範囲 ("D11")。選ぶ エラー番号が 0 <>の場合、 メッセージボックス "範囲 D11 は存在しません" 終了する場合 エラー時 GoTo 0 このコードは、選択を試みる前に範囲が存在するかどうかを確認し、存在しない場合はメッセージを表示します。

これがお役に立てば幸いです;-)、これがあなたが必要とするものに反する場合はお知らせください、私はまだあなたの質問にもっと答えるのに役立ちます。

よろしくお願いいたします

アンナ

コミュニティに還元します。この答えがあなたの問題を解決したかどうかを示すことによって、この問題を抱えている次の人を助けてください。下部にある [はい] または [いいえ] をクリックします。

この回答は自動翻訳されています。文法や表現の誤りが発生した場合はご容赦ください。

Answer 3

アンナ様、アドバイス、大変有難うございました。

コードを書き込むモジュールが適切ではなかった様です。

勉強になりました。

Answer 4

アドバイス、大変有難うございました。

コードを書き込むモジュールが適切ではなかった様です。

勉強になりました。