|
Private Sub Button検索_Click()
Dim r As Range
With Worksheets("顧客リスト")
Set r = Range("B:B").Find(Text氏名.Text, , xlValues, xlWhole)
If r Is Nothing Then
MsgBox "見つかりませんでした。"
Exit Sub
End If
MsgBox "" & r.Row
End With
End Sub
上記とし、うまくいきましたありがとうございます。<(_ _)>
もう一つ踏み込んでお聞きしたいのですが、r.Rowで取得した数値を使ってデーター表示
を変えたいのですが、よろしくお願いします。
Public Sub データ表示(行数 As Integer)
Dim Cnt As Integer
For Cnt = 1 To 7
Select Case Cnt
Case Else
TBL(Cnt).Value = データ範囲.Cells(行数, Cnt).Value
End Select
Next
Textレコード.Value = Spin移動.Value - 1 & "/" & レコード数取得
End Sub
|
|