Почта
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
uot;A" & i).Value, City, vbTextCompare) > 0 Then
If Kind = "посылка" Then DispatchCost = weight * Range("B" & i).Value
If Kind = "бандероль" Then DispatchCost = weight * Range("E" & i).Value
If Kind = "заказное письмо" Then DispatchCost = weight * Range("H" & i).Value
End If
Next i
End Function
Пересчёт стоимости отправки корреспонденции при изменении города. Аналогичный код обрабатывает изменение веса и типа корреспонденции
Private Sub ComboBox2_Change()
""AndComboBox2.Value "" _
Then Label10.Caption = DispatchCost(ComboBox2.Value, ComboBox1.Value, CDbl(TextBox6.Text)) _
Else Label10.Caption = ""
End Sub
Отчёт по направлениям (отправка)
Private Sub CommandButton5_Click()
Worksheets("Отчёты").Activate
Cells(3, 1).Select
Selection.CurrentRegion.Select
n = Selection.Rows.Count + 2
Worksheets("Отправленная корреспонденция").Select
Cells(3, 1).Select
Selection.CurrentRegion.Select
n2 = Selection.Rows.Count + 2
For i = 4 To n Step 1
Sheets("Отчёты").Select
CurrentCity = Range("A" & i).Value перебор городов
Count1 = 0
Count2 = 0
Count3 = 0
Sum1 = 0
Sum2 = 0
Sum3 = 0
Sheets("Отправленная корреспонденция").Select
For j = 4 To n2 Step 1 перебор отправленной корреспонденции
If Range("D" & j).Value = CurrentCity Then
If Range("C" & j).Value = "посылка" Then
Count1 = Count1 + 1
Sum1 = Sum1 + Range("I" & j).Value
End If
If Range("C" & j).Value = "бандероль" Then
Count2 = Count2 + 1
Sum2 = Sum2 + Range("I" & j).Value
End If
If Range("C" & j).Value = "заказное письмо" Then
Count3 = Count3 + 1
Sum3 = Sum3 + Range("I" & j).Value
End If
End If
Next j
Sheets("Отчёты").Select
Range("B" & i).Value = Count1
Range("C" & i).Value = Sum1
Range("D" & i).Value = Count2
Range("E" & i).Value = Sum2
Range("F" & i).Value = Count3
Range("G" & i).Value = Sum3
Next i
For Each m In Sheets
""Thenm.Visible=False">If m.Name <> "Отчёты" Then m.Visible = False
Next m
Application.Visible = True
Почта.Hide
End Sub
формирование сопроводительной ведомости (получение)
Private Sub CommandButton8_Click()
data = InputBox("Укажите дату", "Сопроводительная ведомость (получение)")
While IsDate(data) = False
data = InputBox("Укажите дату", "Сопроводительная ведомость (получение)")
Wend
Sheets("Сопроводительная ведомость").Select
Range("K4").Select
Selection.CurrentRegion.Select
n = Selection.Rows.Count + 4
If n > 4 Then Range("K5:S" & n).Clear
Sheets("Полученная корреспонденция").Select
Range("A3").Select
Selection.CurrentRegion.Select
n = Selection.Rows.Count + 2
c = 5
For i = 4 To n Step 1
Sheets("Полученная корреспонденция").Activate
If Range("B" & i).Value = data Then
Range("A" & i & ":I" & i).Copy
Sheets("Сопроводительная ведомость").Activate
Range("K" & c).Select
ActiveSheet.Paste
c = c + 1
End If
Next i
For Each m In Sheets
""Thenm.Visible=False">If m.Name <> "Сопроводительная ведомость" Then m.Visible = False
Next m
Application.Visible = True
Почта.Hide
End Sub
обработка нажатия кнопки Выдать
Private Sub CommandButton13_Click()
i = ListBox1.ListIndex
j = ListBox1.List(i, 0) + 3
Sheets("Полученная корреспонденция").Select
Range("J" & j).Value = "ВЫДАНО"
Range("A3").Select
Selection.CurrentRegion.Select
n = Selection.Rows.Count + 2
Range("N3").Select
Selection.CurrentRegion.Select
Selection.Clear
Range("A3:J" & n).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"L3:L4"), CopyToRange:=Range("N3"), Unique:=False
Range("N3").Select
Selection.CurrentRegion.Select
n = Selection.Rows.Count + 3
ListBox1.RowSource = "N4:V" & n
End Sub