Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Остановка выполнения рабочего кода из Win98 в WinXP / 3 сообщений из 3, страница 1 из 1
23.09.2004, 13:49
    #32708391
PanzerFaust
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Остановка выполнения рабочего кода из Win98 в WinXP
Уважаемые! Помогите понять, в чем затык - есть кусочек кода, отлично работавший на 98 и 2000 виндах

Columns("B:B").Select
Set R = Selection.Find(What:=lineval, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True)

If R Is Nothing Then

Sumline1 = 0

Else

Selection.Find(What:=lineval, After:=ActiveCell, LookIn:=xlValue, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
End if


На винХР все тормозится тут

Selection.Findf(What:=lineval, After:=ActiveCell, LookIn:=xlValue, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

Неужели синтаксис поменяли?
...
Рейтинг: 0 / 0
23.09.2004, 16:06
    #32708896
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Остановка выполнения рабочего кода из Win98 в WinXP
странно, а офис тот же ?
...
Рейтинг: 0 / 0
29.09.2004, 10:55
    #32716012
PanzerFaust
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Остановка выполнения рабочего кода из Win98 в WinXP
Был в полях, не смог отреагировать сразу...
Нет, офис новый 2003, т.е. новая версия VB - 6.3, почему я про изменения команд сразу подумал... Хотя по идее не должно сбоить
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Остановка выполнения рабочего кода из Win98 в WinXP / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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