Dim iCell As Range
With Application
.FindFormat.Font.FontStyle = "полужирный"
Set iCell = .Cells.Find(What:="", SearchFormat:=True)
If iCell Is Nothing Then
MsgBox "В активном листе - " & .ActiveSheet.Name & _
vbCrLf & "не найдено ни одной нужной ячейки", , ""
Else
MsgBox "В активном листе - " & .ActiveSheet.Name & _
vbCrLf & "найдена нужная ячейка - " & iCell.Address, , ""
End If
End With
Метод Find объекта Range
У метода Find, есть параметр SearchFormat. Как его использовать? Справка скромно молчит, MSDN не показывает...
Вот так можно искать ячейку с нужным параметром форматирования (только подобный поиск возможен начиная с MS Excel XP)
Цитата:
Originally posted by pashulka
Вот так можно искать ячейку с нужным параметром форматирования (только подобный поиск возможен начиная с MS Excel XP)
Вот так можно искать ячейку с нужным параметром форматирования (только подобный поиск возможен начиная с MS Excel XP)
Спасибо, но увы это не совсем то на что я надеялся.
Мне надо искать строку которая частично совпадает или содержит необходимые подстроки, ну к примеру:
ПС "Волжская", фид. 6 кВ № 11, 13, 14
и
ПС "Волжская", ф. 6 кВ - 11, 14
должны дать match (т.е. Find должен вернуть Range)
Если из строки ПС "Волжская", ф. 6 кВ - 11, 14 убрать . , а все пробелы заменить на символ подстановки *, то некоторых положительных результатов всё таки добиться можно.
Цитата:
Originally posted by honeybeer
Спасибо, но увы это не совсем то на что я надеялся.
Мне надо искать строку которая частично совпадает или содержит необходимые подстроки...
Спасибо, но увы это не совсем то на что я надеялся.
Мне надо искать строку которая частично совпадает или содержит необходимые подстроки...
Может быть Вам имеет смысл воспользоваться оператором [COLOR=blue]Like[/COLOR]?
Цитата:
Originally posted by Dmitrii
Может быть Вам имеет смысл воспользоваться оператором [COLOR=blue]Like[/COLOR]?
Может быть Вам имеет смысл воспользоваться оператором [COLOR=blue]Like[/COLOR]?
Всем спасибо за советы! Слишком заморочено выходит, единого критерия искомой строки нет, посему пришлось их банально проиндексировать.