Укажите подсистему системы "Программное обеспечение компьютера"

209

417

Посмотреть ответы 1

Ответы на вопрос:

Juylia555

Информатика

4,4(59 оценок)

'на первом листе внесите данные 'при добавлении записей формулу вычисления задолженности добавлять не надо 'запускаете макрос - результат (отчет) на втором листе 'на первом листе формулы пересчитывается - результаты обновляются 'форма в этом случае -излишне 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