Поиск в книге - Microsoft Office Excel

Andr · 20.11.2007, 20:48

Можно ли обратиться к листу в книге по его номеру?

pashulka · 20.11.2007, 21:47

Конечно можете, но при условии, что в рабочей книге наличествует рабочий лист с нужным номером(индексом), проще говоря If Worksheets.Count >= Index Then ...

Код:

Dim iCell As Range
Set iCell = ThisWorkbook.Worksheets(1).UsedRange. _
Find(What:="Andr", LookIn:=xlValues, LookAt:=xlPart)

If Not iCell Is Nothing Then
   MsgBox "Искомое значение найдено", , iCell.Address(External:=True) 
Else
   MsgBox "К сожалению, ничего подходящего не найдено", , ""
End If

20.11.2007, 20:48	#1
Andr Пользователь Регистрация: 11.04.2007 Сообщений: 75	Поиск в книге Можно ли обратиться к листу в книге по его номеру?

20.11.2007, 21:47	#2
pashulka Форумчанин Регистрация: 03.11.2006 Сообщений: 524	Конечно можете, но при условии, что в рабочей книге наличествует рабочий лист с нужным номером(индексом), проще говоря If Worksheets.Count >= Index Then ... Код: `Dim iCell As Range Set iCell = ThisWorkbook.Worksheets(1).UsedRange. _ Find(What:="Andr", LookIn:=xlValues, LookAt:=xlPart) If Not iCell Is Nothing Then MsgBox "Искомое значение найдено", , iCell.Address(External:=True) Else MsgBox "К сожалению, ничего подходящего не найдено", , "" End If`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поиск по книге	PIKA4Y	Microsoft Office Excel	5	03.02.2009 20:23
доступ к книге под логином	prosto_i	Microsoft Office Excel	10	31.07.2008 12:36
поиск листа в книге	tat-besidovska	Microsoft Office Excel	1	12.02.2008 11:00
Проблема в Гостевой книге	Tempting	HTML и CSS	4	10.02.2007 00:18
Поиск в книге	asale	Microsoft Office Excel	7	26.01.2007 07:29