ExcelのVBAのマクロで他のシートの複数項目をクリアする方法

ＶＢＡマクロで、他のシートの複数の項目を一括でクリアする方法ってありますか?
Sheet1でマクロを実施中に、Sheet2の「Range("C1:D11":"F1")」を画面を切り替えずに、クリアするにはどのようにコーディングするのでしょか?

よろしくおねがいします。

No.2 ベストアンサー 回答者： onlyrom 回答日時： 2008/06/04 17:11

　

＞Range("C1:D11":"F1")

こういう範囲設定の方法はありませんぬ。。(^^;;;
今回の場合は、

　　Range("C1:D11,F1")　　　←　こうです。

と、軽～く突っ込んでおいて、、、(^^;;;

●セルに入力されている【値】のみクリアーするなら、

Sheets("Sheet2").Range("C1:D11,F1").ClearContents

●値だけでなく、書式（罫線、文字色など）の書式もクリアーするなら

Sheets("Sheet2").Range("C1:D11,F1").Clear

序に、次も覚えておくといいでしょう。
●書式のみのクリアーなら、　ClearFormats
●コメントのクリアーなら、　ClearComments

以上。
　

この回答へのお礼

有難うございます。
試してみます。

お礼日時：2008/06/04 18:20

No.3 回答者： kiki_s 回答日時： 2008/06/04 18:04

>”インデックスが有効範囲にない”とエラーがでるのですが・・・

シート名とVBAでのシート指定は一致していなければ駄目です。

今回の場合、
Sheets("シート２").Range("C1:D11,F1").ClearContents
になります。

シート名の一部にスペースが入っていても同じで、必ず完全一致でなければなりません。

この回答へのお礼

何がいけなかったんだろ?

上記方法で出来ました。
有難うございます。

お礼日時：2008/06/04 18:21

No.1 回答者： hana-hana3 回答日時： 2008/06/04 16:53

Sheets("Sheet2").Range("C1:D11, F1").Clear

この回答への補足

シート名を　"Sheet2"　から　"シート２"　と変更していた場合はどうなのでしょう?
それが原因か”インデックスが有効範囲にない”とエラーがでるのですが・・・

補足日時：2008/06/04 17:27