Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38067 / 76732

←次へ　｜　前へ→


	【43808】「Worksheet("A")以外のWorksheet」という定義

おじや - 06/10/26(木) 10:42 -


	引用なし

	パスワード

みなさん、質問です。
Worksheetが１～８まであります。
外部WorkBookからデータを読み込むときに
Worksheet"１"以外のシートはデータを全てクリアする
マクロを入れたいと考えています。
このとき、Dimで「Worksheet"１"以外の全シート」
といったような定義はどう記述したらいいのか教えてください。

今は下記のような無駄な繰り返しの記述になっています。
初心者ゆえ、ご教授よろしくお願いします。

Sub シートのクリア()
　　Set WS1 = Worksheets("２")
　　Set WS2 = Worksheets("３")
　　Set WS3 = Worksheets("４")

　　WS1.Select
　　Cells.Select
　　Selection.ClearContents
　　Range("A1").Select

　　WS2.Select
　　Cells.Select
　　Selection.ClearContents
　　Range("A1").Select

　　WS3.Select
　　Cells.Select
　　Selection.ClearContents
　　Range("A1").Select

　　Worksheets("１").Activate

End Sub

1 hits

▼

【43808】「Worksheet("A")以外のWorksheet」という定義 おじや 06/10/26(木) 10:42

≪