Выполнить расчет использования горно-шахтного оборудования, с помощью средств MS Excel

"
TextBox13.SetFocus
Exit Sub
End If

If Int(TextBox14.Text) < 0 Then
MsgBox "Ошибка ввода <Отчисления в резерв министерства>!"
TextBox14.SetFocus
Exit Sub
End If



'Размер платы за производственные фонды
PF = (TextBox4.Value - TextBox5.Value + TextBox6.Value) * TextBox9.Value * 0.01
'Размер платы за кредиты
PK = TextBox8.Value * TextBox10.Value * 0.01
'Плановый фонд материального поощрения
FMP = TextBox3.Value * TextBox11.Value * 0.01
'Плановый фонд соц.культ.меропр. и жилищного строительства
FSKM = TextBox3.Value * TextBox12.Value * 0.01
'Плановый фонд развития производства
FRP = TextBox4.Value * TextBox13.Value * 0.01
'Отчисления в резерв министерства
DR = (PF + PK + FMP + FSKM + FRP + TextBox7.Value) * TextBox14.Value * 0.01
'Плановая прибыль, закладываемая в расчетную цену
DRP = PF + PK + FMP + FSKM + FRP + TextBox7.Value + DR
'Расчетная цена 1 т
RCR = TextBox2.Value + DRP / (TextBox6.Value)
'
Label15.Visible = True
Label15.Caption = "Pасчетная цена 1 т руды " + Format(RCR, "#0.00")


End Sub

Private Sub CommandButton2_Click()

If IsNumeric(TextBox15.Text) = False Then
MsgBox "Ошибка ввода <Содержание железа (%)>!"
TextBox15.SetFocus
Exit Sub
End If

If IsNumeric(TextBox16.Text) = False Then
MsgBox "Ошибка ввода <Коэффициент извлечения металла>!"
TextBox16.SetFocus
Exit Sub
End If

If IsNumeric(TextBox17.Text) = False Then
MsgBox "Ошибка ввода <Содержание железа в чугуне (%)>!"
TextBox17.SetFocus
Exit Sub
End If

If IsNumeric(TextBox18.Text) = False Then
MsgBox "Ошибка ввода <Затраты 1 т чугуна (руб.)>!"
TextBox18.SetFocus
Exit Sub
End If

If IsNumeric(TextBox19.Text) = False Then
MsgBox "Ошибка ввода <Затраты на перевозку (руб.)>!"
TextBox19.SetFocus
Exit Sub
End If

If IsNumeric(TextBox20.Text) = False Then
MsgBox "Ошибка ввода <Себестоимость 1 т чугуна (руб.)>!"
TextBox20.SetFocus
Exit Sub
End If

If IsNumeric(TextBox21.Text) = False Then
MsgBox "Ошибка ввода <Металлургическая ценность (руб.)>!"
TextBox21.SetFocus
Exit Sub
End If

If Int(TextBox1.Text) < 0 Then
MsgBox "Недопустимо отрицательное значение <Годовая добыча руды>!"
TextBox1.SetFocus
Exit Sub
End If

If Int(TextBox15.Text) < 0 Then
MsgBox "Недопустимо отрицательное значение <Содержание железа (%)>!"
TextBox15.SetFocus
Exit Sub
End If

If Int(TextBox16.Text) < 0 Then
MsgBox "Недопустимо отрицательное значение <Коэффициент извлечения металла>!"
TextBox16.SetFocus
Exit Sub
End If

If Int(TextBox17.Text) < 0 Then
MsgBox "Недопустимо отрицательное значение <Содержание железа в чугуне (%)>!"
TextBox17.SetFocus
Exit Sub
End If

If Int(TextBox18.Text) < 0 Then
MsgBox "Недопустимо отрицательное значение <Затраты 1 т чугуна (руб.)>!"
TextBox18.SetFocus
Exit Sub
End If

