добрый день,
есть вопрос о ячейке с накоплением через н-ую строчку. Напр. столбик А - ячейка 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