アクティブセルのある行を選択して背景色を変える
タイトル通り。
納品実績表を編集していて、
「この案件は背景色を変えておきたいわ〜」
ていうときに使用します。
ちなみにここではグレーです。
マクロの記録をとってから編集しました。
Option Explicit Sub 網掛け() ' ' 網掛け Macro ' ' Keyboard Shortcut: Ctrl+l ' Dim amikake amikake = ActiveCell.Row Rows(amikake).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.249977111117893 .PatternTintAndShade = 0 End With End Sub