シートクリアーを目的のメソッド別にVBA最速理解

エクセルVBAでシートを再利用するために、一度内容すべてをクリアしたい時があります。

普通は、Clearメソッドを使ってクリア操作を行いますが・・・

こんにちは、じゅんぱ店長（@junpa33）です。

　シートの操作の記事一覧

オプションボタンをVBAコードのみでシート設置する シート上のオプションボタンを削除するVBAコード オプションボタンの実用設定をVBAコード化する オプションボタン ２つのグループ化の使い分け フォームのオプションボタンを静的・動的設置する ワークシートを変数化する3つの手法 オブジェクト変数など エクセルシートの非表示コードをパスワード管理するVBA エクセルシートを削除する。Deleteの使い方と注意ポイント Excelシートを保護する。 記述方法とプロテクトされない操作 エクセルシートの並び順が思い通り！シート名一覧で自由自在 ワークシートのブック内移動と新規ブックへの移転を分かりやすく エクセルシートの名付け・変更と取得そして一覧化するコード シートの選択・指定方法とその意味。簡単でも軽視してはダメ Excelシートを追加・挿入するAddメソッドの使い方 シートの存在を確認する2種類のコードと実務での例題 シートへの【2種類のチェックボックス】の設置と使い方の違い オプションボタンのシートへの設置方法の詳細と使い方のコツ コマンドボタンをシートに設置する２つの方法 シートクリアーを目的のメソッド別にVBA最速理解 シートのコピーを最速に理解！VBAコードで異なる結果

エクセルVBA シートのクリアーを目的のメソッド別に最速理解

シートに記述された内容をクリアするということは、

その書かれている場所は各セルですので、

シート上のすべてのセルに対してクリアメソッドを実行するということになります。

Clearメソッドを実行すると、「値と数式」、「書式」、「コメント」全てがクリアされます。

ただ、全てをクリアするものだけでなく、

「値と数式」だけ、「書式」だけ、「コメント」だけクリアするというメソッドもあります。

これはセルに関わるものについての物ですが、

一方、シートに関わるものをクリアしたいという時があります。

「挿入した画像」や「プリント時の設定」をクリアしたり解除したりするときです。

例示としてこの表に対してクリアーを実行した時を検証します。合計欄はSUM関数で値を表示しています。

セルについて、「値」「罫線」「太字」「中央表示」「カラー設定」「コメント」「行の高さ変更」「列の幅変更」

シートについて、「画像の挿入」「プリントタイトル」

説明はこのような順番で行っていきます。

• 「値と数式」「書式」「コメント」全てクリアするClearメソッド
• 「値と数式」をクリアするClearContentsメソッド
• 「書式」をクリアするClearFormatsメソッド
• 「コメント」をクリアするClearCommentsメソッド
• 「挿入された画像」をクリアするDeleteメソッド
• 「プリントタイトル」をクリアする方法
• 「印刷エリア」など印刷時のシート設定のクリア
• 今までのものすべてを実行するとこうなる
• 最後にセルの高さと幅をデフォルトに戻す方法

MEMO

With ～ End Withステートメントについてはこちらを参考にしてください。

2020年12月4日 With～End Withの使い方。VBAコードを簡潔に記述する

「値と数式」「書式」「コメント」全てクリアするClearメソッド

Sub クリアA()

With Worksheets("Sheet1")
    .Cells.Clear
End With

End Sub

「値と数式」をクリアするClearContentsメソッド

Sub クリアB()

With Worksheets("Sheet1")
    .Cells.ClearContents
End With

End Sub

「書式」をクリアするClearFormatsメソッド

Sub クリアC()

With Worksheets("Sheet1")
    .Cells.ClearFormats
End With

End Sub

「コメント」をクリアするClearCommentsメソッド

Sub クリアD()

With Worksheets("Sheet1")
    .Cells.ClearComments
End With

End Sub

「挿入された画像」をクリアするDeleteメソッド

Sub クリアE()

With Worksheets("Sheet1")
    .DrawingObjects.Delete
End With

End Sub

「プリントタイトル」をクリアする方法

ページセットアップオブジェクト1

プリントタイトルをクリアするには、PageSetupオブジェクトのプロパティで設定操作します。

コード

Sub クリアF()

With Worksheets("Sheet1")
    .PageSetup.PrintTitleRows = False
End With

End Sub

実行結果はこうなります。

56行目に表示されていたプリントタイトルがクリアされました。（1行目の表示はクリアされません。）

「印刷エリア」など印刷時のシート設定のクリア

Sub クリアG()

With Worksheets("Sheet1")
    .PageSetup.PrintArea = False
    .PageSetup.RightHeader = ""
    .PageSetup.CenterFooter = ""
End With

End Sub

今までのものすべてを実行するとこうなる

Sub クリアH()

With Worksheets("Sheet1")
    .Cells.Clear
    .DrawingObjects.Delete
    .PageSetup.PrintTitleRows = False
    .PageSetup.PrintArea = False
    .PageSetup.RightHeader = ""
    .PageSetup.CenterFooter = ""
End With

End Sub

最後にセルの高さと幅をデフォルトに戻す方法

Sub クリアI()

With Worksheets("Sheet1")
    .Cells.UseStandardHeight = True
    .Cells.UseStandardWidth = True
End With

End Sub

シートのクリアーを目的のメソッド別に最速理解のまとめ

シートのクリアを目的とそのコード別に説明してきましたが、

あくまでもClearメソッドは、セルに対して行われるものであることを理解しておきましょう。

シートの設定の解除はClearでは無理ということを理解しておきましょう。

実行コードの記述については、一度に簡潔に記述することが出来ますので、パターン化しておくのも1つの方法だと思います。

短期間でエクセルVBAの独学習得を目指したいなら

エクセルVBAを独学する独習方法は、学習者それぞれ十人十色、多種多様と思われます。

けれども、

出来るだけ効率よく学習するためには、いくつかの大切なポイントがあります。

独学でもVBA習得の中級クラスに達するのはそんなに難しいことではありません。

先人が行った勉強方法をあなたがそのまま利用すればよいということです。

2021年3月18日 エクセルVBAを独学で習得する！ために大切な7つのポイントを解説します

独習のための大切な7つのポイントは、上記記事にて解説しています。

正直、VBAの学習について自分の周りの仕事（業務）からだけ実例を得るのでは効率良い習熟は無理です。

ハッキリ言って、

本当に短い期間でVBA習得を成功させたいなら、今使っている参考書が良書かどうかを判断し、新ツールとしてオンライン学習も取り入れて行うことが、

手っ取り早く短期間習得できるというのは間違いないでしょう。

このサイトでよく使うVBAのコードのトピックを纏めています。

エクセルVBA最速理解で必要な知識を集めよう！

今回の記事はここまでです。   最後までご覧いただき有難うございました。