№ 3 Вычислить количество выполненных заявок по клиенту «МегаСбыт

№ 3.
Вычислить количество выполненных заявок по клиенту «МегаСбыт, ЗАО» [2 шт.].
Вычислить суммарный вес перевезённого груза по заявкам клиента «Кудрявцев, ИП» [2500 тонн].
Вычислить заявку на перевозку самого малого веса. Вывести вес груза по этой заявке и расстояние [500 тонн, 500 км].

Текст программы:
Private Sub CommandButton1_Click()
Dim R As Integer, i As Integer, t As Integer
R = Cells(Rows.Count, 1).End(xlUp).Row
t = 0
For i = 3 To R
If Cells(i, 1).Value = "МегаСбыт, ЗАО" Then t = t + 1
Next i
Label2.Caption = t
End Sub

Private Sub CommandButton2_Click()
Dim R As Integer, i As Integer, Ves As Long
R = Cells(Rows.Count, 1).End(xlUp).Row
Ves = 0
For i = 3 To R
If Cells(i, 1).Value = "Кудрявцев, ИП" Then Ves = Ves + Cells(i, 2).Value
Next i
Label4.Caption = Ves
End Sub

Private Sub CommandButton3_Click()
Dim R As Integer, i As Integer, VesMin As Long
R = Cells(Rows.Count, 1).End(xlUp).Row
VesMin = Cells(3, 2).Value
For i = 3 To R
If Cells(i, 2).Value < VesMin Then
VesMin = Cells(i, 2).Value
t = i
End If
Next i
Label6.Caption = VesMin
Label7.Caption = Cells(t, 3).Value
End Sub

Окно формы задачи 3

luwtire 5.0

Занимаюсь написанием студенческих работ (дипломные работы, маг. диссертации). Участник международных конференций (экономика/менеджмент/юриспруденция). Постоянно публикуюсь, имею высокий индекс цитирования. Спикер.

Нанять автора

Готовые работы на продажу

Так же вы можете купить уже выполненные похожие работы. Для удобства покупки работы размещены на независимой бирже. Нажимая "Купить" вы будете перенаправлены на страницу карточки работы.

Гарантия на работу 10 дней.

Информатизация учёта расчётов с арендаторами для ООО «Альтаир»

2000₽

• Дипломная работа
• Экономика
• Выполнил: SwetlanaEvgrafova

Купить

Основные методы повышения маржинальности продаж для ООО «ДЦ «СовМедТех». Формирование предложения.

1111₽

• Дипломная работа
• Анализ хозяйственной деятельности
• Выполнил: avtornauchnihrabot

Купить