人に聞けない痔の悩み、これでスッキリ >>

チャートを複数を含む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

このQ&Aに関連する最新のQ&A

VBA select」に関するQ&A: VBA Select Caseについて

A 回答 (1件)

これならどうでしょう?


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
    • good
    • 0
この回答へのお礼

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

お礼日時:2005/07/07 02:03

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング