Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Visual Basic 6 и Excel / 2 сообщений из 2, страница 1 из 1
02.03.2004, 12:40
    #32427684
Сер. Алекс.
Сер. Алекс.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic 6 и Excel
помогите мне пожалуйста! мне нужно в Excel найти нужные данные сразу на всех листах. Я написал код, но он находит только на одном листе:

On Error GoTo ErrorHandler
'STF = InputBox("Что Вы хотите найти?", _
'"Поиск", StringToFind)
If STF <> "" Then
StringToFind = STF
wb1.Sheets("P25").Range("A:Z").Find(StringToFind, after:=ActiveCell).Activate
End If
Exit Sub

ErrorHandler:
MsgBox "К сожалению, такого выражения нет"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2004, 13:19
    #32427806
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic 6 и Excel
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
On Error GoTo ErrorHandler 
'STF = InputBox("Что Вы хотите найти?", _ 
' "Поиск" , StringToFind) 

dim ws as worksheet

If len(STF) >  Then 
StringToFind = STF 
 for each ws in wb1.worksheets
    wsRange( "A:Z" ).Find(StringToFind, after:=ActiveCell).Activate 
 next ws
End If 
Exit Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Visual Basic 6 и Excel / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]