Excel VBA質問箱 IV

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

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


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

52465 / 76736

←次へ　｜　前へ→


	【29109】Re:ワークシート間の検索集計

toki - 05/9/25(日) 8:27 -


	引用なし

	パスワード

▼ponpon さん：

こんにちは。ご回答ありがとうございます。

>ならば、前もってデータ範囲をクリアしておけばよいと思います。
>ループで回した方が、コードの記述も短くてすむと思います。
>

クリアはこんな感じで良いのでしょうか？
初期化してループさせてみます。アドバイスありがとうございました！

'帳票初期化
　　　　With Worksheets("人事評価シート")
　　　　　　.Cells(13, 1.Resize(5, 1).Value = ""
　　　　　　.Cells(19, 1).Resize(5, 1).Value = ""
　　　　　　.Cells(27, 1).Resize(5, 1).Value = ""
　　　　　　.Cells(33, 1).Resize(5, 1).Value = ""
　　　　　　.Cells(39, 1).Resize(5, 1).Value = ""
　　　　　　.Cells(45, 1).Resize(5, 1).Value = ""
　　　　　　.Cells(13, 2).Resize(5, 1).Value = ""
　　　　　　.Cells(19, 2).Resize(5, 1).Value = ""
　　　　　　.Cells(13, 3).Resize(5, 1).Value = ""
　　　　　　.Cells(19, 3).Resize(5, 1).Value = ""
　　　　　　.Cells(13, 4).Resize(5, 1).Value = ""
　　　　　　.Cells(19, 4).Resize(5, 1).Value = ""
　　　　　　.Cells(13, 6).Resize(5, 1).Value = ""
　　　　　　.Cells(19, 6).Resize(5, 1).Value = ""
　　　　　　.Cells(13, 7).Resize(5, 1).Value = ""
　　　　　　.Cells(19, 7).Resize(5, 1).Value = ""
　　　　　　.Cells(13, 8).Resize(5, 1).Value = ""
　　　　　　.Cells(19, 8).Resize(5, 1).Value = ""
　　　　　　.Cells(27, 2).Resize(5, 1).Value = ""
　　　　　　.Cells(33, 2).Resize(5, 1).Value = ""
　　　　　　.Cells(39, 2).Resize(5, 1).Value = ""
　　　　　　.Cells(45, 2).Resize(5, 1).Value = ""
　　　　End With

0 hits

▼

【28969】ワークシート間の検索集計 toki 05/9/19(月) 23:13