Информатика и выч. техника \ Информатика

Модель управления запасами. Открытие диалоговых окон ввода с помощью кнопок на листе Excel. Создания пользовательской формы, страница 4

MsgBox (Текст [, Опция] [,Заголовок])

Либо

MsgBox Текст [, Опция] [, Заголовок]

Текст – это строка сообщения , ради получения которого данная функция и применяется.

Chr(10) и Chr(13) – перенос и возврат к левому краю страницы.

vbInformation – информационное сообщение

В кнопке «Очистка ячеек»:

Private Sub CommandButton3_Click()

For i = 4 To 8

Cells(9, i) = ""

Next i

For i = 4 To 8

For j = 13 To 17

Cells(j, i) = ""

Next j

Next i

For i = 20 To 24

Cells(i, 3) = ""

Next i

Range("h20") = ""

Range("h21") = ""

End Sub

3.Итоговый вид разработанного  приложения:

Заключение

Я разработала приложение, которое позволяет определить максимальную прибыль и оптимальный объем товара для предложенной модели.

Данное приложение можно использовать  для расчёта и планирование наиболее выгодных ситуаций (т.е. получение максимальной прибыли) при данном объеме товара.

Это приложение позволяет упростить планирование объемов товара (покупки, продажи, возврата) и позволяет не допустить ситуации, когда Прибыль может быть равна нулю (предприниматель может понести убытки).

Приложение

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Private Sub CommandButton2_Click()

Dim p As Single

Dim p2 As Single, n As Integer

Dim sum As Integer

sum = Cells(8, 4).Value + Cells(8, 5).Value + Cells(8, 6).Value + Cells(8, 7).Value + Cells(8, 8).Value

For i = 4 To 8

Cells(9, i) = Cells(8, i) / sum

Next i

For j = 1 To 5

For i = 1 To 5

If i > j Then

p = Cells(12, j + 3) * (Range("B6") - Range("C6")) - (Cells(12 + i, 3) - Cells(12, j + 3)) * (Range("C6") - Range("D6"))

Else

p = Cells(12 + i, 3) * (Range("B6") - Range("C6"))

End If

Cells(i + 12, j + 3) = p

Next i

Next j

For i = 1 To 5

Cells(19 + i, 3) = Cells(12 + i, 4) * Cells(9, 4) + Cells(12 + i, 5) * Cells(9, 5) + Cells(12 + i, 6) * Cells(9, 6) + Cells(12 + i, 7) * Cells(9, 7) + Cells(12 + i, 8) * Cells(9, 8)

Next i

p2 = Cells(20, 3)

n = 20

For i = 20 To 24

If p2 < Cells(i, 3) Then

p2 = Cells(i, 3)

n = i

End If

Next i

Range("h20") = p2

Range("h21") = Cells(n, 2)

MsgBox "Максимальная прибыль: " & Range ("h20").Value & vbCr & vbLf & "Оптимальный объем: " & Range("h21").Value, vbInformation, "Расчёт прибыли"

End Sub

Private Sub CommandButton3_Click()

For i = 4 To 8

Cells(9, i) = ""

Next i

For i = 4 To 8

For j = 13 To 17

Cells(j, i) = ""

Next j

Next i

For i = 20 To 24

Cells(i, 3) = ""

Next i

Range("h20") = ""

Range("h21") = ""

End Sub

Range("H20").Select

ActiveCell.FormulaR1C1 = "=MAX(RC[-5]:R[4]C[-5])"

Range("H21").Select

End Sub

Private Sub CommandButton1_Click()

UserForm1.Hide

End Sub

Private Sub OK_Click()

Range("B6") = A.Text

Range("C6") = B.Text

Range("D6") = C.Text

Range("D8") = D.Text

Range("E8") = E.Text

Range("F8") = F.Text

Range("G8") = G.Text

Range("H8") = H.Text

End Sub

Список литературы

1.  А. Гарнаев. Самоучитель VBA. – СПб.: БХВ – Санкт-Петербург, 1999.-512с.

2.  Г. Штайнер. Visual Basic 6.0 для приложений. – М.: лаборатория Базовых ЗНАНИЙ, 2000.-832с.

3.  Кен Гетц, Майк Гилберт. Программирование на Visual Basic 6.0 для приложений и VBA. Руководство разработчика: Пер. с англ. – К.: Издательская группа BHV, 2001. – 912с.

  1. В.П. Умрихин, Л. А. Королькова, В.Н. Бушманова. Методические указания для выполнения Курсовой работы по информатике. – НГАВТ,2005. – 100с.
Скачать файл