ight). LineStyle=xlNone. Borders (xlInsideVertical). LineStyle=xlNone. Borders (xlInsideHorizontal). LineStyle=xlNone («A1»). Select
'власне формування звіту=0=0=0=10=2
'цикл сотруднікамWorksheets (4). Cells (Iotr, 1) <> «»=Worksheets (4). Cells (Iotr, 1)=Worksheets (4). Cells (Iotr, 1)
'прізвище (7). Cells (Ires,
)=Notr=0=0=10000=Ires + 1=2
'цикл по номерамWorksheets (5). Cells (Ipred,
) <> «»=Worksheets (5). Cells (Ipred,
) Worksheets (5). Cells (Ipred,
)=Notrs Then=2 (7). Cells (Ires,
)=Npred
«цикл за Ціна +»=FalseWorksheets (3). Cells (Ifxd,
) <> «» Worksheets (3). Cells (Ifxd, 1)=Npred Then=Worksheets (3). Cells (Ifxd,
)=Worksheets (3). Cells (Ifxd,
) (7). Cells (Ires,
)=S1 'ціна + (7). Cells (Ires,
)=S2 'Послуга (7). Cells (Ires,
)=S2 * S1 'з. п.=Sotr1 + S1=Sotr2 + S2=Sotr3 + S1 * S2=Ires + 1=TrueIf=Ifxd + 1If=Ipred + 1 (7). Cells (Ires,
)=«Разом» (7). Cells (Ires,
). HorizontalAlignment=xlRight (7). Cells (Ires,
). Borders (xlEdgeTop). LineStyle=xlContinuous (7). Cells (Ires,
). Borders (xlEdgeTop). LineStyle=xlContinuous (7). Cells (Ires,
). Borders (xlEdgeTop). LineStyle=xlContinuous (7). Cells (Ires,
). Borders (xlEdgeTop). LineStyle=xlContinuous (7). Cells (Ires,
)=Sotr1 'Ціна + (7). Cells (Ires,
)=Sotr3 'з. п.=Ires + 2=Iotr + 1=Smin1 + Sotr1=Smin2 + Sotr2=Smin3 + Sotr3 (7). Cells (Ires,
)=«ВСЬОГО» (7). Cells (Ires,
)=Smin1 'Ціна + (7). Cells (Ires,
)=Smin3 'з. п.Sub