Jump to content

организация поиска из xl В Visual Basic


Recommended Posts

Доброго всем вечера! подскажите что не так с кодом?не ищет данные в из столбца "А".

Private Sub Command3_Click() 'поиск 
  Dim q As String
  q = Text1(0).Text
  If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub
  On Error Resume Next
  Xl.Worksheets("BD").Columns("A:A").Find(What:=q, LookIn:=xlValues, LookAt:=xlPart, LookAt:=xlWhole).Activate
  If Err Then
    MsgBox "В списке (" & Text1(0) & ") строки нет!, Попробуйте изменить критерии поиска или его место!", 64, "СООБЩЕНИЕ"
  Else
    MsgBox "Искомые данные (" & Text1(0) & ") найдены!", vbInformation, "СООБЩЕНИЕ"
   End If
End Sub
Edited by assei
изменения пояснения к теме
Link to comment
Share on other sites

В строке

 Xl.Worksheets("BD").Columns("A:A").Find(What:=q, LookIn:=xlValues, LookAt:=xlPart, LookAt:=xlWhole).Activate

уберите лишний

, LookAt:=xlWhole

 

  • Upvote 1
Link to comment
Share on other sites

В 11.05.2017 в 19:32, NatM сказал:

В строке


 Xl.Worksheets("BD").Columns("A:A").Find(What:=q, LookIn:=xlValues, LookAt:=xlPart, LookAt:=xlWhole).Activate

уберите лишний


, LookAt:=xlWhole

 

удаление ни дало ни каких изменений

Link to comment
Share on other sites

Я могу работать только с макросами...

В макросе работает. Единственно, я ссылку на книгу XL убирала, и он работал в текущей книге... Т.е. единственное отличие с вашим кодом в этом ...

UPD. Есть еще одно различие: значение q я задавала прямо в коде. Попробуйте тоже задать жестко

Edited by NatM
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...