Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Нарастающий итог
 
#1
05.10.2011 04:01:43
Как сделать чтобы при каждом изменении даты в ячейке С3, значение ячейки С5 увеличивалось на 1 (нарастающим итогом. Файл прикреплен.
 
 
 
#2
05.10.2011 04:09:38
Private Sub Calendar1_Click()  
    ActiveCell = Calendar1.Value  
    ActiveCell.NumberFormat = "dd/mm/yy"  
    Cells(5, 3) = Cells(5, 3) + 1  
    Hide  
End Sub
 
 
 
#3
05.10.2011 04:43:38
Да, отлично все работает. Но аппетит приходит во время еды! Подскажите, а как написать код если ячеек с датой несколько (например E3,G3,I3)и столько же ячеек с нарастающим итогом (например E5,G5,I5). Спасибо.
 
 
 
#4
05.10.2011 07:10:50
Private Sub Calendar1_Click()  
    ActiveCell = Calendar1.Value  
    ActiveCell.NumberFormat = "dd/mm/yy"  
    ActiveCell.Offset(2, 0) = ActiveCell.Offset(2, 0) + 1  
    Hide  
End Sub  
Пожалуйста.
 
 
 
#5
05.10.2011 07:51:26
Огромное спасибо за помошь! Все так как нужно!
 
 
 
Страницы: 1
Наверх