Страницы: 1
RSS
Метод Find
 
Доброго времени суток!  
 
Уважаемые форумчани, помогите пожалуйста разобраться с методом Find.  
 
Вот уже час пытаюсь понять, как им искать в диапазоне нужный текст с помощью формы.  
 
Создал форму, в ней "TexBox" (где ввожу название) и кнопку "Найти".  
Вот начало кода:  
------------------------------    
Dim Город As Range  
Set Город = Sheets("Города").Range("A1:A10").Find(What:=UserForm.Поле_Город)  
...  
------------------------------  
 
Код работает, но ищет название города даже по введенной первой (правильной) букве, даже с малой.  
 
Как заставить искать полное название города с помощью метода "Find"?!
<FONT COLOR="CadetBlue">
 
Насколько я знаю, надо поставить атрибут MatchCase=True - тогда будет искать слово полностью
 
Попробуйте так:  
Set Город = Sheets("Города").Range("A1:A10").Find(what:=UserForm.Поле_Город, LookIn:=xlValues, lookAt:=xlWhole)
 
понял, не знаю ...
 
What:=UserForm.Поле_Город  наверно все таки правильней будет    
 
What:=UserForm.Поле_Город.text  
 
Посмотрите на свойство: lookat:=xlwhole     (искать целиком, xlPart - искать часть)
 
Большое спасибо, Дмитрий (The_Prist), Юрий, Dophin и webley за столь быстрые ответы и Вашу помощь!  
 
Забыл совсем за "LookAt", так как мало использовал этот метод.  
 
Получилось так:  
-------------------------  
...  
Set Город= Sheets("Города").Range("A1:A10").Find(What:=Me.Поле_Город, _  
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)  
...  
-------------------------  
 
Без "MatchCase" никак, так как у меня города с больших букв, может быть перебор, но мне нужно именно так :)
<FONT COLOR="CadetBlue">
 
Пока смотрел, пробовал и отвечал, не все ответы заметил :)  
 
Спасибо Dophin еще раз, добавил "text".
<FONT COLOR="CadetBlue">
Страницы: 1
Читают тему
Наверх