セルの値をクリアするプログラムで、ランタイムエラー1004と、実行時エラーが出てしまいます。

Question

Anonymous

ＥＸＣＥＬ2003英語環境です。

ExcelVBAで、プログラムを作っています。

まず、前回作成したデータをクリアしてから、

フォームに新しいデータを表示するものを作成しようとしています。

.Range("A7:A8").ClearContents

.Range("G8:G11").ClearContents

Range("G8:G11").ClearContents

.Range(cells(15,"A"),cells(LastRow,"H")),ClearContents

と記述して実行すると、4行目でランタイムエラー１００４が出てしまいます。

LastRowでは、最終行を取得しています。

回避策を教えてください。

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

質問作成者が受け入れた回答

Anonymous

ぱっと見で、気になるところを二つ

＞Range("G8:G11").ClearContents

これは転記ミスだとおもいますが、Rangeの前の　．　がありません

>.Range(cells(15,"A"),cells(LastRow,"H")),ClearContents

Cellsの前に　．　を入れて下さい。

このCellsはWithで指定したシートではなく、ActiveSheetを参照してますので、結果として

シートをまたぐレンジを指定していることになります。

0 件のコメント

1 件の追加の回答

Answer 1

y sakuda さん、アドバイスありがとうございます。

龍一さん、こんにちは。

y sakuda さんからいただいたアドバイスをぜひご参考にしてみてくださいね。

同じような問題でお悩みの方にもご参考となるよう、今回は私の方で \[回答としてマーク\] をいたしました。

もちろんマーク後も返信は出来ますので、さらに質問があるという場合は、ご遠慮なく投稿を続けてください。

今後も Answers をよろしくお願いします。