Есть два простых макроса,По одному работают,а вместе выдают ошибку [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B1], Target) Is Nothing Then If IsNumeric([B1]) Then [A1] = Choose([B1], [A1], 0) End If End If End Sub
[/vba] и [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Application.Intersect(Range("F1"), Target) Is Nothing Then If Target.Address = "$F$1" Then If Range("F1") = Range("E1") Then MsgBox "Проверьте ДАТУ "
End If End If End If End Sub
[/vba] Помоги пожалуйста
Есть два простых макроса,По одному работают,а вместе выдают ошибку [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B1], Target) Is Nothing Then If IsNumeric([B1]) Then [A1] = Choose([B1], [A1], 0) End If End If End Sub
[/vba] и [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Application.Intersect(Range("F1"), Target) Is Nothing Then If Target.Address = "$F$1" Then If Range("F1") = Range("E1") Then MsgBox "Проверьте ДАТУ "
Ну не понимает человек что ты имел в виду. Нет бы просто объяснить, что эти две проверки для данного случая одно и тоже. Я же говорил, что не всегда понятно тем кто знает что мы не знаем. runik, сложить две процедуры в одну, это значит сделать так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Application.Intersect(Range("F1"), Target) Is Nothing Then If Range("F1") = Range("E1") Then MsgBox "Проверьте ДАТУ " End If End If If Not Intersect([B1], Target) Is Nothing Then If IsNumeric([B1]) Then [A1] = Choose([B1], [A1], 0) End If End If End Sub
Ну не понимает человек что ты имел в виду. Нет бы просто объяснить, что эти две проверки для данного случая одно и тоже. Я же говорил, что не всегда понятно тем кто знает что мы не знаем. runik, сложить две процедуры в одну, это значит сделать так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Application.Intersect(Range("F1"), Target) Is Nothing Then If Range("F1") = Range("E1") Then MsgBox "Проверьте ДАТУ " End If End If If Not Intersect([B1], Target) Is Nothing Then If IsNumeric([B1]) Then [A1] = Choose([B1], [A1], 0) End If End If End Sub