И так... У меня есть задание на создания макроса, который будет проверять значения полей на их правильность и выводить сообщение если в нем есть ошибка, или ошибки нет. У меня есть вопрос по поводу того как соединить эти две задачи.. Этот макрос дает возможность увидеть есть ли ошибка в данных полях, но мне нужно еще что бы оно показывала если нет ошибки.
После запуска макроса если есть ошибка в нескольких полях, то он выводит только крайнюю ошибку, а все сразу не выводит. Подскажите пожалуйста:
1)как мне лучше сделать, что бы выводило ошибку во всех полях сразу
2) выводило сообщение про отсутствие ошибок
Заранее спасибо за помощь
После запуска макроса если есть ошибка в нескольких полях, то он выводит только крайнюю ошибку, а все сразу не выводит. Подскажите пожалуйста:
1)как мне лучше сделать, что бы выводило ошибку во всех полях сразу
2) выводило сообщение про отсутствие ошибок
Заранее спасибо за помощь
Код |
---|
Sub Макрос1() ' Range("A5").Select With Selection.Font .Color = -16776961 .TintAndShade = 0 End With If Range("A6") <> "№" Then Range("A5") = " False A6" End If If Range("B6") <> "Фамилия" Then Range("A5") = "False B6" End If If Range("C6") <> "Имя" Then Range("A5") = "False C6" End If End Sub |