3Расчет локальной сметы «калькуляция стоимости работ №1 на комплекс багоустроства территории тц»
3.1Постановка задачи
Оформить и просчитать строительную смету «Калькуляция стоимости работ №1 на комплекс благоустройства территории ТЦ».
Вид оформленной сметы «Калькуляция стоимости работ №1 на комплекс благоустройства территории ТЦ»:
3.2Порядок расчета локальной сметы. Вид сметы с отображением зависимых ячеек
Порядок заполнения сметы:
Оформить шапку таблицы;
Внести наименование работ и материалов по разделам и заполнить колонку 4;
В колонки 5, 7 внести исходные данные;
В колонке 6 (количество материала) – данные рассчитываются следующим образом: произведение расхода в типовом проекте (7) на общее количество по разделу (6)
В колонках 8, 9 сначала просчитываются данные не по разделам
стоимость в кол. 8: произведение цены материала (5) (строка стоимость работ) на расход в типовом проекте (7)
стоимость в кол. 9: произведение цены материала (5) на расход в типовом проекте (7)
Данные по разделам в колонках 8,9 просчитываются как сумма данных по колонкам 8, 9.
В колонках 10, 11 сначала просчитываются данные не по разделам:
общая стоимость в кол. 10: произведение цены материала (5) (строка стоимость работ) на количество (6)
стоимость в кол. 11: произведение цены материала (5) на количество (6)
данные по разделам в колонках 10, 11 просчитываются как сумма данных по колонкам 10, 11 по разделу.
После заполнения сметы cверить данные в расчетной таблице с оригиналом.
Порядок подсчета итогов:
Общую сумму основных затрат (сумма по разделам в колонке 10) (S1):
Общую сумму материалов и механизмов (сумма по разделам в колонке 11) (S2):
Транспортные расходы: 15% от основных затрат:
Накладные расходы: 50 % от ФОТ (ФОТ= S1 - S2):
Сметная прибыль: 30 % от ФОТ:
ИТОГО: по смете (S1+транспортные расходы + накладные расходы + сметная прибыль):
В том числе НДС (18%): (НДС уже заложен в сумму ИТОГО)
Вид сметы с отображением зависимых ячеек:
3.3Расчетная смета в режиме отображения формул
3.4Главная форма «Изменение исходных данных»
3.4.1Описание элементов управления, представленных на форме, их назначение и уникальные имена, используемые в процедурах
3.4.2Описание функционирование формы (события) с приведением листинга соответствующих процедур
Инициализация формы
Private Sub UserForm_Initialize()
CommandButton3.Enabled = False
UserForm1.TextBox1.Text = Range("F9")
UserForm1.TextBox2.Text = Range("F10")
UserForm1.TextBox11.Text = Range("F19")
UserForm1.TextBox12.Text = Range("F24")
UserForm1.TextBox13.Text = Range("F29")
End Sub
Команда кнопки внесения изменений на смете
Private Sub CommandButton1_Click()
If MsgBox("Вы действительно хотите внести изменения?", vbYesNo + vbQuestion, "Изменение исходных данных") = vbYes Then
Range("F9") = Format(TextBox1, "0.00")
Range("F10") = Format(TextBox2, "0.00")
Range("F19") = Format(TextBox11, "0.00")
Range("F24") = Format(TextBox12, "0.00")
Range("F29") = Format(TextBox13, "0.00")
End If
End Sub
Команды обработки нажатия клавиш SpinButton
Private Sub SpinButton1_SpinDown()
TextBox1.Text = Val(TextBox1.Text) – 0.5
End Sub
Private Sub SpinButton1_SpinUp()
TextBox1.Text = Val(TextBox1.Text) + 0.5
End Sub
Private Sub SpinButton2_SpinDown()
TextBox2.Text = Val(TextBox2.Text) – 0.5
End Sub
Private Sub SpinButton2_SpinUp()
TextBox2.Text = Val(TextBox2.Text) + 0.5
End Sub
Private Sub SpinButton4_SpinDown()
TextBox13.Text = Val(TextBox13.Text) – 0.5
End Sub
Private Sub SpinButton4_SpinUp()
TextBox13.Text = Val(TextBox13.Text) + 0.5
End Sub
Private Sub SpinButton5_SpinDown()
TextBox11.Text = Val(TextBox11.Text) – 0.5
End Sub
Private Sub SpinButton5_SpinUp()
TextBox11.Text = Val(TextBox11.Text) + 0.5
End Sub
Private Sub SpinButton6_SpinDown()
TextBox12.Text = Val(TextBox12.Text) – 0.5
End Sub
Private Sub SpinButton6_SpinUp()
TextBox12.Text = Val(TextBox12.Text) + 0.5
End Sub
Расчет необходимых значений
Private Sub CommandButton4_Click()
CommandButton3.Enabled = True
TextBox4.Text = Range("J30")
TextBox5.Text = Range("K30")
TextBox6.Text = 0.15 * Range("J30")
TextBox7.Text = 0.5 * (Range("J30") - Range("K30"))
TextBox8.Text = 0.3 * (Range("J30") - Range("K30"))
TextBox9.Text = Int(18 / 118 * (Range("J30") + 0.15 * Range("J30") + 0.5 * (Range("J30") - Range("K30")) + 0.3 * (Range("J30") - Range("K30"))))
TextBox10.Text = Range("J30") + 0.15 * Range("J30") + 0.5 * (Range("J30") - Range("K30")) + 0.3 * (Range("J30") - Range("K30"))
Range("J31") = Int(Format(TextBox4, "0.00"))
Range("J32") = Int(Format(TextBox5, "0.00"))
Range("J33") = Int(Format(TextBox6, "0.00"))
Range("J34") = Int(Format(TextBox7, "0.00"))
Range("J35") = Int(Format(TextBox8, "0.00"))
Range("J36") = Int(Format(TextBox10, "0.00"))
Range("J37") = Int(Format(TextBox9, "0.00"))
End Sub
Команда кнопки для открытия формы построения диаграммы
Private Sub CommandButton3_Click()
If TextBox4.Text <> "" Then
UserForm2.Show
Else
MsgBox "Подсчитайте итоги", vbCritical + vbOKOnly
End If
End Sub
Закрытие формы
Private Sub CommandButton5_Click()
UserForm1.Hide
End Sub
3.4.3Результаты работы формы (заполненная форма)
3.5Форма «Параметры диаграммы»
3.5.1Описание элементов управления, представленных на форме, их назначение и уникальные имена, используемые в процедурах
3.5.2Описание функционирование формы (события) с приведением листинга соответствующих процедур
Закрытие формы 1, построение диаграмм
Private Sub CommandButton1_Click()
UserForm2.Hide
Const a = "I31:J31", b = "I32:J32", c = "I33:J33", d = "I34:J34", e = "I35:J35", f = "I36:J36"
Dim rez As String
rez = Empty
Проверка на наличие построенных диаграмм с последующим их удалением
If Charts.Count <> 0 Then Charts.Delete
Проверка и выбор данных, отмеченных флажком
If CheckBox1.Value = True Then rez = rez + a
If CheckBox2.Value = True Then
If rez <> Empty Then
rez = rez + "," + b
Else
rez = rez + b
End If
End If
If CheckBox3.Value = True Then
If rez <> Empty Then
rez = rez + "," + c
Else
rez = rez + c
End If
End If
If CheckBox4.Value = True Then
If rez <> Empty Then
rez = rez + "," + d
Else
rez = rez + d
End If
End If
If CheckBox5.Value = True Then
If rez <> Empty Then
rez = rez + "," + e
Else
rez = rez + e
End If
End If
If CheckBox6.Value = True Then
If rez <> Empty Then
rez = rez + "," + f
Else
rez = rez + f
End If
End If
If rez = Empty Then
MsgBox "выбери данные"
Exit Sub
End If
Выбор диаграммы с последующим ее построением
If OptionButton1.Value = True Then
Charts.Add
ActiveChart.ChartType = xlPyramidColClustered
ActiveChart.SetSourceData Source:=Sheets("Смета").Range(rez), PlotBy:= _
xlColumns
ActiveChart.HasLegend = False
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = TextBox1.Text
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
End If
If OptionButton2.Value = True Then
Charts.Add
ActiveChart.ChartType = xlRadar
ActiveChart.SetSourceData Source:=Sheets("Смета").Range(rez), PlotBy:= _
xlColumns
ActiveChart.HasLegend = False
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = TextBox1.Text
End With
End If
If OptionButton3.Value = True Then
Charts.Add
ActiveChart.ChartType = xlRadarFilled
ActiveChart.SetSourceData Source:=Sheets("Смета").Range(rez), PlotBy:= _
xlColumns
ActiveChart.HasLegend = False
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = TextBox1.Text
End With
End If
End Sub
3.5.3Результаты работы формы (заполненная форма)
3.5.4Построенные диаграммы
ЗАКЛЮЧЕНИЕ
При выполнении расчётно-графической работы я освоила навыки программирования в среде Visual Basic, научилась создавать и рассчитывать сметы в Microsoft Excel. Также освоила такие теоретические вопросы как: «Классификация компьютеров» и «World Wide Web».
3.5.4.1.1Список используемой литературы
Н.А. Марьина MS Excel: лабораторный практикум. – Гомель: БелГУТ, 2009.– 106 с.
Н.А. Марьина, С.А. Марьин Основы программирования на VBA.– Гомель: БелГУТ, 2010.– 97 с.
Гарнаев А. Ю. Самоучитель VBA. СПб, БХВ Санкт-Петербург, 2006