パラメータリストを探す2

Function パラメータリストを探す2(ByVal s As String, ByRef ws As Worksheet, ByRef rg As Range) As Long

Dim i As Long, j As Long

Dim s1 As String, s2 As String

パラメータリストを探す2 = 0

'MsgBox ws.Name

'MsgBox s

Set rg = ws.Cells.Find(s, LookIn:=xlValues, Lookat:=xlWhole)

If rg Is Nothing Then Exit Function

s1 = rg.Value

s2 = ws.Cells(rg.Row, rg.Column + 1).Value

'MsgBox s1 + " " + s2 (メッセージを出さない部分だけが、パラメータリストを探すとの違い）

パラメータリストを探す2 = 1

i = rg.Row

j = rg.Column

Set rg = ws.Cells(i, j + 1)

If rg.Value = "" Then パラメータリストを探す2 = 2

End Function