Поиск Find

@Baykal555 · Регистрация: 08.09.2017

Студворк — интернет-сервис помощи студентам

Всем привет!

Подскажите как сделать так, чтобы при нахождении поиска выделялась искомая ячейка?

Пробовал вот так:

Visual Basic
1
2
3
set fcell = workbooks("File1").sheets(1).range("A1:A10").find (workbooks("file2").Sheets(2).range("a1")
 
fcell.activate

То есть в случае нахождении ячейки А1 в файле "File1" найденная ячейка должна стать активной, а лучше поменять в ней заливку.

Но ничего не происходит

Заранее спасибо!

@elixi · 01.05.2020, 16:07

так заработает:

Visual Basic
1
2
3
4
5
6
Sub FindSub()
Dim fcell As Range
Set fcell = Workbooks("File1").Sheets(1).Range("A1:A10").Find(Workbooks("file2").Sheets(2).Range("a1"))
Workbooks("File1").Sheets(1).Activate
fcell.Select
End Sub

но есть вопросы, что хотите делать,
если искомые данные не находятся в диапазоне,
или находятся там не в одной только ячейке
почитайте тут как работать с методом Range.Find:

https://docs.microsoft.com/ru-... range.find

@Baykal555 · 02.05.2020, 08:28 **[ТС]**

elixi, а как добавить поиск этой ячейки на наличие содержания (то есть поиск со звездочкой)? Чтобы находил не точное соответствие, а если содержится.

ВВП789 · 02.05.2020, 10:28

Baykal555, у FIND есть такой параметр -
LookAt Необязательный Variant Может быть одной из следующих констант XlLookAt: xlWhole или xlPart.
Нажмите [F1] для разнообразия

@Baykal555 · 02.05.2020, 10:33 **[ТС]**

ВВП789,

В моем случае LookAt:=xlWhole?

I can · 02.05.2020, 10:35

Сообщение от Baykal555

В моем случае LookAt:=xlWhole?

С английским плохо совсем ?

@elixi · 02.05.2020, 21:31

Сообщение от Baykal555

поиск со звездочкой

можно и так:

@Hugo121 · 02.05.2020, 21:54

Результат красивее если в параметры поиска добавить что-то вроде after:=Range("B10").

@Narimanych · 02.05.2020, 22:07

Baykal555,

Сообщение от Baykal555

а лучше поменять в ней заливку

Сообщение от Baykal555

как добавить поиск этой ячейки на наличие содержания (то есть поиск со звездочкой)

Как вариант - красим в желтый..

Visual Basic
1
2
3
4
5
6
7
Sub MMM()
Application.ScreenUpdating = False
For Each Cell In Workbooks("File1").Sheets(1).Range("A1:A10")
  If Cell.Value Like "*" &  Workbooks("file2").Sheets(2).Range("A1").Value & "*" Then Cell.Interior.Color = vbYellow
Next
Application.ScreenUpdating = True
End Sub

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Baykal555 1 / 1 / 0 Регистрация: 08.09.2017 Сообщений: 391
	02.05.2020, 08:28 [ТС]
	elixi, а как добавить поиск этой ячейки на наличие содержания (то есть поиск со звездочкой)? Чтобы находил не точное соответствие, а если содержится. 0

ВВП789 Заблокирован
	02.05.2020, 10:28
	Baykal555, у FIND есть такой параметр - LookAt Необязательный Variant Может быть одной из следующих констант XlLookAt: xlWhole или xlPart. Нажмите [F1] для разнообразия 0

@Baykal555 1 / 1 / 0 Регистрация: 08.09.2017 Сообщений: 391
	02.05.2020, 10:33 [ТС]
	ВВП789, В моем случае LookAt:=xlWhole? 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	02.05.2020, 21:54
	Результат красивее если в параметры поиска добавить что-то вроде after:=Range("B10"). 2