Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как макросом вызвать ошибку 438 ? - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как макросом вызвать ошибку 438 ? (Макросы/Sub)
Как макросом вызвать ошибку 438 ?
RipVanWinkel Дата: Суббота, 13.05.2017, 00:31 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте.

Хочу обратится к вам с необычным вопросом.

Как макросом, при нажатии на кнопку - вызвать ошибку "Run-time error `438`" ?
(нужно чтобы при нажатии на кнопку - выскакивало окно с сообщением об ошибке)
К сообщению приложен файл: 8522934.xls(50Kb)
 
Ответить
СообщениеЗдравствуйте.

Хочу обратится к вам с необычным вопросом.

Как макросом, при нажатии на кнопку - вызвать ошибку "Run-time error `438`" ?
(нужно чтобы при нажатии на кнопку - выскакивало окно с сообщением об ошибке)

Автор - RipVanWinkel
Дата добавления - 13.05.2017 в 00:31
buchlotnik Дата: Суббота, 13.05.2017, 01:14 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2742
Репутация: 782 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
Цитата
Как макросом... вызвать ошибку
видимо, написав в макросе какую-нибудь хрень B)

только вопрос - на кой?
К сообщению приложен файл: 8812389.xls(60Kb)


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru


Сообщение отредактировал buchlotnik - Суббота, 13.05.2017, 01:22
 
Ответить
Сообщение
Цитата
Как макросом... вызвать ошибку
видимо, написав в макросе какую-нибудь хрень B)

только вопрос - на кой?

Автор - buchlotnik
Дата добавления - 13.05.2017 в 01:14
KuklP Дата: Суббота, 13.05.2017, 08:13 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2145
Репутация: 463 ±
Замечаний: 0% ±

2003-2010
Не надо писать хрень. Для этого есть вполне легитимный метод:
[vba]
Код
Err.Raise 438
[/vba]


Ну, с НДС и мы чего-то стoим! bombb6@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеНе надо писать хрень. Для этого есть вполне легитимный метод:
[vba]
Код
Err.Raise 438
[/vba]

Автор - KuklP
Дата добавления - 13.05.2017 в 08:13
RipVanWinkel Дата: Суббота, 13.05.2017, 12:45 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KuklP, не работает.
[vba]
Код
Sub e2()
    Err.Raise 438
End Sub
[/vba]
Может я неправильно прописываю этот макрос.
 
Ответить
СообщениеKuklP, не работает.
[vba]
Код
Sub e2()
    Err.Raise 438
End Sub
[/vba]
Может я неправильно прописываю этот макрос.

Автор - RipVanWinkel
Дата добавления - 13.05.2017 в 12:45
KuklP Дата: Суббота, 13.05.2017, 13:07 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2145
Репутация: 463 ±
Замечаний: 0% ±

2003-2010
А так? :)
[vba]
Код
Sub www()
    On Error Resume Next
    Err.Raise 438
    MsgBox "Run-time error '" & Err.Number & "'" & vbCrLf & Err.Description
End Sub
[/vba]


Ну, с НДС и мы чего-то стoим! bombb6@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеА так? :)
[vba]
Код
Sub www()
    On Error Resume Next
    Err.Raise 438
    MsgBox "Run-time error '" & Err.Number & "'" & vbCrLf & Err.Description
End Sub
[/vba]

Автор - KuklP
Дата добавления - 13.05.2017 в 13:07
RipVanWinkel Дата: Суббота, 13.05.2017, 13:23 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KuklP, это что-то не то.
Я имел ввиду - реальный вызов ошибки.
 
Ответить
СообщениеKuklP, это что-то не то.
Я имел ввиду - реальный вызов ошибки.

Автор - RipVanWinkel
Дата добавления - 13.05.2017 в 13:23
RipVanWinkel Дата: Суббота, 13.05.2017, 13:23 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
buchlotnik, спасибо.
Все работает.


Сообщение отредактировал RipVanWinkel - Суббота, 13.05.2017, 13:23
 
Ответить
Сообщениеbuchlotnik, спасибо.
Все работает.

Автор - RipVanWinkel
Дата добавления - 13.05.2017 в 13:23
KuklP Дата: Суббота, 13.05.2017, 13:28 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2145
Репутация: 463 ±
Замечаний: 0% ±

2003-2010
Err.Raise 438 и есть реальный вызов ошибки. Из справки:
Цитата
Raise Method
Generates a run-time error.
Syntax
object.Raise number, source, description, helpfile, helpcontext
...
Но дело безусловно Ваше, можете писать хрень %) :D


Ну, с НДС и мы чего-то стoим! bombb6@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеErr.Raise 438 и есть реальный вызов ошибки. Из справки:
Цитата
Raise Method
Generates a run-time error.
Syntax
object.Raise number, source, description, helpfile, helpcontext
...
Но дело безусловно Ваше, можете писать хрень %) :D

Автор - KuklP
Дата добавления - 13.05.2017 в 13:28
buchlotnik Дата: Суббота, 13.05.2017, 16:47 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2742
Репутация: 782 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
Цитата
Err.Raise 438 и есть реальный вызов ошибки
не-а, вот реальный вызов ошибки [vba]
Код
Sub e()
    Err.Raise (438)
End Sub
[/vba], синтаксис, если что,
Цитата
Из справки


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru


Сообщение отредактировал buchlotnik - Суббота, 13.05.2017, 16:48
 
Ответить
Сообщение
Цитата
Err.Raise 438 и есть реальный вызов ошибки
не-а, вот реальный вызов ошибки [vba]
Код
Sub e()
    Err.Raise (438)
End Sub
[/vba], синтаксис, если что,
Цитата
Из справки

Автор - buchlotnik
Дата добавления - 13.05.2017 в 16:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как макросом вызвать ошибку 438 ? (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!