EXCEL VBA 選択セル・選択行・列　ハイライト表示・目立たせる・見やすく・強調）テクニック

EXCEL VBA 選択セル・選択行・列　ハイライト表示・目立たせる・見やすく・強調）テクニック (SelectionChange)

EXCEL VBA 選択行のハイライト表示　（目立たせる・見やすく・強調）：SelectionChange)

'
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '選択行・ハイライト表示

    Application.ScreenUpdating = False '画面更新の無効
    
    With Target
        .Worksheet.Cells.Interior.ColorIndex = 0  'ワークシートの背景色を消します。
        .EntireRow.Interior.Color = vbGreen  '選択行の背景色をグリーンにする。
    End With
    
    Application.ScreenUpdating = True  '画面更新の有効

End Sub
'

EXCEL VBA 選択列のハイライト表示　（目立たせる・見やすく・強調）：SelectionChange)

'
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '選択列・ハイライト表示

    Application.ScreenUpdating = False  '画面更新の無効
    
    With Target
        .Worksheet.Cells.Interior.ColorIndex = 0  'ワークシートの背景色を消します。全て消します。
        .EntireColumn.Interior.Color = vbYellow  '選択列の背景色をイエローにする。
    End With
    
    Application.ScreenUpdating = True '画面更新の無効

End Sub
'

EXCEL VBA 選択した行・列同時のハイライト表示　（十字型・クロスハイライト）：SelectionChange)

'
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '選択行列・ハイライト表示

    Application.ScreenUpdating = False    '画面更新の無効
    
    With Target
        .Worksheet.Cells.Interior.ColorIndex = 0  'ワークシートの背景色を消します。全て消します。
        .EntireRow.Interior.Color = vbMagenta   '選択行の背景色をマゼンダにする。
        .EntireColumn.Interior.Color = vbMagenta   '選択列の背景色をマゼンダにする。
     
    End With
    
    Application.ScreenUpdating = True  '画面更新の有効
    
End Sub

'

EXCEL VBA 選択セルのみハイライト表示：SelectionChange)

'
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '選択セルのみハイライト表示

    Application.ScreenUpdating = False  '画面更新の無効
 
    With Target
        .Worksheet.Cells.Interior.ColorIndex = 0  'ワークシートの背景色を消します。全て消します。
        .Interior.Color = vbRed  '選択セルの背景色を赤にする。
    End With '
    
    Application.ScreenUpdating = True   '画面更新の有効

End Sub
'

EXCEL VBA 指定範囲を指定したハイライト表示　（指定した範囲のみハイライト表示：SelectionChange)

'
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '選択範囲を指定した行列のハイライト表示
'
    Dim lRow, lCol As Long
    
    If Application.Intersect(ActiveCell, Range("A4:L23")) Is Nothing Then  'セルのA4～L23までの範囲以外は、このプログラムから抜けます。
        Exit Sub
    Else
        
        lRow = Target.Row  '現在の選択行の行番号を代入
        lCol = Target.Column   '現在の選択列の列番号を代入
        
        Application.ScreenUpdating = False '画面の更新を停止する。
        
        Range("A4:L23").Interior.ColorIndex = 0  'ワークシート上のセル（A4～L23）の背景色を消す。
                
        Range("A" & lRow & ":L" & lRow).Interior.Color = vbGreen  '現在の選択行の背景色を緑に塗りつぶします。(指定範囲内)
        Range(Cells(4, lCol), Cells(23, lCol)).Interior.Color = vbGreen '現在の選択列の背景色を緑に塗りつぶします。(指定範囲内
                
        Application.ScreenUpdating = True  '画面の更新を再開する

    End If

End Sub
'