Private Sub Кнопка1_Click()
'Проверка и защита от ввода строковых значений
If IsNumeric(txtMeal.Text) = False Then
MsgBox "Ошибка во вводе расходов на еду"
Exit Sub
End If
If IsNumeric(txtServ.Text) = False Then
MsgBox "Ошибка во вводе расходов на коммунальные услуги"
Exit Sub
End If
If IsNumeric(txtTransp.Text) = False Then
MsgBox "Ошибка во вводе расходов на транспорт"
Exit Sub
End If
If IsNumeric(txtRest.Text) = False Then
MsgBox "Ошибка во вводе расходов на отдых и развлечения"
Exit Sub
End If
If IsNumeric(txtClothes.Text) = False Then
MsgBox "Ошибка во вводе расходов на одежду"
Exit Sub
End If
If IsNumeric(txtOther.Text) = False Then
MsgBox "Ошибка во вводе прочих расходов"
Exit Sub
End If
'Ввод данных в текстовые поля формы
Range("B2").Select
ActiveCell.FormulaR1C1 = Val(txtMeal.Text)
Range("B3").Select
ActiveCell.FormulaR1C1 = Val(txtServ.Text)
Range("B4").Select
ActiveCell.FormulaR1C1 = Val(txtTransp.Text)
Range("B5").Select
ActiveCell.FormulaR1C1 = Val(txtRest.Text)
Range("B6").Select
ActiveCell.FormulaR1C1 = Val(txtClothes.Text)
Range("B7").Select
ActiveCell.FormulaR1C1 = Val(txtOther.Text)
'Установка свойств - параметров форматирования
Range("B1").WrapText = True
Range("A8:B8").Select
Selection.Interior.ColorIndex = 6
Range("B1").Select
Selection.Interior.ColorIndex = 8
Columns("A:A").ColumnWidth = 19
Range("B1:B8").HorizontalAlignment = xlCenter
Range("B8").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
'Построение диаграммы
Range("A2:B7").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceDataSource:=Sheets("Лист1").Range("A2:B7"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
ActiveWindow.Visible = False
Windows("Книга1").Activate
Range("I7").Select
End Sub
'______________________________________________________________________________
Private Sub Кнопка2_Click()
'Процедура очистки полей формы
txtMeal.Text = ""
txtServ.Text = ""
txtTransp.Text = ""
txtRest.Text = ""
txtClothes.Text = ""
txtOther.Text = ""
End Sub
'________________________________________________________________________________
Private Sub Кнопка3_Click()
'Процедура закрытия формы
frmBudget.Hide
End Sub
'_____________________________________________________________________________
Private Sub UserForm_Initialize()
'Процедура инициализации формы
Range("B2:B7").Select
Selection.ClearContents
End Sub