Excel セルを塗りつぶすVBAマクロ

2020年3月12日

VBAマクロでセルを塗りつぶす

セルを赤色とかで塗りつぶすショートカットがないので、マクロ作成し、マクロにショートカットを割り当てる方法を試してみました。作成したマクロ。


' 現在のセルと選択範囲のセルを赤く塗る
Sub PaintCurrentCellRed()
' 現在のセルを赤く塗る
ActiveCell.Interior.ColorIndex = 3
' 選択範囲のセルを赤く塗る
Dim r As Range
For Each r In Selection
r.Interior.ColorIndex = 3
Next
End Sub

VBA

Posted by fanfanta