Заключение

В данной работе требовалось написать скрипт на VBA выполняющий операции согласно индивидуальному варианту.

По посчитанным данным были построены диаграмма распределения суммы внутреннего трафика по группам и гистограмма распределения исходящего трафика групп по часам. Внутренний трафик за весь день составил 191231917 байт. Данные подсчета количества входящего трафика для каждого внутреннего компьютера были экспортированы в Microsoft WORD.

К недостаткам скрипта относится то, что он позволяет определить трафик только для значений, расположенных в определенной структуре в файле Excel,так же программа очень сильно повреждает файл, стирая данные из ячеек.

Список использованных источников

1 Тим Бернерс-Ли. Плетя паутину: истоки и будущее Всемирной сети. 1999 г.

2 Дегтяренко И.В. Методические указания по расчету трафика мультисервисной сети, для студентов специальности ТКС. 2006г.

3 Редакция газеты "Компьютерные Вести" - Что нужно знать при построении локальной сети. 2003г. 4 Слепцова Л. Д. Программирование на VBA в Microsoft Office. 2007г.

Приложение а

Sub k2()

For i = 4 To 61049 Step 1

If IsEmpty(Range("A" & i)) = True Or IsDate(Range("A" & i)) = True Or Range("A" & i) = "Source" Then

i = i + 1

Else

IP = Range("A" & i)

a = Split(IP, ".")

If a(0) = 202 And a(1) = 202 And a(2) = 205 Then

If a(3) > 0 And a(3) < 154 Or a(3) > 154 And a(3) < 200 Then

Range("F1") = Range("F1") + Range("D" & i)

End If

If a(3) = 200 Then

Range("G1") = Range("G1") + Range("D" & i)

End If

If a(3) > 200 And a(3) < 254 Then

Range("H1") = Range("H1") + Range("D" & i)

End If

End If

End If

Next i

Sheets.Add After:=Sheets(Sheets.Count)

Sheets("Лист1").Select

Sheets("Лист1").Name = "отделы"

Sheets("_2").Select

Range("F1:H1").Select

Selection.Copy

Sheets("отделы").Select

ActiveSheet.Paste

ActiveSheet.Shapes.AddChart.Select

ActiveChart.SetSourceData Source:=Range("'отделы'!$A$1:$C$1")

ActiveChart.ChartType = xlPie

End Sub

Приложение б

Sub k4()

k = 0

x = 1

For i = 1 To 61049 Step 1

If IsDate(Range("A" & i)) = True Then

n = i + 3

k = k + 1

If IsEmpty(Range("A" & n)) = True Then

i = i + 4

Else

For y = n To 61049

If IsEmpty(Range("A" & y)) = True Then

Exit For

Else

IP = Range("A" & y)

a = Split(IP, ".")

If a(3) > 0 And a(3) < 154 Or a(3) > 154 And a(3) < 200 Then

Range("F" & x) = Range("F" & x) + Range("D" & y)

End If

If a(3) = 200 Then

Range("G" & x) = Range("G" & x) + Range("D" & y)

End If

If a(3) > 200 And a(3) < 254 Then

Range("H" & x) = Range("H" & x) + Range("D" & y)

End If

End If

Next y

End If

If k = 4 Then

x = x + 1

k = 0

End If

End If

Next i

Sheets.Add After:=Sheets(Sheets.Count)

Sheets("Лист1").Select

Sheets("Лист1").Name = "Загрузка канала"

Sheets("_2").Select

Range("F1:H21").Select

Selection.Copy

Sheets("Загрузка канала").Select

ActiveSheet.Paste

ActiveWindow.SmallScroll Down:=-3

ActiveSheet.Shapes.AddChart.Select

ActiveChart.SetSourceData Source:=Range("'Загрузка канала'!$A$1:$C$24")

ActiveChart.ChartType = xlColumnClustered

End Sub