Утро доброе формучане, с праздником всех вас На работе поставили задачу создать таблицу с вычетом сумм по месяцам, exel я не очень селен( и хочу попросить вас о помощи, нужно создать красивую и простую таблицу для буха. пример я сделал но почему то некоторые значения выглядят так EE+122214 что то типо тогого либо цифры окончания меняются .И так Ячейка B (Сумма (общая)) должна уменьшаться когда в значения месяца будет вставляться сумма . и желательно сделать фильтры. так как не очень селен в ехел можете добавить и свой решения. заранее всех благодарю .
Утро доброе формучане, с праздником всех вас На работе поставили задачу создать таблицу с вычетом сумм по месяцам, exel я не очень селен( и хочу попросить вас о помощи, нужно создать красивую и простую таблицу для буха. пример я сделал но почему то некоторые значения выглядят так EE+122214 что то типо тогого либо цифры окончания меняются .И так Ячейка B (Сумма (общая)) должна уменьшаться когда в значения месяца будет вставляться сумма . и желательно сделать фильтры. так как не очень селен в ехел можете добавить и свой решения. заранее всех благодарю .denis-str
Такое возможно только макросом, при этом нужно обрабатывать и обратную операцию 10000 вставили 1200 получили 8800, а потом удалили эти 1200 так как ошиблись или заменили на 1100.
накидал по быстрому с блокировкой на ввод нескольких значений. [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("T:AE")) Is Nothing And Target.Row > 1 Then Application.EnableEvents = False If Target.Count = 1 Then NewVal = Target Application.Undo OldVal = Target Target = NewVal Cells(Target.Row, 2) = Cells(Target.Row, 2) + OldVal - NewVal Else Application.Undo End If Application.EnableEvents = True End If End Sub
[/vba]
Такое возможно только макросом, при этом нужно обрабатывать и обратную операцию 10000 вставили 1200 получили 8800, а потом удалили эти 1200 так как ошиблись или заменили на 1100.
накидал по быстрому с блокировкой на ввод нескольких значений. [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("T:AE")) Is Nothing And Target.Row > 1 Then Application.EnableEvents = False If Target.Count = 1 Then NewVal = Target Application.Undo OldVal = Target Target = NewVal Cells(Target.Row, 2) = Cells(Target.Row, 2) + OldVal - NewVal Else Application.Undo End If Application.EnableEvents = True End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("T:AE")) Is Nothing And Target.Row > 1 Then Application.EnableEvents = False If Target.Count = 1 Then NewVal = Target Application.Undo OldVal = Target Target = NewVal Cells(Target.Row, 2) = Cells(Target.Row, 2) + OldVal - NewVal Else Application.Undo End If Application.EnableEvents = True End If End Sub
[/vba] debug и формула не правильно начинает считать
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("T:AE")) Is Nothing And Target.Row > 1 Then Application.EnableEvents = False If Target.Count = 1 Then NewVal = Target Application.Undo OldVal = Target Target = NewVal Cells(Target.Row, 2) = Cells(Target.Row, 2) + OldVal - NewVal Else Application.Undo End If Application.EnableEvents = True End If End Sub
[/vba] debug и формула не правильно начинает считатьdenis-str
Сообщение отредактировал denis-str - Воскресенье, 14.06.2020, 07:57
Немного подредактировал таблицу и хотелось бы видеть больше функционала. Пример где месяцы желательно когда проставлены суммы видно наверху сколько было выплачено. Так же нужны фильтры по всем значениям дата р/с фио и т.д еще хотелось бы видеть что бы когда крутиш страничку вниз видны верхний значения . Заранее всем благодарен.
Немного подредактировал таблицу и хотелось бы видеть больше функционала. Пример где месяцы желательно когда проставлены суммы видно наверху сколько было выплачено. Так же нужны фильтры по всем значениям дата р/с фио и т.д еще хотелось бы видеть что бы когда крутиш страничку вниз видны верхний значения . Заранее всем благодарен.
Вот вариант (если я всё правильно понял) с формулой, фильтрами, закреплённой шапкой и исправленными в формате дата для правильной сортировке по дате.
Вот вариант (если я всё правильно понял) с формулой, фильтрами, закреплённой шапкой и исправленными в формате дата для правильной сортировке по дате.DrMini