Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
накопительная таблица
 
#1
15.01.2026 05:22:16
Всем доброго времени суток, у меня такой вопрос, можно ли сделать накопительную таблицу в эксель, а именно есть 1,2,3 и т.д таблиц, но в каждой таблице свои данные, которые стекаются в одну общую, при этом данные удаляются , но в накопительной таблице они остаются
 
 
 
#2
15.01.2026 05:47:24
Можно
Правила форума (про файл-пример в частности)
Изменено: Sanja - 15.01.2026 06:44:44
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
15.01.2026 07:08:05
что то не понял ответ, можно или нет, если да то как сделать, сижу уже дня 3 над этим
Изменено: Yevgeniy12312 - 15.01.2026 07:09:14
 
 
 
#4
15.01.2026 07:23:51
Цитата
Yevgeniy12312 написал:
как сделать
Self referencing query или incremental update в Excel
Пришелец-прораб.
 
 
 
#5
15.01.2026 07:27:17
очень интересно, но не чего не понятно
 
 
 
#6
15.01.2026 07:58:55
Цитата
Yevgeniy12312 написал: что то не понял ответ
В ответе есть ссылка на Правила форума, в которых прописано про файл-пример (п.2.3). Так понятнее? Правила форума читали?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#7
15.01.2026 08:19:59
получается, в листе 1 нужно вводить данные, затем в листе 5 эти данные сохраняются, но также при удалении данных с листа 1 данные в листе 5 сохранялись с накопительным эффектом, при повторном заполнении листа 1 в листе 5 данные вносились с новой строки. извиняюсь если не грамотно объяснил, уже голова кипит просто, и как сделать так поиск с подтягиванием всех строк, а именно в том же самом листе 1 поиск по фамилии, если поиск находит нужную фамилию подтягиваются все данные по этой строке с листа 5 в лист 1. готов даже заплатить за эту таблицу по моим критериям, какие функции и какую работы они должны выполнять
Изменено: Yevgeniy12312 - 15.01.2026 08:27:35
 
 
 
#8
15.01.2026 08:43:01
Можно таким простеньки макросом, по нажатию кнопки
Код
Sub AddRecordset()
Dim iRng As Range
Dim iCl As Range
Dim lRow&, J&
On Error Resume Next
Application.ScreenUpdating = False
Set iRng = Worksheets("Лист1").Range("D5,F5,H5,J5,L5,N5,D9,F9,H9,J9")
With Worksheets("Лист5")
  lRow = .Cells(.Rows.Count, "F").End(xlUp).Row
  lRow = IIf(lRow < 3, 3, lRow + 1)
  J = 6
  For Each iCl In iRng.Cells
    .Cells(lRow, J) = iCl.Value
    J = J + 1
  Next
End With
iRng.ClearContents
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#9
15.01.2026 08:48:47
спасибо, как с вами можно связаться
 
 
 
#10
15.01.2026 08:53:24
Напишите в ЛС
Согласие есть продукт при полном непротивлении сторон
 
 
 
#11
15.01.2026 14:42:12
Sanja, Здравствуйте!
Подскажите в какой строке Вами предложенного макроса нужно изменить и что, что бы по аналогии с примером в файле "Накопительная таблица" данные из формы Листа1 размещались в нужное место В3 Лист5.
Благодарствуйте...
 
 
 
#12
15.01.2026 15:00:18
Цитата
написал:
размещались в нужное место В3 Лист5
Код
Sub AddRecordset()
Dim iRng As Range
Dim iCl As Range
Dim lRow&, J&
On Error Resume Next
Application.ScreenUpdating = False
Set iRng = Worksheets("Лист1").Range("D5,F5,H5,J5,L5,N5,D9,F9,H9,J9")
With Worksheets("Лист5")
  lRow = .Cells(.Rows.Count, "B").End(xlUp).Row 'Тут менять столбец необязательно. Если изначальный столбец F всегда заполнен.
  lRow = IIf(lRow < 3, 3, lRow + 1)
  J = 2                                         'Основная магия тут.
  For Each iCl In iRng.Cells
    .Cells(lRow, J) = iCl.Value
    J = J + 1
  Next
End With
iRng.ClearContents
Application.ScreenUpdating = True
End Sub
 
 
 
#13
15.01.2026 15:16:26
Буду пробовать.
Благодарствуйте...
 
 
 
Страницы: 1
Читают тему
Наверх