|
▼sama さん:
こんにちは。
ユーザフォームに
検索用のテキストボックス
txt検索_列
txt検索_値
結果表示用のテキストボックス
txt結果_行
txt結果_値
コマンドボタン:実行
を配置して、
Private Sub 実行_Click()
Dim SName As String
Dim MyRange As Range
Dim R As Range
Dim LngAtai As Long
Dim LngGyo As Long
SName = "Sheet1"
With Sheets(SName)
Set MyRange = .Range(.Range(Me.txt検索_列 & "1"), _
.Range(Me.txt検索_列 & "65535").End(xlUp))
LngAtai = 0
For Each R In MyRange
If R.Value <= CLng(Me.txt検索_値) And _
CLng(R.Value) >= LngAtai Then
LngAtai = R.Value
LngGyo = R.Row
End If
Next
End With
Me.txt結果_行 = LngGyo
Me.txt結果_値 = LngAtai
End Sub
A、B、Cの各列がソートされているという条件があるのであれば
B列を最後まで見なくて良くなるので違う方法があると思います。
|
|