セル選択で選択行の色を変更（Worksheet_SelectionChange）

公開日：2013-08-26　最終更新日：2013-08-26

セル選択で選択行の色を変更（Worksheet_SelectionChange）

Worksheet_SelectionChangeは、セルの選択範囲を変更した時に起動されます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Target
選択されたセルが、Rangeオブジェクトとして渡されます。


  
    
      Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　Dim myRng As Range

　　Set myRng = Range("A2:D100")

　　myRng.Interior.ColorIndex = xlNone

      　　If Not Intersect(myRng, Target(1)) Is Nothing Then

　　　　Cells(Target(1).Row, myRng(1).Column).Resize(, 5).Interior.Color = RGB(150, 200, 255)

　　End If

End Sub

上記では、特定範囲内（A2:D100）の選択行の色を変更しています。

If Not Intersect(myRng, Target(1)) Is Nothing Then

これで、選択セル範囲の先頭セルが、特定範囲内（A2:D100）かの判定をしています。

選択行の色の変更なので、見た目重視の処理になりますので、

色を変える範囲や、何色にするか等は、いろいろやってみて良いものを選んでください。

同じテーマ「マクロVBAサンプル集」の記事

ブックを開いた時に指定シートを表示（Workbook_Open）

ブックを開いたときに自動的にマクロVBAを実行するにはWorkbook_Openを使います。Workbook_Openは、ブックを開いた時に自動的に実行されるイベントです、ブックを開いたときに自動的にマクロVBAを起動する方法としてはAuto_Openもあります。

ブックが閉じられる直前に保存済を確認（Workbook_BeforeClose）

Workbook_BeforeCloseは、ブックを閉じる直前に起動されるイベントです、手動で閉じる場合も、VBAで閉じる場合でも起動されます。ブックが未保存の場合、無条件でブックを保存するブックが未保存の場合は、Closeをキャンセルする。

シートが選択された時に指定セルに移動（Worksheet_Activate）

Worksheet_Activateは、シートが選択された時に実行されるイベントです、VBEの「MicrosoftExcelObjects」内の各シートに記述します。上記では、シートが選択されたとき、A1セルに移動しています。Application.GotoRange("A1"),

ダブルクリックで行高・列幅調整（Worksheet_BeforeDoubleClick）

・Worksheet_BeforeDoubleClick ・行高・列幅自動調整のサンプルVBAコード

英小文字が入力されたら大文字に変換（Worksheet_Change）

・Worksheet_Changeイベント・英小文字が入力されたら大文字に変換するVBA ・英小文字が入力されたら大文字に変換するVBAの解説

セル選択で選択行の色を変更（Worksheet_SelectionChange）
方眼紙Excel（神エクセル）に対応するVBA

・方眼紙Excel（神エクセル）のサンプル・方眼紙Excel（神エクセル）に対応するVBAコード・方眼紙Excel（神エクセル）に対応するVBAの規則と使い方・方眼紙Excel（神エクセル）に対応するVBAの最後に

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.条件分岐（Select Case）｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
セル選択で選択行の色を変更（Worksheet_SelectionChange）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
セル選択で選択行の色を変更（Worksheet_SelectionChange）