Есть таблица в Excel 2003, в которую вводятся суммы и текстовые примечания. Необходимо чтобы в диапазоны ячеек (в примере выделенные желтым цветом) можно было вводить только цифры. Нашел здесь на форуме подобную тему с решением от Юрий М. Там проверка только одного диапазона, пробовал добавить несколько диапазонов : Target, Range("A1:A3", "C6:C26") - так проверяется весь массив от A1 до С26.
А чтобы добавить раздельные диапазоны ячеек не получается.
Или придется прописывать проверку для каждого диапазона отдельно???
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A3"), Range("E6:E26")) Is Nothing Then Application.EnableEvents = False If Not IsNumeric(Target) Then MsgBox "Не верный ввод!", 48, " Ошибка!" Target = "" End If End If
Application.EnableEvents = True
End Sub
Не выходит. Вообще не проверяет. В диапазон A1:A3 и E6:E26 - вводятся и цифры и текст.