入力済みセルの値を消去することがあり、1個1個手作業で空白にするのが面倒だと思ったことはありませんか?
Excel-VBAのコマンドボタンを押すことにより、指定した複数セルの値が一瞬で一括消去されて空白にするClearContentsを使った方法をご紹介します。
ClearContents
ClearContentsを使うには、データ消去したいセル番号を書いてからClearContentsで挟んであげます。
表示中のシート上でセル1か所のデータ消去
Private Sub CommandButton1_Click()
Range(“A1”).ClearContents
End Sub
- コマンドボタン1がクリックされたら
- セルA1の値を消去する
- マクロ記録終了
この場合シート名が指示されていないので、開いているシート上でないと、全く違うシートのセルAP3の値が消去されてしまうのでご注意を!
シート名を指定してセル1か所のデータ消去
Private Sub CommandButton1_Click()
Sheets(“HOME”).Range(“A1”).ClearContents
End Sub
- コマンドボタン1がクリックされたら
- シート名「HOME」のセルA1の値を消去する
- マクロ記録終了
どのシートを表示中でも、シート名を指定しているので確実に消去することができるので、トラブルを防ぐためにもシート名を加えておく方が大事ですよ。
2か所のセルのデータ消去
Private Sub CommandButton1_Click()
Sheets(“HOME”).Range(“A1,B1”).ClearContents
End Sub
- コマンドボタン1がクリックされたら
- シート名「HOME」のセルA1とB1の値を消去する
- マクロ記録終了
セル番号の間に「,」を付けるだけで、複数セルをまとめて消去することができます。
セルの範囲を指定してデータ消去
Private Sub CommandButton1_Click()
Sheets(“HOME”).Range(“A1:B2”).ClearContents
End Sub
- コマンドボタン1がクリックされたら
- シート名「HOME」のセルA1~B2の範囲のセルの値を消去する
- マクロ記録終了
セル番号の間に「:」を付けるだけで、セルの範囲をまとめて消去することができます。
.ClearContentsを使ってデータを一度クリアしてから、作業をするほうが間違えやエラーが無くなるので、必須のVBAコードですね。
関連記事
-
セルの操作
エクセルVBAで複数セルを一括で結合・解除を繰り返し処理する方法
エクセルの表を印刷するには見栄えの為にセルの結合を行ったら、並べ替えをするとエラーになって困ったことありませんか? Mergeメソッドを書き加えれば、自動的にセル… -
セルの操作
エクセルで苗字と名前2つのセルの値をくっつける(セルの値の結合)
CSVファイルなどを取り込んだ時に、苗字と名前が別々のセルに分かれていることが多いと思いますが、1つのセルに結合して表示したいと思ったことありませんか? 例えば… -
セルの操作
複数のセルの値を別のセルにコピーする
【VLOOKUPでは数式の値は検索不能?】 ボウリングのリーグ戦の成績表をエクセルで作っていて、リーグ戦では一般的に初回はレーン抽選によって対戦相手が決まり、2週目以… -
セルの操作
入力済み最終行を見つけて追記・削除する方法
【エクセルVBAのユーザーフォームで一発検索する】 ボウリング場のリーグ戦成績表でも使っているエクセル。 エクセルには参加者のスコアーなど様々なデータを入力します… -
セルの操作
エクセルVBAで指定した範囲の複数セルの値を一括クリアする方法
入力済みセルの値を消去することがあり、1個1個手作業で空白にするのが面倒だと思ったことはありませんか? Excel-VBAのコマンドボタンを押すことにより、指定した複数… -
テキストボックス
複数のテキストボックスの値を一括で複数のセルの値に書き換える方法
【セルA1~A10の値をまとめてテキストボックス1~10に転記する】 ボウリング場のリーグ戦の成績表でも使っているエクセルで、リーグ戦のルールなどを設定するユーザー… -
セルの操作
エクセルVBAでリストの中から不要な行や列を非表示にする方法
小さなお店ではスタッフのシフト表をエクセルで管理している事が多いと思いますが、時間別出勤リストを表示させるときにお休みの人は非表示にして見やすくしたいと思い…
紅葉スポット
-
水戸偕楽園のもみじ谷ライトアップは無料で水戸駅からバスで行ける
水戸の偕楽園と言えば梅林が有名なので、訪れたことが1度はあるかもしれませんが、以外と言ったら失礼なのですが、もみじ谷と呼ばれる場所があり、約170本のもみじやか… -
中禅寺湖を上から見られる絶景ポイント半月山展望台へ滞在時間50分
【紅葉見頃】10月中旬~11月上旬 最近インターネットや雑誌などで日光を紹介する時によく見る機会がある、中禅寺湖を上から撮った写真の場所ってどこだろうって思いま… -
城峯公園で十月桜ともみじの紅葉のピンクと赤のコラボの絶景へ
群馬県との県境で標高500mにある高台に位置し、下久保ダム(神流湖)を眺めることができる城峯公園には、なんと晩秋から初冬にかけて開花し、別名十月桜とも呼ばれてい… -
長門峡の紅葉橋・竜宮淵へバスで紅葉も雪景色も楽しめる萩紅葉名所
日本の自然100選にも選ばれ紅葉シーズンには臨時シャトルバスも運行される長門峡(ちょうもんきょう)へは、JR山口線でも防長交通バスでも行くことができるので、全長5…. -
日光駅から避暑地で紅葉名所の日光三名瀑の霧降の滝へバスで滞在時間30分
【紅葉見頃】10月下旬~11月上旬 日光三名瀑「華厳の滝」「裏見の滝」「霧降の滝」といわれ、年間を通じて観光に訪れる人が多い近畿スポットで、夏は避暑地として秋は… -
四方木ふれあい館から四方木不動滝の紅葉絶景へ安房天津駅からバス
県道から山道に入り林の中にある秘境で、水量によって左右に分かれることから夫婦滝とも呼ばれています。 山深い大自然の中を散策していく四方木不動滝と紅葉がひそかな…