こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel: シートの一括クリア

チャートを複数を含む5つのシート(シートの名前: CHT1~CHT5)のVBAで一括にクリアーにしたいです。
マクロの自動記録を使って出来たコードを参考に以下のコードを作りましたが、Cells.Selectのところでエラーになります。 Cells.Selectを消して、コードを走らせる前に、自分で各シートの左上のところをクリックして、シート全域をアクティブ状態にしたら動く様なのです。 VBAではマクロで出てくる Cells.Select は使えないのでしょうか。 何か方法があれば御教示下さい。

Private Sub CommandButton2_Click()

Dim i As Integer
Dim Name As String

For i = 1 To 5

Name = "CHT" + CStr(i)
Sheets(Name).Select
Cells.Select
Selection.Delete Shift:=xlUp

Next i

End Sub

投稿日時 - 2005-07-07 01:11:49

QNo.1496941

すぐに回答ほしいです

質問者が選んだベストアンサー

これならどうでしょう?
Sheet名をつけてCells.Selectです。

Dim i As Integer
Dim Name As String

For i = 1 To 3

Name = "CHT" + CStr(i)
Sheets(Name).Activate

Sheets(Name).Cells.Select

Selection.Delete Shift:=xlUp

Next i

投稿日時 - 2005-07-07 01:42:00

お礼

即答有難う御座いました。
完璧に動きました。
大変参考になりました。

投稿日時 - 2005-07-07 02:03:56

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問