ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не отрабатывается run-time error
5 сообщений из 5, страница 1 из 1
Не отрабатывается run-time error
    #36698554
Дмитрий-(сколько-же-нас?)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий-(сколько-же-нас?)
Гость
В надежде обойти ошибку выборки данных, когда фильтр не выдаёт никаких значений, пишу:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Selection.AutoFilter Field:=Range(Y_column & "1").Column, Criteria1:=">" &  _
              Replace(CStr(Down_boundary), ",", "."), Operator:=xlAnd, Criteria2:="<=" &  _
              Replace(CStr(Truncate_values_by), ",", "."), VisibleDropDown:=False

On Error GoTo Skip
 Set X_values = Range(X_column & "2:" & X_column & ActiveSheet.AutoFilter.Range.Row + _
    ActiveSheet.AutoFilter.Range.EntireRow.Count -  1 ).SpecialCells(xlCellTypeVisible, xlNumbers)
...
Skip:
Но перехода на метку Skip Не происходит!
Почему?
...
Рейтинг: 0 / 0
21.06.2010, 15:26
| Ответить | Цитировать | Написать  
Не отрабатывается run-time error
    #36699238
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Дмитрий-(сколько-же-нас?),

перенесите on error до Selection.Autofilter.
...
Рейтинг: 0 / 0
21.06.2010, 20:18
| Ответить | Цитировать | Написать  
Не отрабатывается run-time error
    #36699771
Дмитрий-(сколько-же-нас?)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий-(сколько-же-нас?)
Гость
big-dukeДмитрий-(сколько-же-нас?),

перенесите on error до Selection.Autofilter.
Пробовал -- не помогло :(
Написал так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
On Error GoTo Error_label

Selection.AutoFilter Field:=Range(Y_column & "1").Column, _
            Criteria1:=">" & Replace(CStr(Down_boundary), ",", "."), _
            Operator:=xlAnd, _
            Criteria2:="<=" & Replace(CStr(Truncate_values_by), ",", "."), VisibleDropDown:=False

  Set X_values = Range(X_column & "2:" & X_column & ActiveSheet.AutoFilter.Range.Row + _
                 ActiveSheet.AutoFilter.Range.EntireRow.Count -  1 ).SpecialCells(xlCellTypeVisible, xlNumbers)

  Set Y_values = Range(Y_column & "2:" & Y_column & ActiveSheet.AutoFilter.Range.Row + _
                 ActiveSheet.AutoFilter.Range.EntireRow.Count -  1 ).SpecialCells(xlCellTypeVisible, xlNumbers)

If X_values.Count >  0  Then
  Call Normalize_left_over(X_values, Y_values, Escape_peak, Koef_01, Koef_02)
End If

Skip_label:
...
Error_label:
    Resume Next
Уходит на Error_label и, соответствено, возвращается на следующую команду, куда мне совсем не надо.
Если пишу:
Код: plaintext
1.
2.
Error_label:
    GoTo Skip_label
Первую пустую выборку отрабатывает, вторую -- нет.
Что-то никак не въеду, в чём закавыка...
...
Рейтинг: 0 / 0
22.06.2010, 10:09
| Ответить | Цитировать | Написать  
Не отрабатывается run-time error
    #36701685
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Уходит на Error_label и, соответствено, возвращается на следующую команду, куда мне совсем не надо.

Три варианта использования оператора Resume в коде обработки ошибок:

Resume - приводит к повторному выполнению строки, ставшей причиной ошибки (используется, если код обработки ошибок исправляет ситуацию)

Resume Next - передает выполнение строке, следующей за строкой, содержащей ошибку

Resume ALabel - передает выполнение кода на строку с меткой ALabel

Если Вам не нужно возвращаться на следующую строку за строкой, вызвавшей ошибку, так и не делайте этого.


Код: plaintext
1.
2.
3.
Skip_label:
...
Error_label:
    GoTo Skip_label
А эта конструкция вообще непонятно для чего. Можно ведь сразу перейти на Skip_label ?
И как завершить эту процедуру?
...
Рейтинг: 0 / 0
22.06.2010, 20:48
| Ответить | Цитировать | Написать  
Не отрабатывается run-time error
    #36702297
Дмитрий-(сколько-же-нас?)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий-(сколько-же-нас?)
Гость
О, спасибо!!!
Я, почему-то, предполагал, что GoTo и Resume в переходе по меткам идентичны.
Код: plaintext
Resume Skip_label
даёт нужный эффект :)
...
Рейтинг: 0 / 0
23.06.2010, 09:58
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не отрабатывается run-time error
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36698554&tid=2177957]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 159ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 303ms
total:  552ms
созд. / загр.: 552ms
x
x
Закрыть


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