Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск совпадений в текста в ячейке и нахождение ее координат
 
#1
25.01.2019 19:46:46
Добрый вечер!

Никак не могу укротить метод find
Вроде и по хелпу делаю, но что то не получается.
Код
Option Explicit
Sub kkk()
Dim fcell As Range

Set fcell = ThisWorkbook.Worksheets("Лист1").Find("фыва", , xlValues, xlPart).Row
MsgBox fcell
End Sub

Нужно найти совпадение в тексте ячейки и найти ее координаты.
 
 
 
#2
25.01.2019 19:52:04
Код
Sub kkk()
Dim fcell As Range
  Set fcell = ThisWorkbook.Worksheets("Лист1").Columns("C").Find("фыва", , xlValues, xlPart)
  MsgBox fcell.Address
End Sub
 
 
 
#3
25.01.2019 19:52:16
.Row уберите
 
 
 
#4
25.01.2019 20:01:01
Спасибо! Но почему:
Код
Set fcell = ThisWorkbook.Worksheets("Лист1").Columns("C").Find("фыва", , xlValues, xlPart).row

не сработает, а

Код
fcell.row

сработает?
 
 
 
#5
25.01.2019 20:04:51
Вы определили Dim fcell As Range
 
 
 
#6
25.01.2019 20:06:02
И find возвращает range - разве нет?
 
 
 
#7
25.01.2019 20:09:24
Да find возвращает range при наличии Set, но у вас было
Код
Find("фыва", , xlValues, xlPart).Row
 
 
 
#8
25.01.2019 20:14:45
в каком хелпе Вы видели чтобы свойство Row обьекта Range присваивалось переменной с помощью оператора Set?
msgbox x.Row сработает с любым х типа Range отличным от Nothing
Цитата
tsutse написал:
по хелпу делаю
у меня сложилось впечатление что при написании макросов Вы пользуетесь тем же методом что и я:
я хаотично стучу по клавишам, и как только получается макрос, который точно решает мою задачу, на этом процесс написания макроса считаю законченным
Изменено: Ігор Гончаренко - 25.01.2019 20:15:44
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
Страницы: 1
Наверх