Поиск ячейки - Microsoft Office Excel

PIKA4Y · 29.01.2010, 16:43

Помогите гуру EXCELа

Нужен макрос поиска ячейки на листе со значением (заранее известным).
И если такого значения не найдено, макрос прекращается, а если найдено, то выскакивало окно MsgBox

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

motorway · 29.01.2010, 16:45

А простое использование встроенного поиска не подойдет? Там есть флаг "Ячейка целиком". Ctrl+F

EducatedFool · 29.01.2010, 16:50

Какой вопрос - такой и ответ:

Код:

Sub Поиск()
    If Not Cells.Find(InputBox("Что искать?", , "135"), , , xlWhole) Is Nothing Then MsgBox "Найдено!"
End Sub

29.01.2010, 16:43	#1
PIKA4Y Регистрация: 29.07.2008 Сообщений: 6	Поиск ячейки Помогите гуру EXCELа Нужен макрос поиска ячейки на листе со значением (заранее известным). И если такого значения не найдено, макрос прекращается, а если найдено, то выскакивало окно MsgBox Заранее спасибо!

29.01.2010, 16:45	#2
motorway Участник клуба Регистрация: 28.06.2009 Сообщений: 1,950	А простое использование встроенного поиска не подойдет? Там есть флаг "Ячейка целиком". Ctrl+F Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек Быстрый проверенный хостинг.

29.01.2010, 16:50	#3
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Какой вопрос - такой и ответ: Код: `Sub Поиск() If Not Cells.Find(InputBox("Что искать?", , "135"), , , xlWhole) Is Nothing Then MsgBox "Найдено!" End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
поиск в названиях листов с любой ячейки	Окоча Юра	Microsoft Office Excel	7	21.01.2010 00:34
Поиск диапазоне по формату ячейки	Meta2	Microsoft Office Excel	2	11.11.2009 13:57
Автоматический поиск ячейки по заданным параметрам	Renzo	Microsoft Office Excel	5	07.03.2009 17:48
Как разделить число и текст в одной ячейки на две ячейки.	neboskreb	Microsoft Office Excel	2	15.04.2008 19:39
поиск строки и ячейки	Lacky	Microsoft Office Excel	11	27.11.2007 10:56