If Int(TextBox19.Text) < 0 Then
MsgBox "Недопустимо отрицательное значение <Затраты на перевозку (руб.)>!"
TextBox19.SetFocus
Exit Sub
End If

If Int(TextBox20.Text) < 0 Then
MsgBox "Недопустимо отрицательное значение <Себестоимость 1 т чугуна (руб.)>!"
TextBox20.SetFocus
Exit Sub
End If

If Int(TextBox21.Text) < 0 Then
MsgBox "Недопустимо отрицательное значение <Металлургическая ценность (руб.)>!"
TextBox21.SetFocus
Exit Sub
End If



'1. Металлургическую ценность 1 т товарной железной руды.
'2. Коэффициент металлургической ценности

'Расход товарной железной руды на выплавку 1 т чугуна
N = TextBox17.Value * 0.01 / (TextBox15.Value * 0.01 * TextBox16.Value)
'2. Металлургическая ценность 1 т товарной железной руды
SM = (TextBox20.Value - TextBox19.Value) / N - TextBox18.Value
'3. Коэффициент металлургической ценности руды
KM = SM / TextBox21.Value
Label23.Visible = True
Label23.Caption = "Металлургическая ценность 1 т товарной железной руды " + Format(SM, "#0.00")
Label24.Visible = True
Label24.Caption = "Коэффициент металлургической ценности руды " + Format(KM, "#0.00")

End Sub

Private Sub Label7_Click()

End Sub

Private Sub OptionButton1_Change()
'изменение номера задачи


'MsgBox OptionButton1.Value
If OptionButton1.Value = True Then
Frame1.Visible = True
Frame2.Visible = False
End If


End Sub

Private Sub OptionButton2_Change()
If OptionButton2.Value = True Then
Frame1.Visible = False
Frame2.Top = Frame1.Top
Frame2.Left = Frame1.Left
Frame2.Visible = True
End If
End Sub






Приложение 3. Приложение в среде VBA











Гарнаев, А. Ю. Использование MS Excel и VBA в экономике и финансах / А.Ю. Гарнаев — СПб.: БХВ - Санкт-Петербург, 2000. — с. 178-179












2



нет

да

да

Введены правильные значения?

Конец

Задача 277


Задача 276

нет

Начало


Задача 276 ?

Конец

'Размер платы за производственные фонды
PF = (TextBox4.Value - TextBox5.Value + TextBox6.Value) * TextBox9.Value * 0.01
'Размер платы за кредиты
PK = TextBox8.Value * TextBox10.Value * 0.01
'Плановый фонд материального поощрения
FMP = TextBox3.Value * TextBox11.Value * 0.01
'Плановый фонд соц.культ.меропр. и жилищного строительства
FSKM = TextBox3.Value * TextBox12.Value * 0.01
'Плановый фонд развития производства
FRP = TextBox4.Value * TextBox13.Value * 0.01
'Отчисления в резерв министерства
DR = (PF + PK + FMP + FSKM + FRP + TextBox7.Value) * TextBox14.Value * 0.01
'Плановая прибыль, закладываемая в расчетную цену
DRP = PF + PK + FMP + FSKM + FRP + TextBox7.Value + DR
'Расчетная цена 1 т
RCR = TextBox2.Value + DRP / (TextBox6.Value)

Сообщение об ошибке


Задача 276


Вывод расчетной цены 1 т

Металлургическая ценность 1 т товарной железной руды
Коэффициент металлургической ценности руды

Введены правильные значения?

нет

да

Конец

'Расход товарной железной руды на выплавку 1 т чугуна
N = TextBox17.Value * 0.01 / (TextBox15.Value * 0.01 * TextBox16.Value)
'Металлургическая ценность 1 т товарной железной руды
SM = (TextBox20.Value - TextBox19.Value) / N - TextBox18.Value
'Коэффициент металлургической ценности руды
KM = SM / TextBox21.Value

Сообщение об ошибке


Задача 277