EXCEL VBA 右隣・左隣のセルの参照・検索結果の両隣のセルを参照する（Nextプロパティ・Previousプロパティ）

EXCEL VBA 右隣・左隣のセルの参照・検索結果の両隣のセルを参照する（Nextプロパティ・Previousプロパティ）

'
'
Sub Next_Previous00()

    Dim Cellset As Range

    Set Cellset = Range("B3")  '起点となるセル（B3）

    MsgBox Cellset.Next  'セル（B3）⇒　右を参照　セル（C3）①
        
    MsgBox Cellset.Previous  'セル（B3）⇒　右を参照　セル（A3）②
        
        
End Sub
'

EXCEL VBA 右隣・左隣のセルの参照・検索結果の両隣のセルを参照しメッセージを表示します。（Nextプロパティ・Previousプロパティ）

'
'
Sub Next_Previous01() '該当するセルを検索して、その左右のセルを参照してメッセージボックスに表示します。

    Dim Hitcell As Range
    
    Set Hitcell = Range("B:B").Find(what:="山形県") 'B列の中に検索値：山形県が有るか検索します。

    If Hitcell Is Nothing Then  'B列の中に検索値：山形県がなければ、プログラム終了
            Exit Sub
        Else
            MsgBox Hitcell & "は、人口" & Hitcell.Next & "人で、コードは、" & Hitcell.Previous & "です。"
            '該当する検索値があれば､該当する行のA列とC列の値を表示します｡
    End If

End Sub
'

EXCEL VBA 一覧データから一致する右側のデータを転記する。（Nextプロパティ）

'
'
Sub Next_Previous02()'都道府県名を検索して一致する人口を転記します。

    Dim Hitcell, Searchcell As Range

    
    For Each Searchcell In Range("G2:G5") 'セルG2～G5の間を繰り返す。
       
        Set Hitcell = Range("B:B").Find(what:=Searchcell)  'G列の都道府県名から、B列の都道府県名の中より検索します。
        If Hitcell Is Nothing Then
                Searchcell.Next = "" '該当する都道府県名がない場合は、空白（H列）
            Else
                Searchcell.Next = Hitcell.Next  '都道府県名が一致する場合は、人口（C列）を参照して人口（H列）に転記します。
            End If
    
    Next Searchcell

End Sub
'

EXCEL VBA 一覧データから一致する右側のデータを転記する。（Next/Previousプロパティ）

'
'
Sub Next_Previous03() '氏名を検索して一致する氏名の社員番号と年齢を転記します。

    Dim Hitcell, Searchcell As Range

    
    For Each Searchcell In Range("G2:G12") 'セルG2～G5の間を繰り返す。
       
        Set Hitcell = Range("B:B").Find(what:=Searchcell) 'G列の氏名から、B列の氏名一覧の中より検索します。
        If Hitcell Is Nothing Then　’一致した氏名が無いか判定します。
                Searchcell.Next = "" '該当する氏名がない場合は、空白を転記
                Searchcell.Previous = "" '該当する氏名が無い場合は、空白を転記
            Else
                Searchcell.Next = Hitcell.Next　’該当した場合は、右側のセルC列（年齢）をH列（年齢）に転記します。
                Searchcell.Previous = Hitcell.Previous　’該当した場合は、右側のセルA列（社員番号）をF列（社員番号）に転記します。
        End If
    
    Next Searchcell

End Sub
'