本ページはプロモーションが含まれています
指定した色のセルの入力内容を一括でクリアする。
サンプルシートはこちら。
いつも手抜きですいません。
頑張ってるブロガーさんは
綺麗なサンプルシート作られてます。
私は・・・(笑)

今回行うのは黄色に塗られているセルのみをクリアする方法。
VBAを使用すれば可能です。
VBAの始め方
まずVBAの始め方から説明します。
メニューバーに「開発」というのが表示されている方は下のふたつは飛ばしてください。
まずは「ファイルメニュー」の「オプション」を選択。

次に、「 リボンのユーザー設定」で「開発」にチェックマーク

そうすると、「開発」が選択できるようになります。

VBAのコードを入力
VBA始めていきます。
まずはシート名のタブを右クリックして「コードの表示」。

VBAの入力画面が開きます。

ここにコードを入力します。

入力するの面倒くさいのでコード貼っておきますね。
Sub 黄色のセルをクリアする()
Dim R as Long
Dim C as Long
Dim i as Long
Dim j as Long
R = Cells(Rows.Count, 1).End(xlUp).Row
C = Range("A1").End(xlToRight).Column
Application.ScreenUpdating = False
For j = 1 To C
For i = 1 To R
If Cells(i, j).Interior.Color = RGB(255, 255, 0) Then
Cells(i, j).ClearContents
End If
Next i
Next j
Application.ScreenUpdating = True
End Sub
入力ができたらVBAエディターは閉じてください。
マクロを実行するためのボタンを作ろう
マクロの起動を簡単にするためにボタンを作ります。
「開発」→「挿入」→「ボタン」

ボタンをクリックしたら図形を書くように
好きなところにボタンを設置します。
すると「マクロの登録」というウィンドウが表示されます。
ここで先ほど作ったVBAの名前
コードの一番上のSubの所です。
黄色のセルをクリアする
(好きな名前に変えて下さいね)
を選択してOKで閉じます。

これで設置したボタンにマクロが関連付けられました。

実行して指定した色のセルの入力内容をクリアしてみる
実行は簡単。
先ほど作ったボタンをクリックするだけ。

黄色のセルの内容が全てクリアされました。
色の指定の仕方を教えて!
色の指定はコードの中の
RGB(255, 255, 0)
で指定しています。
これが黄色を表してます。
もちろんいろんな色で可能です。
色のRGBの入力値の調べ方
RGB値を調べる方法は、色のついたセルを右クリック。
セルの書式設定

「塗りつぶし」→「その他の色」

ユーザー設定を選ぶとRGB値が表示されます。

これを先ほどのコードの
RGB(255, 255, 0)
に入力すればOKです。
複数の色のセルを同時にクリアしたいなら
「OR」で条件を追加すれば可能です。
If Cells(i, j).Interior.Color = RGB(255, 255, 0) Or Cells(i, j).Interior.Color = RGB(146, 208, 80) Then
Cells(i, j).ClearContents
End If
Excelの魔術師へ! さいしょの一歩
最後に
このファイルを保存する時は拡張子を .xlsmで保存してくださいね。
マクロ有効ブックとして認識されます。
ほかにもいろいろ書いてます
↓ 下記からご覧ください
サイトマップ
ブックマークして頂けると嬉しいです
よろしくお願いいたします
コメント