VBA使用頻度の高いコード（１８）：空欄枠塗りつぶすマクロ

空欄枠塗りつぶすマクロ

空欄枠塗りつぶすマクロ。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Dim blankCells As Range

Sub 枠作成()
'枠作成
Sheets("成果物").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders.LineStyle = xlContinuous

'空欄色塗り

For Each blankCells In Selection
If blankCells.Value = "" Then
blankCells.Interior.ColorIndex = 15
End If
Next

Range("A1").Select
End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