Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
trvi
26 / 1 / 0
Регистрация: 20.02.2013
Сообщений: 126
1

Как при ошибке передать выход Exit Sub в сам код

11.03.2013, 15:39. Просмотров 2412. Ответов 20
Метки нет (Все метки)

Есть код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Generate()
    Dim ws0 As Worksheet
    Set ws0 = Worksheets("Лист0")
 
    Dim ws1 As Worksheet
    Set ws1 = Worksheets("Лист1")
 
    Dim ws2 As Worksheet
    Set ws2 = Worksheets("Лист2")
 
    Dim rn As Range
    Set rn = ws1.Range("A1:Z100")
 
Application.ScreenUpdating = False
 
    With ws0
        d_A# = .Range("D6")
        d_B# = .Range("E6")
    End With
 
    Call Check_Err(d_A, d_B, d_T, d_C) ' вызов функции и присвоение ей параметров макроса
 
Application.ScreenUpdating = True
End Sub
 
В отдельному модуле идет проверка на ошибки:
 
Sub Check_Err(a1#, b1#)
    If a1 < b1 Then
        MsgBox ("Ширина не может быть больше Длины!")
        Exit Sub ' выход
    End If
 
    If (a1 / b1) > 3 Then
        MsgBox ("Длина не может привышать Ширину более чем в 3 раза!")
        Exit Sub ' выход
    End If
 
End Sub
Как при ошибке передать выход ExitSub в сам код. У меня ExitSub в функции, а мне надо, чтобы функция проверяя на валидность, отключала бы дальнейшее выполнение кода.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2013, 15:39
Ответы с готовыми решениями:

Как сделать выход из окна при нажатии кнопки "Exit" в PyQt5?
Изучаю книгу &quot;Python 3 и PyQt. Разработка приложений.&quot; Книга написана для...

Нужен ли выход из приложения при ошибке glfwOpenWindow
if( !glfwOpenWindow( 300,300, 0,0,0,0,0,0, GLFW_WINDOW ) ) { ...

Как создать HTML код, который при заходе на ссылку сам кликал по горизонтали и вертикали
помогите

Досрочный выход из программы - функция exit
как выйти досрочно из программы exit(0); выдаёт ошибку. 'exit' was not...

Исправить exit на формальный выход из цикла
Нужно исправить все exit на формальный выход из цикла, help :help: uses crt;...

20
trvi
26 / 1 / 0
Регистрация: 20.02.2013
Сообщений: 126
12.03.2013, 15:22  [ТС] 21
Igor_Tr, Не парься спасибо за помощь!!!
0
12.03.2013, 15:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2013, 15:22

Как передать переменную при загрузке страницы из js в php код?
Нужно представить, что при каждой загрузке страницы одной js-переменной (var...

Indy : получить код страницы при 503 ошибке
Здравствуйте. При обращении к сайту получаю ошибку HTTP/1.1 503 Service...

Какой статус код возвращать при ошибке пользователя?
Здравствуйте. Возник вопрос. А что, если пользователь введет неверные данные в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
21
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru