Excelで作業をしていると、大きな表を画面で見ていると、どの行(列)を見ているのかわかり辛くなることがある。ウィンド枠を固定して表示してもいいが、色が行や列に色がついていたらわかりやすい。オートフォーマットで1行おきに色づけする方法もあるが、印刷するときにも1行おきに着色されてしまうのが難点という場合もある。そんなとき、画面上でポインタがある部分だけ(マウスオン)行全体が色づけされると分かりやすい。間違いが激減するはず。そんなマクロ。
<マクロの記述方法>
- 目的のブックを開く。
- Alt+F11 でVBE(Visual Basic Editor)を起動 (メニュー[ツール(T)]>[マクロ(M)]>[VBE(V)])
- VBAPojectでブック名を確認し目的のブックのThisWorkbookモジュールをダブルクリック
- 表示されたコードウィンドウへ下記のコードをコピー、貼付、Alt+QでExcelにもどる。
----------------------------------------------------------------------------
'マウスオン着色EXCELシート内マクロ
'マウスオンされた行が着色されるマクロ
'事前に範囲を指定して、[ホーム]-[条件付き書式]-[数式]内に数式が必要
'=OR(CELL("row")=ROW(), CELL("col")=COLUMN())
'行だけの場合:=OR(CELL("row")=ROW())
'
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
----------------------------------------------------------------------------
※赤字部分がミソ。また色は見やすい薄い色がいいかと。
<参考サイト>