Windows7 & Office2010 Excel2010

Print Friendly, PDF & Email

アクティブセルの行に色を付ける

投稿日:2017年2月7日 更新日:

Excelで横に長い表を操作する場合、[ウィンドウ枠の固定]を使って列を固定して見やすくすることもできますが、それでも似たような数字が並んでいると見間違えやすいですね。
アクティブセルのある行に色を付けて見やすくできないかなと検索すると、たくさんヒットしました。
その中でも一番分かりやすく設定しやすいと思ったのが、下のページで解説されているものでした。
このページで解説されているとおりに設定して、とても便利になりました。(人-)謝謝 !
アクティブセルのある行・列を目立たせる:Excel エクセルの使い方-イベントプロシージャ/VBA

条件付き書式の設定

今回、この設定方法を図説して記録しておきます。
まず、条件付き書式の設定をします。設定したい範囲を選択します。
巨大な表の場合、表内の任意のセルを選択して、キーボードから[Ctrl]+[*](テンキー)を押すと便利です。
アクティブセル領域を選択するショートカットキーです。

[ホーム]タブの[スタイル]グループにある[条件付き書式]をクリックして、[新しいルール]をクリックします。
新しいルール

[新しい書式ルール]ダイアログボックスが表示されたら、[数式を使用して、書式設定するセルを決定]を選択して、[次の数式を満たす場合に値を書式設定]のテキストボックスに[=CELL("ROW")=ROW()]と入力します。
[書式]ボタンをクリックして、[塗りつぶし]タブから任意の色を選択します。
[OK]ボタンをクリックして閉じます。
新しい書式ルール

VBEを起動してコード貼り付け

そして、[開発]タブから[Visual Basic]をクリックします。
開発タブ

[開発]タブがない場合は、開発タブの表示を参照して[開発]タブを表示させるか、以下の方法でVBEを起動させてください。

シート見出しで右クリックします。メニューの中から[コードの表示]をクリックします。[開発]タブが表示されている場合でも、同じ操作で表示させることができます。(下の画像はExcel2016ですが、他のバージョンでも操作できます。)
シート見出し

VBEの左側にある[ThisWorkbook]をダブルクリックします。
以下のコードを貼り付けます。

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = true
End Sub

VBEウィンドウは右上の閉じるボタンで閉じます。
VBE

これで、アクティブセルの行が色付きになります。
アクティブセルの行

指定したシートのみで動作させたい時

[ThisWorkbook]にコードを記述すると、ブック内で上記の条件付き書式を設定したすべてのシートで有効になります。もし、それを避けたいのであれば、指定のシートのイベントプロシージャ[Worksheet_selectionChange]に下のコードを貼り付けてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

下は、Sheet1のみに動作させたい場合ですね。
VBE

アクティブセルの行と列を色付きにしたい場合

また、アクティブセルのある列も色付きにしたいのであれば、条件付き書式の数式を下のように編集します。
=OR(CELL("row")=ROW(), cell("col")=COLUMN())
書式ルールの編集

アクティブセルの行と列が色付きになります。
アクティブセルの行と列

保存するときは、マクロ有効ブックとして保存してください。拡張子は[.xlsm]となります。

解決できないことは【teratail】に質問してみましょう。

参考Officeのバージョンによって操作が異なる場合があります。以下の記事で、お使いのOfficeのバージョンを確認する方法を解説しています。

Office(Word、Excel、PowerPointなど)のバージョンを確認する方法

Microsoft Officeも時を得て、大きく様変わりしてきました。トラブルを解決しようとするとき、あるいは、何かの操作を探すときなど、 ...

続きを見る

あなたへのおすすめ

関連記事

Outlook2010の条件付き書式

Outlook2003や、Outlook2007では、[ツール]メニューから送受信メールを色分けする機能がありました。 メールの色分けの設定 ...

上書きし忘れたファイルの復元

編集後、上書きし忘れたことに気がついて慌てた経験はありませんか?Office2010以降であれば、もしかすると復元することができるかもしれま ...

Office2003の色と同じ色にするには

職場では、Office2003とOffice2010のバージョンが混在しているので、旧バージョンに合わせなければならないということが頻繁にあ ...

ブック間の数式のコピーは同一ウィンドウ内で

ブック間で数式をコピーする時には、同一ウィンドウ内で行ってください。Excel2010までは、別ウィンドウで開いた状態では値の貼り付けになっ ...

リストの参照範囲の設定

[データの入力規則]の設定で、[元の値]を参照する場合、別シートの範囲も設定できるようになりました。 Excel2007までは、別シートの範 ...

-Windows7 & Office2010 Excel2010

Copyright © 2001-2017 初心者のためのOffice講座 All Rights Reserved.

Copyright© 初心者のためのOffice講座 , 2017 AllRights Reserved Powered by AFFINGER4.