Здравствуйте! Надо организовать проверку ячеек на содержание нуля или пустоту. Если ячейка пустая или содержит 0,то выводить сообщение. Делаю так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim a As Long, ch As Long, i As Long, del As String On Error GoTo Message ch = Target.Value 'продолжение тела программы Exit Sub Message: MsgBox "Введите число!", vbOKOnly + vbExclamation, "Ошибка!" End Sub
[/vba] Но дело в том,что если я ввожу в любую ячейку число,то оно мне тоже выбивает ошибку,хотя нужно так: если ячейка хоть одна заполнена,то сообщение не выводим,а если все пустые,то выводим. Если введен текст вместо числа,то выводим сообщение. Подскажите,пожалуйста,кто что может.
Здравствуйте! Надо организовать проверку ячеек на содержание нуля или пустоту. Если ячейка пустая или содержит 0,то выводить сообщение. Делаю так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim a As Long, ch As Long, i As Long, del As String On Error GoTo Message ch = Target.Value 'продолжение тела программы Exit Sub Message: MsgBox "Введите число!", vbOKOnly + vbExclamation, "Ошибка!" End Sub
[/vba] Но дело в том,что если я ввожу в любую ячейку число,то оно мне тоже выбивает ошибку,хотя нужно так: если ячейка хоть одна заполнена,то сообщение не выводим,а если все пустые,то выводим. Если введен текст вместо числа,то выводим сообщение. Подскажите,пожалуйста,кто что может.Zvuk
Сообщение отредактировал Zvuk - Суббота, 17.06.2017, 16:57