Список використаної літератури
1. Уокенбах, Д. Microsoft Office Excel 2007: професійне програмування на VBA.: Пер. з англ.- М.: ТОВ «І.Д. Вільямс », 2008. - 928 с.: Ил.- Парал. тит. англ.
2. МакКелві М., Мартінсон Р., Веб Дж., Різельман Б. Visual Basic 5: пров. з англ.- СПб.: BHV - Санкт-Петербург, 1998. - 976 с., Мул.
Додаток В. Текст програми
3.1 Для «Звіту про продажі».
RecordedMacro ()
'Sheets. Add
'Worksheets (12). Range («A1: E1000»). ClearContents. PivotCaches. Create _
(SourceType:=xlDatabase, _:=«Лист2! R1C1: R14C4») _
. CreatePivotTable _:=«Наявність! R3C1 », _: =« PivotTable1 », _:=xlPivotTableVersion12 (« Наявність »). SelectActiveSheet. PivotTables _
(«PivotTable1»). PivotFields («Наявність»)
. Orientation=xlPageField
. Position=1WithActiveSheet. PivotTables («PivotTable1») _
. PivotFields («Послуга»)
. Orientation=xlColumnField
. Position=1WithActiveSheet. PivotTables («PivotTable1») _
. PivotFields ("Район")
. Orientation=xlRowField
. Position=1With. PivotTables («PivotTable1»). AddDataField _. PivotTables (_
«PivotTable1»). PivotFields («Sales»), _
«Sum of Sales», xlSum. PivotTables («PivotTable1»). _=FalseSubCreatePivotTable () PTCache As PivotCachePT As PivotTable
'Створення кешаPTCache=ActiveWorkbook. PivotCaches. Create (_:=xlDatabase, _:=Range ("A1"). CurrentRegion)
'Додавання нового аркуша в зведену таблицю
'Worksheets. Add («Звіт з продажу»). Select. SelectedSheets. DeleteSummarySheet=Worksheets. Add. Name=«Звіт з продажу»
'Створення зведеної табліциPT=ActiveSheet. PivotTables. Add (_:=PTCache, _:=Range («A3»))
'Додавання полейPT
. PivotFields («Наявність»). Orientation=xlPageField
. PivotFields («Послуга»). Orientation=xlColumnField
. PivotFields («Район»). Orientation=xlRowField
. PivotFields («Ціна +»). Orientation=xlDataField
'відсутні заголовки поля
. DisplayFieldCaptions=FalseWith («B5: C8»). Select. Shapes. AddChart. Select. SetSourceData Source:=Range («« Звіт з продажу »! $ A $ 3: $ D $ 9»). ChartTyp
.2 Для «Розрахунку заробітної плати»
ExplicitКнопка1_Щелчок () Smin1, Smin2, Smin3, Sotr1, Sotr2, Sotr3, S1, S2, S3 As DoubleIotr, Ipred, Ires, Ifxd As IntegerNotr, Notrs, Npred As StringFlag As Boolean
'очистка звіту (7). Range («B10: E1000»). ClearContents («A10: F34»). Select. Borders (xlDiagonalDown). LineStyle=xlNone. Borders (xlDiagonalUp). LineStyle=xlNone. Borders (xlEdgeLeft). LineStyle=xlNone. Borders (xlEdgeTop). LineStyle=xlNone. Borders (xlEdgeBottom). LineStyle=xlNone. Borders (xlEdgeR...
