アクティブセルに色をつける
wookbook内に下記コードを記載します。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
そして、色をつけたい範囲の対象セルの条件付書式に下記を記載します。
=OR(CELL("row")=ROW(), CELL("col")=COLUMN())
wookbook内に下記コードを記載します。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
そして、色をつけたい範囲の対象セルの条件付書式に下記を記載します。
=OR(CELL("row")=ROW(), CELL("col")=COLUMN())