Страницы: 1
RSS
Подсчет количества изменений в диапазоне, Помотите написать макрос
 
Привет всем.
Помогите написать макрос, который будет увеличивать значение в контрольной ячейке на 1 единицу каждый раз при внесении любых изменений в диапазоне.
Спасибо.
 
MaxVorontsov, в модуль листа (правый клик по ярлычку листа - Исходный текст)
Код
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("C:D")) Is Nothing Then 'отслеж. изменения в диапазоне C:D
    On Error Resume Next
    Application.EnableEvents = False
    With Range("F1")  'контрольная ячейка
      .Value = .Value + 1
    End With
    Application.EnableEvents = True
  End If
End Sub
 
В модуль листа:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:D10")) Is Nothing Then
        Application.EnableEvents = False
        Range("A1") = Range("A1") + 1
    End If
    Application.EnableEvents = True
End Sub
Страницы: 1
Наверх