Снаписанием программы в vba excel создать таблицу со следующими реквизитами: фамилия, адрес, дата, стоимость заказа, сумма аванса, задолженность, вид заказа. в отчете учесть итоговую информацию=задолженность+стоимость-аванс.

'на первом листе внесите данные 'при добавлении записей формулу вычисления задолженности добавлять не надо 'запускаете макрос - результат (отчет) на втором листе 'на первом листе формулы пересчитывается - результаты обновляются 'форма в этом случае -излишне dim i, j, s, a sub othet () dim info as variant 'clear othet(2 list)   sheets(2).select       range("a1: i1").select       with selection               .horizontalalignment = xlgeneral:               .verticalalignment = xlbottom               .addindent = false:               .indentlevel = 0:     .shrinktofit = false:                   .mergecells = true       end with       selection.font.bold = true       with selection       end with sheets(2).cells(1, 1) = "отчет" 'shapka 1 list sheets(1).select   info = array("", "фамилия", "адрес", "дата", "стоимость заказа", "сумма аванса", "задолженность", "вид заказа") for i = 1 to ubound(info)   cells(1, i) = info(i) next i = 2 'расчет долга while cells(i, 1) < > ""   cells(i, 5) = "=d" + chr(48 + i) + "-e" + chr(48 + i)   i = i + 1 wend rows("1: 1").select selection.autofilter a = "" + "> " + inputbox("укажите задолженность", "", 0) + "" selection.autofilter field: =5, criteria1: =a, operator: =xland range("a1: g" + chr(48 + i) + "").copy sheets(2).range("a2") sheets(1).select selection.autofilter end sub

Объяснение:

Классический пример рекурсии в жизни - кукла "Матрешка", где внутри каждой куклы есть ее уменьшенная копия, кроме самой последней.