セル選択で選択行の色を変更（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）

セルをダブルクリックすることで、そのセル値で行高および列幅を自動調整するマクロVBAになります。これは、以下の操作をマクロVBAでまとめて行うことになります。「行の高さの自動調整」「列の幅の自動調整」この二つの操作を、マクロVBAで一度にやるということです。

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

セルに英小文字が入力されたら直ちに英大文字に変換するVBAです。ワークシートのイベントを使い、セルの入力確定と同時に変換します。Worksheet_Changeイベントセルの値が変更された時に起動されるイベントプロシージャーです。

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

もはや、「いじめ」か「いたずら」、方眼紙l（神）Exceに、1枠1文字を入れろと言われて… VBAで処理すれば、こんな「いじめ」も「いたずら」も、サクッと克服できます。以下のような、セル結合の鬼と化したExcelで、罫線で囲んだ枠内に、1枠1文字で入れるという苦行を、VBAなら自動で処理することができます。

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Excelショートカットキー一覧｜Excelリファレンス
6.繰り返し処理（For Next)｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
9.セルに文字を入れるとは（Range,Value）｜VBA入門
10.とにかく書いてみよう（Sub,End Sub）｜VBA入門

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

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

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

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