|
▼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
|
|