Листинги программ для формы 1

Public Sub CommandButton2_Click()

UserForm1.Hide

End Sub

Private Sub CommandButton3_Click()

MsgBox "вы уверены?", vbYesNo

a = CStr(Cells(7, 6))

b = CStr(Cells(14, 6))

c = CStr(Cells(21, 6))

d = CStr(Cells(28, 6))

e = CStr(Cells(35, 6))

If vbYes Then

Cells(7, 6) = (TextBox1.Value)

Cells(14, 6) = (TextBox2.Value)

Cells(21, 6) = (TextBox3.Value)

Cells(28, 6) = (TextBox4.Value)

Cells(35, 6) = (TextBox5.Value)

TextBox6.Value = ""

TextBox7.Value = ""

TextBox8.Value = ""

TextBox9.Value = ""

TextBox10.Value = ""

TextBox11.Value = ""

End If

End Sub

Private Sub CommandButton4_Click()

TextBox6.Value = CStr(Cells(38, 9))

TextBox7.Value = CStr(Cells(39, 9))

TextBox8.Value = CStr(Cells(40, 9))

TextBox9.Value = CStr(Cells(41, 9))

TextBox10.Value = CStr(Cells(42, 9))

TextBox11.Value = CStr(Cells(43, 9))

End Sub

Private Sub CommandButton5_Click()

If TextBox6.Value = "" Then

MsgBox ("подсчитайте итоги")

Else

'

' Диаграмма Макрос

' Макрос записан 14.05.2012 (tvardovskijrs)

'

'

Charts.Add

ActiveChart.ChartType = xl3DPieExploded

ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("G38:I43"), PlotBy _

:=xlColumns

ActiveChart.SeriesCollection(1).Values = "=Лист1!R38C9:R43C9"

ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = "Диаграмма основных расходов по смете"

End With

UserForm1.Hide

End If

End Sub

Private Sub CommandButton6_Click()

UserForm2.Show

End Sub

Private Sub Frame2_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label10_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub SpinButton1_SpinDown()

TextBox1.Value = CStr(TextBox1.Value - 0.5)

End Sub

Private Sub SpinButton1_SpinUp()

TextBox1.Value = CStr(TextBox1.Value + 0.5)

End Sub

Private Sub SpinButton2_SpinDown()

TextBox2.Value = CStr(TextBox2.Value - 0.5)

End Sub

Private Sub SpinButton2_SpinUp()

TextBox2.Value = CStr(TextBox2.Value + 0.5)

End Sub

Private Sub SpinButton3_SpinUp()

TextBox3.Value = CStr(TextBox3.Value + 0.5)

End Sub

Private Sub SpinButton3_SpinDown()

TextBox3.Value = CStr(TextBox3.Value - 0.5)

End Sub

Private Sub SpinButton4_SpinUp()

TextBox4.Value = CStr(TextBox3.Value + 0.5)

End Sub

Private Sub SpinButton4_SpinDown()

TextBox4.Value = CStr(TextBox4.Value - 0.5)

End Sub

Private Sub SpinButton5_SpinUp()

TextBox5.Value = CStr(TextBox5.Value - 0.5)

End Sub

Private Sub SpinButton5_SpinDown()

TextBox5.Value = CStr(TextBox5.Value - 0.5)

End Sub

Private Sub UserForm_Initialize()

TextBox1.Value = CStr(Cells(7, 6))

TextBox2.Value = CStr(Cells(14, 6))

TextBox3.Value = CStr(Cells(21, 6))

TextBox4.Value = CStr(Cells(28, 6))

TextBox5.Value = CStr(Cells(35, 6))

End Sub