1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Для того, чтобы создать своё собственное сообщение о ошибке (без создания нестандартных диалоговых окон имитирующих стандартное окно) достаточно использовать метод Raise объекта Err.Err.Raise Number:=13, Description:="Не нужно вводить текст в столбец с датами"Если же Вы хотите изменить, например, текст в стандартном сообщении, то это можно осуществить также с помощью вышеупомянутого метода, например :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 SelectEnd Sub |