3 () As Doublecr, cpr As Integer=8Sheets («Ан3»). Cells (cr, 1) <> «Загальний підсумок»=cr + 1=2Sheets («Ан3»). Cells (9, cpr) <> «Підсумок Сума по полю Обсяг збуту (ден)»=cpr + 1
Wend=(Sheets («Ан3»). Cells (cr, cpr))=CDbl (tmp) Functiontot4 () As Doublecr, cpr As Integer=8Sheets («Ан4»). Cells (cr, 1) <> «Загальний підсумок»=cr + 1=2Sheets («Ан4»). Cells (9, cpr) <> «Підсумок Сума по полю Обсяг збуту (ден)»=cpr + 1
Wend=(Sheets («Ан4»). Cells (cr, cpr))=CDbl (tmp) Function
П13
fillpr1 () cpr, cpr1, cdol, cr As Integer=9Sheets («АН1»). Cells (cr, 1) <> «Загальний підсумок»=cr + 1=2Sheets («АН1»). Cells (9, cpr1) <> «Підсумок кількість»=cpr1 + 1=7i=11 To cr - 1 («Доляпр»). Cells (cdol, 1)=Sheets («АН1»). Cells (i, 1) («Доляпр» ). Cells (cdol, 2)=Sheets («АН1»). Cells (i, cpr1) / Sheets («АН1»). Cells (cr, cpr1)=cdol + 1Subfillpr2 () cpr, cpr1, cdol, cr As Integer=9Sheets («Ан2»). Cells (cr, 1) <> «Загальний підсумок»=cr + 1=2Sheets («Ан2»). Cells (9, cpr1) <> «Підсумок Кількість»=cpr1 + 1=7i=11 To cr - 1 («Доляпр»). Cells (cdol, 3)=Sheets («Ан2»). Cells (i, 1) («Доляпр» ). Cells (cdol, 4)=Sheets («Ан2»). Cells (i, cpr1) / Sheets («Ан2»). Cells (cr, cpr1)=cdol + 1Subfillpr3 () cpr, cpr1, cdol, cr As Integer=9Sheets («Ан3»). Cells (cr, 1) <> «Загальний підсумок»=cr + 1=2Sheets («Ан3»). Cells (9, cpr1) <> «Підсумок Кількість»=cpr1 + 1=7i=11 To cr - 1 («Доляпр»). Cells (cdol, 5)=Sheets («Ан3»). Cells (i, 1) («Доляпр» ). Cells (cdol, 6)=Sheets («Ан3»). Cells (i, cpr1) / Sheets («Ан3»). Cells (cr, cpr1)=cdol + 1Subfillpr4 () cpr, cpr1, cdol, cr As Integer=9Sheets («Ан4»). Cells (cr, 1) <> «Загальний підсумок»=cr + 1=2Sheets («Ан4»). Cells (9, cpr1) <> «Підсумок Кількість»=cpr1 + 1=7i=11 To cr - 1 («Доляпр»). Cells (cdol, 7)=Sheets («Ан4»). Cells (i, 1) («Доляпр» ). Cells (cdol, 8)=Sheets («Ан4»). Cells (i, cpr1) / Sheets («Ан4»). Cells (cr, cpr1)=cdol + 1Subfillpr (). Sheets («Доляпр» ;). ActivateSub
П14
fillrg1 () crg, cpr1, cr, cdol As Integer=10Sheets («АН1»). Cells (cr, 1) <> «Загальний підсумок»=cr + 1 = 2Sheets («АН1»). Cells (9, cpr1) <> «Підсумок кількість»=cpr1 + 1=1=7Sheets («АН1»). Cells (9, crg) <> «Підсумок кількість» Sheets («АН1»). Cells (10, crg)=«кількість» Then («Долякл»). Cells (cdol, 1)=Sheets («АН1»). Cells (9, crg) («Долякл»). Cells (cdol, 2)=Sheets («АН1») . Cells (cr, crg) / Sheets («АН1»). Cells (cr, cpr1)=cdol + 1If=crg + 1Subfillrg2 () crg, cpr1, cr, cdol As Integer=10Sheets («Ан2»). Cells (cr, 1) <> «Загальний підсумок»=cr + 1=2Sheets («Ан2»). Cells (9, cpr1) <> «Підсумок Кількість»=cpr1 + 1=1=7Sheets («Ан2»). Cells (9, crg) <> «Підсумок Кількість» Sheets («Ан2»). Cells (10, crg)=«Кількість» Then («Долякл»). Cells (cdol, 3)=Sheets («Ан2»). Cells (9, crg) («Долякл»). Cells (cdol, 4)=Sheets («Ан2») . Cells (cr, crg) / Sheets («Ан2»). Cells (cr, cpr1)=cdol + 1If=crg + 1Subfillrg3 () crg, cpr1, cr, cdol As Integer=10Sheets («Ан3»). Cells (cr, 1) <> «Загальний підсумок»=cr + 1=2Sheets («Ан3»). Cells (9, cpr1) <> «Підсумок Кількість»=cpr1 + 1=1=7Sheets («Ан3»). Cells (9, crg) <> «Підсумок Кількість» Sheets («Ан3»). Cells (10, crg)=«Кількість» Then («Долякл»). Cells (cdol, 5)=Sheets («Ан3»). Cells (9, crg) («Долякл»). Cells (cdol, 6)=Sheets («Ан3») . Cells (cr, crg) / Sheets («Ан3»). Cells (cr, cpr1)=cdol + 1If=cr...
