Снаписанием программы в vba excel создать таблицу со следующими реквизитами: фамилия, адрес, дата, стоимость заказа, сумма аванса, задолженность, вид заказа. в отчете учесть итоговую информацию=задолженность+стоимость-аванс.
166
366
Ответы на вопрос:
'на первом листе внесите данные 'при добавлении записей формулу вычисления задолженности добавлять не надо 'запускаете макрос - результат (отчет) на втором листе 'на первом листе формулы пересчитывается - результаты обновляются 'форма в этом случае -излишне 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
Популярно: Информатика
-
Nicolay9317.04.2020 21:40
-
Aleksandra231v22.09.2020 23:49
-
race20112.05.2023 01:06
-
Alenka34108.08.2022 21:25
-
mahin226.10.2020 01:56
-
KoshkaAnetty11.08.2022 05:26
-
ArtemDem13.06.2023 16:33
-
МашаМозг11209.11.2022 11:30
-
stilist201126.06.2021 18:16
-
abeldinova8507.03.2020 13:36