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

Вход

Регистрация

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

 

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

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

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

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

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

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

Как макросом, при нажатии на кнопку - вызвать ошибку "Run-time error `438`" ?
(нужно чтобы при нажатии на кнопку - выскакивало окно с сообщением об ошибке)
Автор - RipVanWinkel
Дата добавления - 13.05.2017 в 00:31
buchlotnik Дата: Суббота, 13.05.2017, 01:14 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

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

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


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

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

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

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеНе надо писать хрень. Для этого есть вполне легитимный метод:
[vba]
Код
Err.Raise 438
[/vba]
Автор - KuklP
Дата добавления - 13.05.2017 в 08:13
RipVanWinkel Дата: Суббота, 13.05.2017, 12:45 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 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им! kuklp60@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
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KuklP, это что-то не то.
Я имел ввиду - реальный вызов ошибки.
 
Ответить
СообщениеKuklP, это что-то не то.
Я имел ввиду - реальный вызов ошибки.
Автор - RipVanWinkel
Дата добавления - 13.05.2017 в 13:23
RipVanWinkel Дата: Суббота, 13.05.2017, 13:23 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

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

Ну с НДС и мы чего-то стoим! kuklp60@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
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

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


Сообщение отредактировал 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 из 1
  • 1
Поиск:

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