Проверка внесенных данных:

Если данные в окно Textbox введены некорректно(буквенное выражение или число меньше нуля) ,то программа просит ввести число или же проверить значения.Если же данные введены правильно, то при нажатии кнопки Commandbutton1(внести изменения на смете ) вносятся изменения в исходные данные на листе.

Private Sub CommandButton1_Click()

Dim a As String

If Not IsNumeric(TextBox1.Text) Then

MsgBox "Введите число", vbExclamation

Exit Sub

End If

If Not IsNumeric(TextBox2.Text) Then

MsgBox "Введите число", vbExclamation

Exit Sub

End If

If Not IsNumeric(TextBox3.Text) Then

MsgBox "Введите число", vbExclamation

Exit Sub

End If

If Not IsNumeric(TextBox4.Text) Then

MsgBox "Введите число", vbExclamation

Exit Sub

End If

If Not IsNumeric(TextBox5.Text) Then

MsgBox "Введите число", vbExclamation

Exit Sub

End If

If Not IsNumeric(TextBox6.Text) Then

MsgBox "Введите число", vbExclamation

Exit Sub

End If

If Not IsNumeric(TextBox7.Text) Then

MsgBox "Введите число", vbExclamation

Exit Sub

End If

If Not IsNumeric(TextBox8.Text) Then

MsgBox "Введите число", vbExclamation

Exit Sub

End If

If TextBox1.Text < 0 Or TextBox2.Text < 0 Or TextBox3.Text < 0 Or TextBox4.Text < 0 Or TextBox5.Text < 0 Or TextBox6.Text < 0 Or TextBox7.Text < 0 Or TextBox8.Text < 0 Then

MsgBox "Проверьте значения!", vbCritical, "Ошибка"

Exit Sub

End If

a = MsgBox("Внести изменения?", vbYesNo + vbQuestion + vbDefaultButton1)

If a = 6 Then

Worksheets(1).Range("F11") = TextBox1.Text

Worksheets(1).Range("F14") = TextBox2.Text

Worksheets(1).Range("F22") = TextBox3.Text

Worksheets(1).Range("F25") = TextBox4.Text

Worksheets(1).Range("F28") = TextBox5.Text

Worksheets(1).Range("F31") = TextBox6.Text

Worksheets(1).Range("F35") = TextBox7.Text

Worksheets(1).Range("F39") = TextBox8.Text

End If

If a = 7 Then

Exit Sub

End If

End Sub

Подсчёт итогов:

Подсчет итогов осуществляется при нажатии кнопки Commandbutton2(подсчитать итоги)и по формулам изложенным ниже.Далее при помощи команды ,например: Worksheets(1).Range("J43") = SUM результат выводится на лист в ячейку J43.

Private Sub CommandButton2_Click()

Dim SUM As Single

Dim SUM_RAS_MAT_I_MEX As Single

Dim TR_RAS As Single

Dim NAKL_RAS As Single

Dim SMET_PRIB As Single

Dim NDS As Single

Dim ITOGO As Single

a = Cells(11, 10)

b = Cells(14, 10)

c = Cells(22, 10)

d = Cells(25, 10)

l = Cells(28, 10)

f = Cells(31, 10)

g = Cells(35, 10)

k = Cells(39, 10)

SUM = a + b + c + d + l + f + g + k

q = Cells(11, 11)

w = Cells(14, 11)

e = Cells(22, 11)

r = Cells(25, 11)

t = Cells(28, 11)

y = Cells(31, 11)

u = Cells(35, 11)

i = Cells(39, 11)

SUM_RAS_MAT_I_MEX = q + w + e + r + t + y + u + i

TR_RAS = 0.15 * SUM

NAKL_RAS = 0.5 * (SUM - SUM_RAS_MAT_I_MEX)

SMET_PRIB = 0.3 * (SUM - SUM_RAS_MAT_I_MEX)

ITOGO = SUM + TR_RAS + NAKL_RAS + SMET_PRIB

NDS = 18 / 118 * ITOGO

TextBox9.Text = SUM

TextBox10.Text = SUM_RAS_MAT_I_MEX

TextBox11.Text = TR_RAS

TextBox12.Text = NAKL_RAS

TextBox13.Text = SMET_PRIB

TextBox15.Text = NDS

TextBox14.Text = ITOGO

Worksheets(1).Range("J43") = SUM

Worksheets(1).Range("J44") = SUM_RAS_MAT_I_MEX

Worksheets(1).Range("J45") = TR_RAS

Worksheets(1).Range("J46") = NAKL_RAS

Worksheets(1).Range("J47") = SMET_PRIB

Worksheets(1).Range("J48") = ITOGO

Worksheets(1).Range("J49") = NDS

CommandButton3.Enabled = True

На данном этапе появляется возможность воспользоваться кнопкой Commandbutton3(Построить диаграмму)

End Sub