お世話になります。
エクセルファイルを、Microsoft Excel 97-2003 ワークシート (.xls)のバージョンから、Microsoft 365にしました。
以下のように、コードを書いておりますが、検索結果が、該当なしとなります。
原因を教えて頂きたいと思います。
どうぞよろしくお願い致します。
Private Sub CommandButton2_Click() '検索
Dim mySt(2 To 5) As String
Dim i&, j&, n&
Dim lonText&
Dim lonRange As Range
With ThisWorkbook.Worksheets("住所録")
lonText = Val(UserForm1.TextBox1.Value)
MsgBox lonText
Set lonRange = .UsedRange.Columns("b:g") 'UsedRange.Columns(入力されているセルの列数をカウントする
On Error Resume Next
For i = 2 To 5
mySt(i) = Application.WorksheetFunction.VLookup(lonText, lonRange, i, False)
Next
On Error GoTo 0
End With
For i = 2 To 5
Controls("textbox" & i).Text = mySt(i)
If mySt(i) = Empty Then Controls("TextBox" & i).Text = "該当なし"
Next
End Sub
