Excel Excel表でマウスがある行や列が着色されるマクロ

| トラックバック(0)
excel
Excelで作業をしていると、大きな表を画面で見ていると、どの行(列)を見ているのかわかり辛くなることがある。ウィンド枠を固定して表示してもいいが、色が行や列に色がついていたらわかりやすい。オートフォーマットで1行おきに色づけする方法もあるが、印刷するときにも1行おきに着色されてしまうのが難点という場合もある。そんなとき、画面上でポインタがある部分だけ(マウスオン)行全体が色づけされると分かりやすい。間違いが激減するはず。そんなマクロ。
 
excel-1
 
<マクロの記述方法>
  1. 目的のブックを開く。
  2. Alt+F11 でVBE(Visual Basic Editor)を起動 (メニュー[ツール(T)]>[マクロ(M)]>[VBE(V)])
  3. VBAPojectでブック名を確認し目的のブックのThisWorkbookモジュールをダブルクリック
  4. 表示されたコードウィンドウへ下記のコードをコピー、貼付、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
 
----------------------------------------------------------------------------
※赤字部分がミソ。また色は見やすい薄い色がいいかと。
 
<参考サイト>
 
 

トラックバック(0)

トラックバックURL: http://www.luckyangel.us/mt/mt-tb.cgi/9

このブログ記事について

このページは、管理人が2013年7月24日 10:45に書いたブログ記事です。

ひとつ前のブログ記事は「特定のセルの値をフッターに指定して印刷させるマクロ」です。

次のブログ記事は「Excelの頭の0を入れて表示を常に6ケタにしたい」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。

2015年2月

1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28

ウェブページ

  • picture
Powered by Movable Type 4.261