先日、資料を作成して、最終確認したらこんな風になっていました・・・
空白セルを灰色の背景色に色を付けていったのですが、
列の一部をグループ化して、非表示になっているのに気が付きませんでした。
そのため、隠れていた空白セルは真っ白なまま・・・
一列全部とか、空白セルが連続しているとか、数個であれば修正も楽だったのですが、
飛び飛びで何十個もありました・・・
そこで、選択した、連続した範囲だけを対象にしたマクロを作成してみました。
今回は、空白セルだったら色を付けるマクロです。
**********************************************
マクロ
Sub 選択範囲_空白黄色()
Dim LCell As Long 'Last Cell
Dim i As Long
LCell = Selection.Count '選択した範囲のセル数を数えます
For i = 1 To LCell
If Selection(i) = "" Then
Selection(i).Interior.ColorIndex = 6
End If
Next i
End Sub
------------------------------------------------------
Sub 選択範囲_空白灰色()
Dim LCell As Long 'Last Cell
Dim i As Long
LCell = Selection.Count
For i = 1 To LCell
If Selection(i) = "" Then
Selection(i).Interior.ColorIndex = 15
End If
Next i
End Sub
------------------------------------------------------
Sub 選択範囲_空白塗りつぶしなし()
Dim LCell As Long 'Last Cell
Dim i As Long
LCell = Selection.Count
For i = 1 To LCell
If Selection(i) = "" Then
Selection(i).Interior.ColorIndex = xlAutomatic
End If
Next i
End Sub
------------------------------------------------------
Sub 選択範囲_空白ハイフン()
Dim LCell As Long 'Last Cell
Dim i As Long
LCell = Selection.Count
For i = 1 To LCell
If Selection(i) = "" Then
Selection(i) = "-"
End If
Next i
End Sub
**********************************************
選択した範囲の左上のセルが１番になります。
選択した範囲のセル数を数えて、１番目のセルからループで回していけるので、
空白セルだったら指定の色を付ける、または、ハイフンを入力するってだけです。
そんなに難しくないですよね。
最初にも書きましたが、このマクロは
連続して選択したセルの範囲に動作します。
あとは、いつも通りこのマクロをリボンに登録して、
いつでも、どんなファイルにでも使えるようにしておきます。
私は、リボンに専用のタブを作成して、よく使う色を登録しました。
------------------------------------------------
個人用マクロブックについてはこちら
リボンに登録についてはこちら
＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／
