powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Остановка выполнения рабочего кода из Win98 в WinXP
3 сообщений из 3, страница 1 из 1
Остановка выполнения рабочего кода из Win98 в WinXP
    #32708391
PanzerFaust
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Уважаемые! Помогите понять, в чем затык - есть кусочек кода, отлично работавший на 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
Остановка выполнения рабочего кода из Win98 в WinXP
    #32708896
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
странно, а офис тот же ?
...
Рейтинг: 0 / 0
Остановка выполнения рабочего кода из Win98 в WinXP
    #32716012
PanzerFaust
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Был в полях, не смог отреагировать сразу...
Нет, офис новый 2003, т.е. новая версия VB - 6.3, почему я про изменения команд сразу подумал... Хотя по идее не должно сбоить
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Остановка выполнения рабочего кода из Win98 в WinXP
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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