Как написать макрос, чтобы при определенных условиях в ячейке С прибавлялось 1

Автор Оксана33, 16.05.2015, 00:00

« назад - далее »

Оксана33

Как написать макрос, чтобы при определенных условиях (к примеру А1=В1) в ячейке, например, С к содержимому прибавлялось значение 1 (т.е. каждый раз +1, +1, +1, до бесконечности) и наоборот

vikttur

В модуль листа:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("A1:B1"), Target) Is Nothing Then
       
        If Range("A1").Value = Range("B1").Value Then _
                    Range("C1").Value = Range("C1").Value + Range("D1").Value
    End If
End Sub

В D1 любое добавляемое число (положительное или отрицательное)

Оксана33

спасибо, тоже как вариант, но я искала вот это, но все равно спасибо
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
  If Range("A1").Value = Range("B1").Value Then
    On Error Resume Next
    Application.EnableEvents = False
    Range("C1").Value = Range("C1").Value + 1
    Application.EnableEvents = True
  End If
End If
End Sub