|
かみちゃん さん,有難うございます。実は、matchによる検索の部分ですが、
フォーム上の2つのテキストボックスに入力した数値で他sheetに作成してある
表より縦、横の交差する場所の答えを検索してくるように作成しておりますが、
場合によっては、検索した答えはそのままでテキストボックスに入力した縦、横
の座標を示すどちらかを変更しなければならない場合がでてきたもので、つまり
偽の解を表示しなければならないわけです。
説明がうまく出来なくて申し訳ありません。
Private Function ColumnSearh(vntKey As Variant, _
rngScope As Range, _
Optional lngOver As Long) As Long
Dim vntFound As Variant
vntFound = Application.Match(vntKey, rngScope, 1)
If Not IsError(vntFound) Then
If vntKey = rngScope(, vntFound).Value Then
ColumnSearh = vntFound
End If
lngOver = vntFound + 1
Else
lngOver = 1
End If
End Function
|
|