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

最終更新日：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.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.マクロって何？VBAって何？｜VBA入門
7.並べ替え（Sort）｜VBA入門
8.Excelショートカットキー一覧｜Excelリファレンス
9.エクセルVBAでのシート指定方法｜VBA技術解説
10.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門

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

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

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

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