EXCEL VBA アクティブセルが範囲内に含まれているかの判定・指定した範囲内のセル変更の判定（Intersect）

EXCEL VBA アクティブセルがセル範囲内に含まれているかの判定・指定した範囲内のセル変更されたかの判定（Intersectメゾット）

'
'
Sub Intersect00()  '２つのセル範囲の重なっている部分のセル範囲を取得

    Dim RngMix As Range
    
    Set RngMix = Intersect(Range("A1:C5"), Range("B4:D8"))
    
    MsgBox RngMix.Address
        
End Sub
'

'
'
Sub Intersect01()  '２つのセル範囲の重なっている部分のセル範囲を取得

    
    Dim SetRng, WithRng As Range
    
    Set WithRng = Range("A1:C5")  '指定範囲として設定セル（A1～C5)
    Set SetRng = Application.Intersect(ActiveCell, WithRng) 'アクティブセルが範囲内か範囲外か判定
    
    If SetRng Is Nothing Then
            MsgBox "指定範囲外"
        Else
            MsgBox "指定範囲内"
    End If

End Sub
'

EXCEL VBA　セル範囲内のセル内容を変更したら実行・入力後に処理実行（Intersectメゾット）

'
'
Private Sub Worksheet_Change(ByVal Target As Range) '更新データの記録


    Dim SetRng, WithRng As Range
    Dim I,ば会う L As Long
    
    Set WithRng = Range("A:E")  '指定範囲として列（A列～E列）を指定します。
    Set SetRng = Application.Intersect(ActiveCell, WithRng) 'アクティブセルが範囲内か範囲外か判定
    
    
    If SetRng Is Nothing Then  '指定範囲内か判定します。（A列～E列）
            
        Exit Sub  '範囲外は、プログラムから抜けます。
            
       Else  '---範囲内の処理---
            I = ActiveCell.Row 'アクティブセルの行を取得します。
            L = ActiveCell.Column 'アクティブセルの列を取得します。
            
            Application.EnableEvents = False  'イベント発生の無効化
            
            Cells(I - 1, "G") = Application.UserName  'EXCELアプリケーションユーザー名をG列に転記
            Cells(I - 1, "F") = Now  '現在の日時をF列に転記
            Cells(I - 1, "H") = Cells(1, L)  '変更した項目（社員番号・氏名・カタカナ・生年月日）を転記
            
            
            Application.EnableEvents = True  'イベント発生の有効化
    End If

End Sub
'

EXCEL VBA　セル範囲内の選択セルのをハイライト表示（目立たせる強調）します。（Intersectメゾット）

'
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '選択範囲を指定した行列のハイライト表示

    Dim sRow, lRow, sCol, lCol, nRow, nCol As Long
    Dim RngSet As Range
        
    Set RngSet = Range("C3").CurrentRegion.Offset(1, 1)  'セルC3を起点とする表の範囲を取得して見出し部分の行１・列１分範囲をずらします。
    Set RngSet = RngSet.Resize(RngSet.Rows.Count - 1, RngSet.Columns.Count - 1) '上でずらした表範囲の最終行と右側部分を－1にして、表範囲を揃えます。
     
    If Not Application.Intersect(ActiveCell, RngSet) Is Nothing Then  '表の範囲（数値部分）以外は、このプログラムから抜けます。
             
        sRow = RngSet.End(xlUp).Row + 1 '表の範囲のハイライト表示させる先頭行を設定
        lRow = RngSet.End(xlDown).Row  '表の範囲のハイライト表示させる最終行を設定
    
        sCol = RngSet.End(xlToLeft).Column + 1  '表の範囲のハイライト表示させる先頭列を設定
        lCol = RngSet.End(xlToRight).Column  '表の範囲のハイライト表示させる最終列を設定
        
        nRow = Target.Row  '現在の選択行の行番号を代入
        nCol = Target.Column   '現在の選択列の列番号を代入
        
        Application.ScreenUpdating = False '画面の更新を停止する。
        
        RngSet.Interior.ColorIndex = 0  'ワークシート上のセル（A4～L23）の背景色を消す。
                
        Range(Cells(sRow, nCol), Cells(lRow, nCol)).Interior.Color = vbGreen '現在の選択行の背景色を緑に塗りつぶします。(指定範囲内)
        Range(Cells(nRow, sCol), Cells(nRow, lCol)).Interior.Color = vbGreen '現在の選択列の背景色を緑に塗りつぶします。(指定範囲内
                
        Application.ScreenUpdating = True  '画面の更新を再開する
        
    End If

End Sub
'
'