Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Прибавление ячейки к общей сумме и обнуление ее каждый месяц
 
#1
23.09.2022 02:36:39
Хорошего времени суток, реально сделать так, чтоб значение введеное в ячейку прибавлялось к общей сумме, а при достижении определенной даты эта ячейка обнулялась, но значение общей суммы оставалось неизменным?
 
 
 
#2
23.09.2022 03:06:54
см. вложение
обнуляйте когда хотите, хоть в начале месяца, хоть в конце
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
23.09.2022 03:57:51
Цитата
написал:
см. вложение
обнуляйте когда хотите, хоть в начале месяца, хоть в конце
это для одной строки, в какой способ можно сделать чтобы в следующей строке были такие же две волшебные ячейки?
 
 
 
#4
23.09.2022 08:33:29
предвосхищая вопрос; " а можно еще и в третьей строке?" - сделал на всю колонку)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#5
23.09.2022 12:19:12
Цитата
написал:
предвосхищая вопрос; " а можно еще и в третьей строке?" - сделал на всю колонку)
Спасибо тебе великий человек)
 
 
 
#6
23.09.2022 14:20:46
Цитата
написал:
предвосхищая вопрос; " а можно еще и в третьей строке?" - сделал на всю колонку)
последний вопрос, можно ли сделать так как вот есть, только чтоб данные и первой колонны тянуло во вторую а из второй в третью?
 
 
 
#7
23.09.2022 14:28:06
))
замените
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column <> 2 Then Exit Sub
 If Target.Count > 1 Then Exit Sub
 Target.Offset(0, -1) = Val(Target.Offset(0, -1)) + Val(Target)
End Sub
на
Код
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column > 2 Then Exit Sub
  If Target.Count > 1 Then Exit Sub
  Target.Offset(0, 1) = Val(Target.Offset(0, 1)) + Val(Target)
End Sub

т.е. нужно удалить 3 символа
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#8
26.09.2022 07:41:18
Цитата
написал:
))
замените
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column   <  > 2 Then Exit Sub
 If Target.Count > 1 Then Exit Sub
 Target.Offset(0,   -  1) = Val(Target.Offset(0,   -  1)) + Val(Target)
End Sub
на
Код
    [URL=#]?[/URL]       1  2  3  4  5      Private   Sub   Worksheet_Change(  ByVal   Target   As   Range)        If   Target.Column > 2   Then   Exit   Sub        If   Target.Count > 1   Then   Exit   Sub        Target.Offset(0, 1) = Val(Target.Offset(0, 1)) + Val(Target)    End   Sub  
 
т.е. нужно удалить 3 символа
немного не то, но немного подумал переделал то что есть, и все получилось, огромное спасибо без тебя бы вообще ни чего не вышло бы)
 
 
 
Страницы: 1
Наверх