Как макросом вызвать ошибку 438 ?
RipVanWinkel
Дата: Суббота, 13.05.2017, 00:31 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Здравствуйте. Хочу обратится к вам с необычным вопросом. Как макросом, при нажатии на кнопку - вызвать ошибку "Run-time error `438`" ? (нужно чтобы при нажатии на кнопку - выскакивало окно с сообщением об ошибке)
Здравствуйте. Хочу обратится к вам с необычным вопросом. Как макросом, при нажатии на кнопку - вызвать ошибку "Run-time error `438`" ? (нужно чтобы при нажатии на кнопку - выскакивало окно с сообщением об ошибке) RipVanWinkel
Ответить
Сообщение Здравствуйте. Хочу обратится к вам с необычным вопросом. Как макросом, при нажатии на кнопку - вызвать ошибку "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
Цитата
Как макросом... вызвать ошибку
видимо, написав в макросе какую-нибудь хрень
[vba]
Код
Sub e() ActiveSheet.Height = 0 End Sub
[/vba] [vba]
Код
Sub e() ActiveSheet = Not ActiveSheet End Sub
[/vba] [vba]
Код
Sub e() Application.Length = 42 End Sub
[/vba][vba]
Код
Sub e() Application.a End Sub
[/vba]
только вопрос - на кой?
Цитата
Как макросом... вызвать ошибку
видимо, написав в макросе какую-нибудь хрень
[vba]
Код
Sub e() ActiveSheet.Height = 0 End Sub
[/vba] [vba]
Код
Sub e() ActiveSheet = Not ActiveSheet End Sub
[/vba] [vba]
Код
Sub e() Application.Length = 42 End Sub
[/vba][vba]
Код
Sub e() Application.a End Sub
[/vba]
только вопрос - на кой?buchlotnik
Сообщение отредактировал buchlotnik - Суббота, 13.05.2017, 01:22
Ответить
Сообщение Цитата
Как макросом... вызвать ошибку
видимо, написав в макросе какую-нибудь хрень
[vba]
Код
Sub e() ActiveSheet.Height = 0 End Sub
[/vba] [vba]
Код
Sub e() ActiveSheet = Not ActiveSheet End Sub
[/vba] [vba]
Код
Sub e() Application.Length = 42 End Sub
[/vba][vba]
Код
Sub e() Application.a End Sub
[/vba]
только вопрос - на кой?Автор - buchlotnik Дата добавления - 13.05.2017 в 01:14
KuklP
Дата: Суббота, 13.05.2017, 08:13 |
Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Не надо писать хрень. Для этого есть вполне легитимный метод: [vba][/vba]
Не надо писать хрень. Для этого есть вполне легитимный метод: [vba][/vba] KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Не надо писать хрень. Для этого есть вполне легитимный метод: [vba][/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
Ответить
Сообщение 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]
А так? [vba]Код
Sub www() On Error Resume Next Err.Raise 438 MsgBox "Run-time error '" & Err.Number & "'" & vbCrLf & Err.Description End Sub
[/vba] KuklP
Ну с НДС и мы чего-то ст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
Ответить
Сообщение 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 MethodGenerates a run-time error. Syntax object.Raise number, source, description, helpfile, helpcontext ...
Но дело безусловно Ваше, можете писать хрень
Err.Raise 438 и есть реальный вызов ошибки. Из справки:Цитата
Raise MethodGenerates a run-time error. Syntax object.Raise number, source, description, helpfile, helpcontext ...
Но дело безусловно Ваше, можете писать хрень KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Err.Raise 438 и есть реальный вызов ошибки. Из справки:Цитата
Raise MethodGenerates a run-time error. Syntax object.Raise number, source, description, helpfile, helpcontext ...
Но дело безусловно Ваше, можете писать хрень Автор - 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], синтаксис, если что,
Цитата
Err.Raise 438 и есть реальный вызов ошибки
не-а, вот реальный вызов ошибки [vba]Код
Sub e() Err.Raise (438) End Sub
[/vba], синтаксис, если что, buchlotnik
Сообщение отредактировал buchlotnik - Суббота, 13.05.2017, 16:48
Ответить
Сообщение Цитата
Err.Raise 438 и есть реальный вызов ошибки
не-а, вот реальный вызов ошибки [vba]Код
Sub e() Err.Raise (438) End Sub
[/vba], синтаксис, если что, Автор - buchlotnik Дата добавления - 13.05.2017 в 16:47