Как создать своё или изменить стандартное сообщение о ошибке?

Для того, чтобы создать своё собственное сообщение о ошибке (без создания нестандартных диалоговых окон имитирующих стандартное окно) достаточно использовать метод Raise объекта Err.

code: #vba
Err.Raise Number:=13, Description:="Не нужно вводить текст в столбец с датами"

Если же Вы хотите изменить, например, текст в стандартном сообщении, то это можно осуществить также с помощью вышеупомянутого метода, например :

code: #vba
Private Sub ErrorRaise()
    On Error GoTo ErrHandler
 
    iDivisor# = Application.InputBox(Title:="", Default:=0, _
    Prompt:="Введите любое число, отличное от нуля", Type:=1)
 
    iResult# = 100 / iDivisor#: Exit Sub
 
ErrHandler:
    Select Case Err.Number
        Case 11:   Err.Raise Number:=Err.Number, _
        Description:="Ну сколько можно повторять ... " & _
        "что в таких случаях, перед делением, нужно проверять делитель на 0"
 
        Case Else: Err.Raise Number:=Err.Number, _
        Description:="Чудны дела твои ..."
    End Select
End Sub
Поделиться:

Похожие статьи: