Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Ячейка с накоплением через н-ую строчку
 
добрый день,

есть вопрос о ячейке с накоплением через н-ую строчку. Напр. столбик А - ячейка A10 - 1-я, 4-я и 7-я и ячейка A11 - 2-я, 5-я и 8-я строчки, т.е. через каждую 3-ю строчку. Cтолбик B описывается таким кодом

Код
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("B1:B7")) Is Nothing And IsNumeric(Target) Then
      Application.EnableEvents = False
      Range("B10") = Range("B10").Value + Target.Value
      Application.EnableEvents = True
   End If
End Sub


Спасибо  :)

P.S. MS Office 2010
Страницы: 1
Наверх