ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - обработка сообщений об ошибке
6 сообщений из 6, страница 1 из 1
Excel - обработка сообщений об ошибке
    #33937266
Stagiere
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stagiere
Гость
Добрый день!

Ребят, у меня появляется сообщение об ошибке, когда я подключаюсь к базе данных, а там для определенных дат, например, нет данных. Ну, соответственно все формулы летят. Но не в этом дело.
Хотелось бы просто предупредить пользователя о том, чтобы он поменял даты, вместо тех, что выползают по умолчанию(и тем более дают доступ к макросам)

Сообщения, которые у меня выпадают:
Сначала "Run-Time error 13",
a потом: "Your formula contains an invalid external reference to a worksheet. Verify that tha path, workbook, and rang name or cell reference are correct, and try again."

Попробовала:
Код: plaintext
1.
2.
3.
4.
5.
On Error Resume Next
MyFunctionWithProblems
If Err.Number <>  13  Then
     MsgBox ("Change the dates")
End If

Первое сообщение так убралось. А вот как узнать номер второго? Или это уже обработка ошибки? Вот, как бы так узнать как ее убрать.

А, и еще один глупый вопросик.
On Error Resume Next
Какое точно у нее назначение? Куда ее лучше ставить, перед, после функции, в которой может появиться ошибка или вообще она не обязательна?

Спасибо заранее за ответы
...
Рейтинг: 0 / 0
23.08.2006, 12:54:35
| Ответить | Цитировать | Написать  
Excel - обработка сообщений об ошибке
    #33937664
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
On Error Resume Next подавляет отображение стандартного сообщения об ошибке и выполняет следующую строку программы. Применяется в случае, если мы хотим игнорировать ошибки или мы знаем, какая ошибка может произойти, и хотим обработать ее без написания полного обработчика. Обычно ставится в начале процедуре, но лучше стараться избегать его применения.

Можешь так сделать.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Public Sub Errors()
    Dim intI As Integer
    
    On Error Resume Next

    intI =  10  /  0 
    
    If Err.Number =  11  Then
        MsgBox "Деления на ноль."
    End If
    
    On Error GoTo  0 
    
    intI =  66000 
End Sub

Но лучше написать полный обработчик.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Public Sub Errors()
    Dim intI As Integer
    
    On Error GoTo HandleErr

    intI =  10  /  0 
    
    intI =  66000 
    
ExitHere:
    Exit Sub
    
HandleErr:
    Select Case Err.Number
        Case  11 
            MsgBox "Деления на ноль."
            Resume Next
        Case Else
            MsgBox Err.Number & " " & Err.Description
            Resume ExitHere
    End Select
End Sub
...
Рейтинг: 0 / 0
23.08.2006, 14:36:50
| Ответить | Цитировать | Написать  
Excel - обработка сообщений об ошибке
    #33937938
Stagiere
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stagiere
Гость
То есть одной строчки об обработке ошибки в начале процедуры хватает на всю процедуру, где бы в ней эта ошибка ни произошла??

А вообще, спасибо огромное за ответ :)
...
Рейтинг: 0 / 0
23.08.2006, 15:29:39
| Ответить | Цитировать | Написать  
Excel - обработка сообщений об ошибке
    #33938097
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
StagiereТо есть одной строчки об обработке ошибки в начале процедуры хватает на всю процедуру, где бы в ней эта ошибка ни произошла??
В общем-то, да.
...
Рейтинг: 0 / 0
23.08.2006, 16:06:11
| Ответить | Цитировать | Написать  
Excel - обработка сообщений об ошибке
    #33938344
Stagiere
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stagiere
Гость
А как можно узнать "фамилию" сообщения? А то что бы ни делала, после моих обработок все равно выскакивает сообщение:
"Your formula contains an invalid external reference to a worksheet. Verify that tha path, workbook, and rang name or cell reference are correct, and try again."

Как бы мне его так "выловить" и отключить?
...
Рейтинг: 0 / 0
23.08.2006, 16:58:02
| Ответить | Цитировать | Написать  
Excel - обработка сообщений об ошибке
    #33939445
falet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
falet
Гость
Есть глобальный рбъект Err c кучей свойств, в том числе и номером и описанием ошибки
напр. в обработчике
Код: plaintext
1.
2.
3.
4.
5.
error:
If Err.Number =  2004  Then
 'обработка конкретного номера ошибки
Else
 xlaErrMsgBox Err.Number, Err.Description, Err.Source, "Ошибка расчета функции"
End If
также обработав ошибку можно послать ее дальше(выше) с помощью
Код: plaintext
 Err.Raise Number, Source, Description
...
Рейтинг: 0 / 0
24.08.2006, 11:00:29
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - обработка сообщений об ошибке
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33937266&tid=2184404]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 74ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 215ms
total:  365ms
созд. / загр.: 365ms
x
x
Закрыть


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