Public Function FNC_rowpos(ByVal serch_string As String, ByVal serch_str_row As String, ByVal serch_max_row As String, ByVal serch_col As String, ByVal target_sheet As Worksheet) As Long
'-------------------------------------------------------------------------------
'   検索関数
'
'   受取　検索する文字列、検索開始行、検索終了行、検索列、検索するシート名( sheet1 等 ””無しで指定)
'　 戻値  行位置　（ヒットしない時は0)
'
'
'   呼び出しサンプル
'
'   Dim rowPos As Long
'   rowPos = FNC_rowpos("検索文字", "1", "100", "A", Sheet1)
'
'-------------------------------------------------------------------------------

    Dim SearchRange As Range
    Dim ResultRange As Range
  
    ' 引数で指定されたシートのデータ範囲を設定
    Set SearchRange = target_sheet.Range(serch_col & serch_str_row & ":" & serch_col & serch_max_row)

    '検索条件 完全一致の時
    Set ResultRange = SearchRange.Find(serch_string, LookAt:=xlWhole)
    '検索条件 部分一致の時
'    Set ResultRange = SearchRange.Find(serch_string, LookAt:=xlPart)
    
    ' 検索結果の判定
    If ResultRange Is Nothing Then
        ' ヒットしない時は「0」を返す
        FNC_rowpos = 0
    Else
        ' ヒットした時は「行位置」を返す
        FNC_rowpos = ResultRange.Row
    End If
End Function