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

Содержание
ПОСТАНОВКА ЗАДАЧИ
ОПИСАНИЕ ЗАДАЧИ 276
ОПИСАНИЕ ЗАДАЧИ 277
ОПИСАНИЕ АЛГОРИТМА РАСЧЕТА ПО ЗАДАЧЕ 276 С ПОМОЩЬЮ СРЕДСТВ MS EXCEL
ОПИСАНИЕ АЛГОРИТМА РАСЧЕТА ПО ЗАДАЧЕ 277 С ПОМОЩЬЮ СРЕДСТВ MS EXCEL
ОПИСАНИЕ АЛГОРИТМА РАСЧЕТА ПО ЗАДАЧАМ 276 И 277 С ПОМОЩЬЮ VBA
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
ПРИЛОЖЕНИЕ 1. БЛОК-СХЕМА АЛГОРИТМА
ПРИЛОЖЕНИЕ 2. ТЕКСТ ПРОГРАММЫ В СРЕДЕ VBA
ПРИЛОЖЕНИЕ 3. ПРИЛОЖЕНИЕ В СРЕДЕ VBA

"
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