Реферат сделан досрочно, преподавателю понравилось, я тоже в восторге. Спасибо Татьяне за труд!
Мария
Тгу им. Г. Р. Державина
Узнайте стоимость индивидуальной работы
это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Система компьютерной обработки данных
Тип
Реферат
Предмет
Информатика и программирование
Просмотров
1078
Размер файла
31 б
Поделиться
Ознакомительный фрагмент работы:
Система компьютерной обработки данных
Отдел образования администрации Центрального района Муниципальное общеобразовательное учреждение
Экономический лицей
Секция – компьютерные технологии
Система компьютерной обработки данных
Балута Дмитрий
Лифинцев Евгений
учащиеся 11 класса
экономического лицея
(тел. 224-73-33)
Руководители
Сурадейкина Татьяна Михайловна
зам. директора по УВР
Исакова Галина Васильевна
учитель информатики
(Работа выполнена в МОУ
экономический лицей)
Новосибирск, 2008г.
Введение
Абсолютное большинство школ стремится полнее использовать резервы обучения. И здесь не обойтись без диагностики, без мониторинга.
Для этого надо обрабатывать большой объем информации.
Предлагаемая система компьютерной обработки данных автоматизирует процесс обработки информации.
Назначение
Система компьютерной обработки данных предназначена для сбора, систематизации, статистической обработки, анализа данных учебного процесса и позволяет
· обеспечить системный сбор и классификацию информации;
· анализировать огромное количество информации учебного процесса;
· проводить внутри лицейский контроль качества обучения, диагностический анализ, и оценку эффективности обучения;
· делать объективные и обоснованные выводы о степени достижения поставленных целей;
· оперативно принимать решения, способствующие функционированию и развитию лицея, и ставить новые задачи.
Система компьютерной обработки данных включает 3 модуля:
• Модуль обработки данных о качестве обучения
• Модуль обработки итогов успеваемости
• Модуль обработки данных о движении
Модуль обработки данных о качестве обучения
Для анализа эффективности образовательного процесса по каждому предмету «входная» информация за 3 последних года вводится в таблицы на 3-х листах: год 1, год 2, год 3.
Все другие показатели успеваемости, таблицы, графики, диаграммы рассчитываются и строятся автоматически.
В начале нового учебного года нужно перевести год, это происходит по нажатию кнопки «Год» на листе «год 1», при этом информация с листа «год 2» переписывается на лист «год 1», а информация с листа «год 3» переписывается на лист «год 2», таблица листа «год 3» очищается, в неё заносятся данные текущего учебного года. Для перевода года написан макрос «Перевод года» (приложение 1).
Таблицы на листах год 1, год 2, год 3 предусмотрены на 7 классов в каждой параллели. Если классов в параллели меньше, остаются незаполненные столбцы. Незаполненные столбцы можно скрыть с помощью кнопки «Скрыть пустые столбцы». Для скрытия незаполненных столбцов написан макрос «Скрыть пустые столбцы» (приложение 1).
Модуль обработки данных о качестве обучения позволяет проводить:
• Сравнение качественной успеваемости за 3 года по параллелям (по любому предмету).
• Оценку эффективности обучения в текущем году.
• Сохранность качества обучения в текущем году.
• Сравнительный анализ качественной успеваемости по предмету за текущий и два предыдущих учебных года со средегимназическим уровнем общей качественной успеваемости.
• Сравнительный анализ успеваемости по результатам итоговых (годовых) контрольных работ с итоговой (годовой) успеваемостью.
• Сравнительный анализ качественной успеваемости по учителям.
• Сравнительный анализ качественной успеваемости каждого класса параллели со средней успеваемостью по параллели.
• Средние показатели качественной успеваемости по параллелям.
Модуль обработки итогов успеваемости позволяет по каждому классу, параллели, ступени получить следующие данные:
• Подвести итоги успеваемости: сколько учащихся аттестовано, сколько учащихся не аттестовано, сколько неуспевающих, посчитать количество хорошистов и отличников, абсолютную и качественную успеваемость;
• Список неуспевающих с указанием фамилии, класса и предмета;
• Количество пропусков всего, количество пропусков по болезни, количество пропусков по уважительной причине и количество пропусков по неуважительной причине;
Для обработки итогов успеваемости учащихся Муниципального экономического лицея «входная» информация вводится на лист1.
Все другие показатели на листах 2, 3, 4 рассчитываются автоматически.
Для автоматического расчета показателей написано три макроса: «Itogi», «Неуспевающие», «Пропуски» (приложение 2).
Модуль компьютерной обработки данных о движении учащихся позволяет получить:
• Наполняемость по каждому классу, параллели, ступени;
• Список выбывших с указанием класса;
• Список прибывших с указанием класса
Информация вводится на «Лист 1» и лист «Кол-во классов» «Системы компьютерной обработки данных о движении учащихся в ОУ». Все другие таблицы заполняются автоматически. Для этого разработаны макросы «Выбыли», «Прибыли», «Наполняемость» (приложение 3).
обработка компьютерный обучение успеваемость учащийся
Заключение
Предлагаемая «Система компьютерной обработки данных» используется в лицее для анализа результатов учебного процесса за четверть, полугодие, год.
Анализ результатов учебного процесса нацелен на выделение первоочередных задач обучения, он содержит ряд графиков, которые сравниваются между собой как с эталонами. Сравнение графиков позволяет сделать выводы об уровнях качества обучения на разных параллелях в данной школе.
Литература
1. Электронный учебник по VBA, http://www.mini-soft.ru/soft/vba/.
2. «Информатика и информационные технологии 10-11 класс», Н. Угринович.
3. «MS EXCEL и VBA. Примеры и задания», Панфилова Т.И.
Приложение 1
Макрос «Перевод года»
PrivateSubCommandButton1_Click()
msg = "Вы действительно хотите добавить год?"
opt = vbExclamation + vbYesNo + vbDefaultButton2
tit = ""
А = MsgBox(msg, opt, tit)
If A = vbYes Then
Worksheets("год2").Range("A1:BM25").Copy Destination:=Worksheets("год1").Range("A1:BM25")
Worksheets("год3").Range("A1:BM25").Copy Destination:=Worksheets("год2").Range("A1:BM25")
For i = 5 To 22
For j = 2 To 56
Worksheets("год3").Cells(i, j) = ""
Next j
Next i
Dim k, b As Integer
k = Val(Mid(Worksheets("год3").Cells(1, 17), 1, 5))
b = Val(Mid(Worksheets("год3").Cells(1, 17), 6, 5))
k = k + 1
b = b + 1
Worksheets("год3").Cells(52, 1) = Right(Str(b), 4)
Worksheets("год3").Cells(1, 17) = Right(Str(k), 4) + "-" + Right(Str(b), 4)
Worksheets("год3").Range("I4:I23").Interior.Color = RGB(255, 255, 0)
Worksheets("год2").Range("I4:I23").Interior.Color = RGB(255, 255, 0)
Worksheets("год1").Range("I4:I23").Interior.Color = RGB(255, 255, 0)
Worksheets("год3").Range("Q4:Q23").Interior.Color = RGB(255, 255, 0)
Worksheets("год2").Range("Q4:Q23").Interior.Color = RGB(255, 255, 0)
Worksheets("год1").Range("Q4:Q23").Interior.Color = RGB(255, 255, 0)
Worksheets("год3").Range("Q4:Q23").Interior.Color = RGB(255, 255, 0)
Worksheets("год2").Range("Q4:Q23").Interior.Color = RGB(255, 255, 0)
Worksheets("год1").Range("Q4:Q23").Interior.Color = RGB(255, 255, 0)
Worksheets("год3").Range("Y4:Y23").Interior.Color = RGB(255, 255, 0)
Worksheets("год2").Range("Y4:Y23").Interior.Color = RGB(255, 255, 0)
Worksheets("год1").Range("Y4:Y23").Interior.Color = RGB(255, 255, 0)
Worksheets("год3").Range("AG4:AG23").Interior.Color = RGB(255, 255, 0)
Worksheets("год2").Range("AG4:AG23").Interior.Color = RGB(255, 255, 0)
Worksheets("год1").Range("AG4:AG23").Interior.Color = RGB(255, 255, 0)
Worksheets("год3").Range("AO4:AO23").Interior.Color = RGB(255, 255, 0)
Worksheets("год2").Range("AO4:AO23").Interior.Color = RGB(255, 255, 0)
Worksheets("год1").Range("AO4:AO23").Interior.Color = RGB(255, 255, 0)
Worksheets("год3").Range("AW4:AW23").Interior.Color = RGB(255, 255, 0)
Worksheets("год2").Range("AW4:AW23").Interior.Color = RGB(255, 255, 0)
Worksheets("год1").Range("AW4:AW23").Interior.Color = RGB(255, 255, 0)
Worksheets("год3").Range("BE4:BE23").Interior.Color = RGB(255, 255, 0)
Worksheets("год2").Range("BE4:BE23").Interior.Color = RGB(255, 255, 0)
Worksheets("год1").Range("BE4:BE23").Interior.Color = RGB(255, 255, 0)
End If
End Sub
Макрос «Скрыть пустые столбцы»
Private Sub CommandButton2_Click()
Dim i As Integer
If CommandButton2.Caption = "Скрытьпустыестолбцы" Then
For i = 2 To 8
If IsEmpty(Cells(4, i)) Then
Columns(i).Hidden = True
End If
Next i
For i = 9 To 16
If IsEmpty(Cells(4, i)) Then
Columns(i).Hidden = True
End If
Next i
For i = 18 To 24
If IsEmpty(Cells(4, i)) Then
Columns(i).Hidden = True
End If
Next i
For i = 26 To 32
If IsEmpty(Cells(4, i)) Then
Columns(i).Hidden = True
End If
Next i
For i = 34 To 40
If IsEmpty(Cells(4, i)) Then
Columns(i).Hidden = True
End If
Next i
For i = 42 To 48
If IsEmpty(Cells(4, i)) Then
Columns(i).Hidden = True
End If
Next i
For i = 50 To 56
If IsEmpty(Cells(4, i)) Then
Columns(i).Hidden = True
End If
Next i
CommandButton2.Caption = "Показатьскрытыестолбцы"
Else
For i = 2 To 8
If Columns(i).Hidden = True Then
Columns(i).Hidden = False
End If
Next i
For i = 9 To 16
If Columns(i).Hidden = True Then
Columns(i).Hidden = False
End If
Next i
For i = 18 To 24
If Columns(i).Hidden = True Then
Columns(i).Hidden = False
End If
Next i
For i = 26 To 32
If Columns(i).Hidden = True Then
Columns(i).Hidden = False
End If
Next i
For i = 34 To 40
If Columns(i).Hidden = True Then
Columns(i).Hidden = False
End If
Next i
For i = 42 To 48
If Columns(i).Hidden = True Then
Columns(i).Hidden = False
End If
Next i
For i = 50 To 56
If Columns(i).Hidden = True Then
Columns(i).Hidden = False
End If
Next i
CommandButton2.Caption = "Скрытьпустыестолбцы"
End If
End Sub
Приложение 2
Макрос «Itogi»
Private Sub CommandButton1_Click()
Dim intTarray(1 To 11) As Integer
For i = 5 To 76
s = Worksheets("Лист1").Cells(i, 1).Value
s1 = Left(s, Len(s) - 1)
intTarray(Val(s1)) = intTarray(Val(s1)) + 1
Nexti
For i = 7 To 100
For j = 1 To 7
Worksheets("Лист2").Cells(i, j).Value = ""
Next j
Next i
k = 6
For i = 2 To 11
For j = 5 To 76
s = Worksheets("Лист1").Cells(j, 1).Value
If Len(s) <> 0 Then
If Len(s) > 1 Then r = 2 Else r = 1
If Val(Left(s, r)) = i Then
s0 = Worksheets("Лист1").Cells(j, 2).Value
S1 = Worksheets("Лист1").Cells(j, 6).Value
S11 = S11 + S1
s2 = Worksheets("Лист1").Cells(j, 7).Value
s12 = s12 + s2
S3 = Worksheets("Лист1").Cells(j, 8).Value
s31 = s31 + S3
s4 = Worksheets("Лист1").Cells(j, 9).Value
s41 = s41 + s4
s5 = Worksheets("Лист1").Cells(j, 10).Value
s15 = s15 + s5
k = k + 1
Worksheets("Лист2").Cells(k, 1).Value = s
Worksheets("Лист2").Cells(k, 2).Value = s0
Worksheets("Лист2").Cells(k, 3).Value = S1 & "/" & s2
Worksheets("Лист2").Cells(k, 6).Value = S3 & "(" & s4 & ")"
Worksheets("Лист2").Cells(k, 4).Value = s5
If S1 = "" Or s2 = "" Then
Worksheets("Лист2").Cells(k, 5).Value = " "
Else
Worksheets("Лист2").Cells(k, 5).Value = Str(Round(100 * (Val(S1) - Val(s5)) / Val(S1))) & "%"
KLASS = KLASS + 1
A = A + Round(100 * (Val(S1) - Val(s5)) / Val(S1))
End If
If S1 = "" Or S3 = "" Then Worksheets("Лист2").Cells(k, 7).Value = " " Else Worksheets("Лист2").Cells(k, 7).Value = Str(Round(100 * Val(S3) / Val(S1))) & "%"
s10 = s10 + Val(S1)
s20 = s20 + Val(s2)
s30 = s30 + Val(S3)
s40 = s40 + Val(s4)
S50 = S50 + Val(s5)
End If
End If
Next j
k = k + 1
Worksheets("Лист2").Cells(k, 2).Value = "Итого"
Worksheets("Лист2").Cells(k, 3).Value = Str(s10) & "/" & Str(s20)
Worksheets("Лист2").Cells(k, 4).Value = Str(S50)
Worksheets("Лист2").Cells(k, 5).Value = Str(Round(100 * (s10 - S50) / s10)) & "%"
Worksheets("Лист2").Cells(k, 6).Value = Str(s30) & "(" & Str(s40) & ")"
Worksheets("Лист2").Cells(k, 7).Value = Str(Round(100 * s30 / s10)) & "%"
k = k + 1
If (i = 4) Or (i = 9) Or (i = 11) Then
Worksheets("Лист2").Cells(k, 2).Font.Bold = True
Worksheets("Лист2").Cells(k, 2).Value = "Итого по ступени"
Worksheets("Лист2").Cells(k, 3).Font.Bold = True
Worksheets("Лист2").Cells(k, 3).Value = S11 & "/" & s12
Worksheets("Лист2").Cells(k, 4).Font.Bold = True
Worksheets("Лист2").Cells(k, 4).Value = s15
Worksheets("Лист2").Cells(k, 5).Font.Bold = True
Worksheets("Лист2").Cells(k, 5).Value = Str(Round(A / KLASS)) & "%"
Worksheets("Лист2").Cells(k, 6).Font.Bold = True
Worksheets("Лист2").Cells(k, 6).Value = Str(s31) & "(" & Str(s41) & ")"
A = 0
KLASS = 0
s15 = 0
Worksheets("Лист2").Cells(k, 7).Font.Bold = True
Worksheets("Лист2").Cells(k, 7).Value = Str(Round(100 * s31 / S11)) & "%"
s31 = 0
s41 = 0
S11 = 0
k = k + 1
End If
s100 = s100 + s10
s200 = s200 + s20
s300 = s300 + s30
s400 = s400 + s40
s500 = s500 + S50
s10 = 0
s20 = 0
s30 = 0
s40 = 0
S50 = 0
Next i
k = k + 1
Worksheets("Лист2").Cells(k, 2).Value = "Итогополицею"
Worksheets("Лист2").Cells(k, 3).Value = Str(s100) & "/" & Str(s200)
Worksheets("Лист2").Cells(k, 4).Value = Str(s500)
Worksheets("Лист2").Cells(k, 5).Value = Str(Round(100 * (s100 - s500) / s100)) & "%"
Worksheets("Лист2").Cells(k, 6).Value = Str(s300) & "(" & Str(s400) & ")"
Worksheets("Лист2").Cells(k, 7).Value = Str(Round(100 * s300 / s100)) & "%"
Worksheets("Лист2").Cells(k + 3, 2).Value = "Директор экономического лицея"
Worksheets("Лист2").Cells(k + 3, 7).Value = "Н.И.Кузенко"
k = 2
Worksheets("Лист4").Cells(k, 2).Value = "Итогополицею"
Worksheets("Лист2").Cells(k, 3).Value = Str(s100) & "/" & Str(s200)
Worksheets("Лист2").Cells(k, 4).Value = Str(s500)
Worksheets("Лист2").Cells(k, 5).Value = Str(Round(100 * (s200 - s500) / s100)) & "%"
Worksheets("Лист2").Cells(k, 6).Value = Str(s300) & "(" & Str(s400) & ")"
Worksheets("Лист2").Cells(k, 7).Value = Str(Round(100 * s300 / s100)) & "%"
End Sub
Макрос «Неуспевающие »
PrivateSubCommandButton1_Click()
Dim s As String
For i = 1 To 4
For j = 8 To 150
Worksheets("Лист3").Cells(j, i).Value = ""
Next j
Next i
k = 1
j = 8
For i = 5 To 76
S1 = Worksheets("Лист1").Cells(i, 4).Value
s2 = Worksheets("Лист1").Cells(i, 5).Value
s = Worksheets("Лист1").Cells(i, 1).Value
If S1 <> "" Then S1 = S1 + ";"
t = 1
While t <= Len(s2)
If Mid(s2, t, 1) <> ":" Then
S1 = S1 + Mid(s2, t, 1)
Else
S1 = S1 + Mid(s2, t, 1) + " н/а "
End If
t = t + 1
Wend
If Len(S1) <> 0 Then
If Mid(S1, Len(S1), 1) <> ";" Then
S1 = S1 + ";"
End If
End If
While InStr(S1, ":") > 0
q = Mid(S1, 1, InStr(S1, ":") - 1)
S1 = Mid(S1, InStr(S1, ":") + 1, Len(S1))
n = Mid(S1, 1, InStr(S1, ";") - 1)
S1 = Mid(S1, InStr(S1, ";") + 1, Len(S1))
If InStr(S1, q) > 0 Then
n = n + ";" + Mid(Mid(Mid(S1, InStr(S1, q) - 1, Len(S1)), InStr(Mid(S1, InStr(S1, q) - 1, Len(S1)), ":") + 1, Len(S1)), 1, InStr(Mid(Mid(S1, InStr(S1, q) - 1, Len(S1)), InStr(Mid(S1, InStr(S1, q) - 1, Len(S1)), ":") + 1, Len(S1)), ";") - 1)
S1 = Mid(S1, 1, InStr(S1, q) - 1) + Mid(Mid(S1, InStr(S1, q), Len(S1)), InStr(Mid(S1, InStr(S1, q), Len(S1)), ";") + 1, Len(S1))
Worksheets("Лист3").Cells(j, 1).Value = k
Worksheets("Лист3").Cells(j, 2).Value = q
Worksheets("Лист3").Cells(j, 3).Value = s
Worksheets("Лист3").Cells(j, 4).Value = n
Else
Worksheets("Лист3").Cells(j, 1).Value = k
Worksheets("Лист3").Cells(j, 2).Value = q
Worksheets("Лист3").Cells(j, 3).Value = s
Worksheets("Лист3").Cells(j, 4).Value = n
End If
k = k + 1
j = j + 1
Wend
Next i
Worksheets("Лист3").Cells(j + 2, 2).Value = "Итого:"
Worksheets("Лист3").Cells(j + 2, 3).Value = Str(k - 1) + "чел."
Worksheets("Лист3").Cells(j + 4, 2).Value = "Директор "
Worksheets("Лист3").Cells(j + 5, 2).Value = "экономического лицея"
Worksheets("Лист3").Cells(j + 5, 4).Value = "Н.И.Кузенко"
End Sub
Макрос «Пропуски»
Private Sub CommandButton1_Click()
Dim s As String
For i = 3 To 150
For j = 1 To 5
Worksheets("Лист4").Cells(i, j).Value = ""
Next j
Next i
k = 3
For nk = 1 To 11
For i = 5 To 76
s = Worksheets("Лист1").Cells(i, 1).Value
If Len(s) <> 0 Then
If Len(s) > 1 Then r = 2 Else r = 1
If Val(Left(s, r)) = nk Then
Worksheets("Лист4").Cells(k, 1).Value = Worksheets("Лист1").Cells(i, 1).Value
Worksheets("Лист4").Cells(k, 2).Value = Worksheets("Лист1").Cells(i, 11).Value
S1 = S1 + Val(Worksheets("Лист1").Cells(i, 11).Value)
Worksheets("Лист4").Cells(k, 3).Value = Worksheets("Лист1").Cells(i, 12).Value
s2 = s2 + Val(Worksheets("Лист1").Cells(i, 12).Value)
Worksheets("Лист4").Cells(k, 4).Value = Worksheets("Лист1").Cells(i, 13).Value
S3 = S3 + Val(Worksheets("Лист1").Cells(i, 13).Value)
Worksheets("Лист4").Cells(k, 5).Value = Worksheets("Лист1").Cells(i, 14).Value
s4 = s4 + Val(Worksheets("Лист1").Cells(i, 14).Value)
k = k + 1
End If
End If
Next i
Worksheets("Лист4").Cells(k, 1).Value = "Итогопопарралели"
Worksheets("Лист4").Cells("a3:a66").Interior.Color = RGB(255, 255, 255)
Worksheets("Лист4").Cells(k, 1).Interior.Color = RGB(255, 255, 0)
Worksheets("Лист4").Cells(k - 1, 2).Interior.Color = RGB(255, 255, 255)
Worksheets("Лист4").Cells(k - 1, 3).Interior.Color = RGB(255, 255, 255)
Worksheets("Лист4").Cells(k - 1, 4).Interior.Color = RGB(255, 255, 255)
Worksheets("Лист4").Cells(k - 1, 5).Interior.Color = RGB(255, 255, 255)
Worksheets("Лист4").Cells(k, 2).Interior.Color = RGB(255, 255, 0)
Worksheets("Лист4").Cells(k, 3).Interior.Color = RGB(255, 255, 0)
Worksheets("Лист4").Cells(k, 4).Interior.Color = RGB(255, 255, 0)
Worksheets("Лист4").Cells(k, 5).Interior.Color = RGB(255, 255, 0)
Worksheets("Лист4").Cells(k, 2).Value = Str(S1)
Worksheets("Лист4").Cells(k, 3).Value = Str(s2)
Worksheets("Лист4").Cells(k, 4).Value = Str(S3)
Worksheets("Лист4").Cells(k, 5).Value = Str(s4)
S11 = S11 + S1
S22 = S22 + s2
S33 = S33 + S3
S44 = S44 + s4
S1 = 0
s2 = 0
S3 = 0
s4 = 0
k = k + 1
If (nk = 4) Or (nk = 9) Or (nk = 11) Then
Worksheets("Лист4").Cells(k, 1).Value = "Итого по ступени"
Worksheets("Лист4").Cells(k, 2).Value = Str(S11)
Worksheets("Лист4").Cells(k, 3).Value = Str(S22)
Worksheets("Лист4").Cells(k, 4).Value = Str(S33)
Worksheets("Лист4").Cells(k, 5).Value = Str(S44)
S11 = 0
S22 = 0
S33 = 0
S44 = 0
k = k + 1
End If
Next nk
End Sub
Приложение 3
Макрос «Выбыли»
Sub выбыли()
Dim s As String
For i = 6 To 76
Worksheets("Лист2").Cells(i, 2).Value = ""
Worksheets("Лист2").Cells(i, 3).Value = ""
Worksheets("Лист2").Cells(i, 4).Value = ""
Next i
j = 5
For i = 3 To 73
s = Worksheets("Лист1").Cells(i, 8).Value
s2 = Worksheets("Лист1").Cells(i, 2).Value
s1 = Trim(s)
If s1 <> "" Then
j = j + 1
While InStr(s1, ";") > 0
Worksheets("Лист2").Cells(j, 3).Value = Trim(Mid(s1, 1, InStr(s1, ";") - 1))
Worksheets("Лист2").Cells(j, 2).Value = j - 5
Worksheets("Лист2").Cells(j, 4).Value = s2
s1 = Mid(s1, InStr(s1, ";") + 1, Len(s1))
j = j + 1
Wend
Worksheets("Лист2").Cells(j, 3).Value = Trim(s1)
Worksheets("Лист2").Cells(j, 2).Value = j - 5
Worksheets("Лист2").Cells(j, 4).Value = s2
End If
Next i
Worksheets("Лист2").Cells(j + 2, 2).Value = "Итого:"
Worksheets("Лист2").Cells(j + 2, 3).Value = Str(j - 5) + "чел."
Worksheets("Лист2").Cells(j + 4, 2).Value = "Директор "
Worksheets("Лист2").Cells(j + 5, 2).Value = "Экономического лицея"
Worksheets("Лист2").Cells(j + 5, 4).Value = "Кузенко Н.И."
End Sub
Макрос «Прибыли»
Sub прибыли()
Dim s As String
For i = 6 To 106
Worksheets("Лист3").Cells(i, 2).Value = ""
Worksheets("Лист3").Cells(i, 3).Value = ""
Worksheets("Лист3").Cells(i, 4).Value = ""
Next i
j = 5
For i = 3 To 73
s = Worksheets("Лист1").Cells(i, 7).Value
s2 = Worksheets("Лист1").Cells(i, 2).Value
s1 = Trim(s)
If s1 <> "" Then
j = j + 1
While InStr(s1, ";") > 0
Worksheets("Лист3").Cells(j, 3).Value = Trim(Mid(s1, 1, InStr(s1, ";") - 1))
Worksheets("Лист3").Cells(j, 2).Value = j - 5
Worksheets("Лист3").Cells(j, 4).Value = s2
s1 = Mid(s1, InStr(s1, ";") + 1, Len(s1))
j = j + 1
Wend
Worksheets("Лист3").Cells(j, 3).Value = Trim(s1)
Worksheets("Лист3").Cells(j, 2).Value = j - 5
Worksheets("Лист3").Cells(j, 4).Value = s2
End If
Next i
Worksheets("Лист3").Cells(j + 2, 2).Value = "Итого:"
Worksheets("Лист3").Cells(j + 2, 3).Value = Str(j - 5) + "чел."
Worksheets("Лист3").Cells(j + 4, 2).Value = "Директор "
Worksheets("Лист3").Cells(j + 5, 2).Value = "Экономического лицея"
Worksheets("Лист3").Cells(j + 5, 4).Value = "Кузенко Н.И."
End Sub
Макрос «Наполняемость»
Sub наполняемость()
a1 = Worksheets("Лист1").Cells(75, 3).Value
a2 = Worksheets("Лист1").Cells(76, 3).Value
a3 = Worksheets("Лист1").Cells(77, 3).Value
If a1 > a2 And a1 > a3 Then a1 = a1
If a2 > a1 And a2 > a3 Then a1 = a2
If a1 > a2 And a1 > a3 Then a1 = a3
a4 = Worksheets("Лист1").Cells(78, 3).Value
a5 = Worksheets("Лист1").Cells(79, 3).Value
a6 = Worksheets("Лист1").Cells(80, 3).Value
If a4 > a5 And a4 > a6 Then a2 = a4
If a5 > a4 And a5 > a6 Then a2 = a5
If a6 > a4 And a6 > a5 Then a2 = a6
a7 = Worksheets("Лист1").Cells(75, 5).Value
a8 = Worksheets("Лист1").Cells(76, 5).Value
a9 = Worksheets("Лист1").Cells(77, 5).Value
If a7 > a8 And a7 > a9 Then a3 = a7
If a8 > a7 And a8 > a9 Then a3 = a8
If a9 > a7 And a9 > a8 Then a3 = a9
a10 = Worksheets("Лист1").Cells(78, 5).Value
a11 = Worksheets("Лист1").Cells(79, 5).Value
If a10 > a11 Then a4 = a10 Else a4 = a11
For i = 3 To 73
Worksheets("Лист4").Cells(i, 1).Value = ""
Worksheets("Лист4").Cells(i, 2).Value = ""
Worksheets("Лист4").Cells(i, 3).Value = ""
Worksheets("Лист4").Cells(i, 4).Value = ""
Worksheets("Лист4").Cells(i, 5).Value = ""
Worksheets("Лист4").Cells(i, 6).Value = ""
Worksheets("Лист4").Cells(i, 7).Value = ""
Worksheets("Лист4").Cells(i, 8).Value = ""
Worksheets("Лист4").Cells(i, 9).Value = ""
Next i
For i = 3 To 73
s = Worksheets("Лист1").Cells(i, 3).Value
s1 = Worksheets("Лист1").Cells(i, 2).Value
s2 = Worksheets("Лист1").Cells(i, 9).Value
s3 = Worksheets("Лист1").Cells(i, 11).Value
If s = "" Then Exit For
Select Case s
Case 1
j1 = j1 + 1
q1 = q1 + s2
Worksheets("Лист4").Cells(4 + j1, 1).Value = s1
Worksheets("Лист4").Cells(4 + j1, 2).Value = s2
Case 2
j2 = j2 + 1
q2 = q2 + s2
Worksheets("Лист4").Cells(4 + j2, 5).Value = s1
Worksheets("Лист4").Cells(4 + j2, 6).Value = s2
Case 3
j3 = j3 + 1
q3 = q3 + s2
Worksheets("Лист4").Cells(4 + j3, 9).Value = s1
Worksheets("Лист4").Cells(4 + j3, 10).Value = s2
Case 4
j4 = j4 + 1
q4 = q4 + s2
Worksheets("Лист4").Cells(7 + a1 + j4, 1).Value = s1
Worksheets("Лист4").Cells(7 + a1 + j4, 2).Value = s2
Case 5
j5 = j5 + 1
q5 = q5 + s2
Worksheets("Лист4").Cells(7 + a1 + j5, 5).Value = s1
Worksheets("Лист4").Cells(7 + a1 + j5, 6).Value = s2
Worksheets("Лист4").Cells(7 + a1 + j5, 7).Value = s3
Case 6
j6 = j6 + 1
q6 = q6 + s2
Worksheets("Лист4").Cells(7 + a1 + j6, 9).Value = s1
Worksheets("Лист4").Cells(7 + a1 + j6, 10).Value = s2
Worksheets("Лист4").Cells(7 + a1 + j6, 11).Value = s3
Case 7
j7 = j7 + 1
q7 = q7 + s2
Worksheets("Лист4").Cells(10 + j7 + a1 + a2, 1).Value = s1
Worksheets("Лист4").Cells(10 + j7 + a1 + a2, 2).Value = s2
Worksheets("Лист4").Cells(10 + j7 + a1 + a2, 3).Value = s3
Case 8
j8 = j8 + 1
q8 = q8 + s2
Worksheets("Лист4").Cells(10 + j8 + a1 + a2, 5).Value = s1
Worksheets("Лист4").Cells(10 + j8 + a1 + a2, 6).Value = s2
Worksheets("Лист4").Cells(10 + j8 + a1 + a2, 7).Value = s3
Case 9
j9 = j9 + 1
q9 = q9 + s2
Worksheets("Лист4").Cells(10 + j9 + a1 + a2, 9).Value = s1
Worksheets("Лист4").Cells(10 + j9 + a1 + a2, 10).Value = s2
Worksheets("Лист4").Cells(10 + j9 + a1 + a2, 11).Value = s3
Case 10
j10 = j10 + 1
q10 = q10 + s2
Worksheets("Лист4").Cells(16 + j10 + a1 + a2 + a3, 1).Value = s1
Worksheets("Лист4").Cells(16 + j10 + a1 + a2 + a3, 2).Value = s2
Worksheets("Лист4").Cells(16 + j10 + a1 + a2 + a3, 3).Value = s3
Case 11
j11 = j11 + 1
q11 = q11 + s2
Worksheets("Лист4").Cells(16 + j11 + a1 + a2 + a3, 5).Value = s1
Worksheets("Лист4").Cells(16 + j11 + a1 + a2 + a3, 6).Value = s2
Worksheets("Лист4").Cells(16 + j11 + a1 + a2 + a3, 7).Value = s3
End Select
Next i
Worksheets("Лист4").Cells(5 + j1, 1).Value = "Итого"
Worksheets("Лист4").Cells(5 + j1, 2).Value = q1
Worksheets("Лист4").Cells(5 + j2, 5).Value = "Итого"
Worksheets("Лист4").Cells(5 + j2, 6).Value = q2
Worksheets("Лист4").Cells(5 + j3, 10).Value = q3
Worksheets("Лист4").Cells(8 + j4 + a1, 2).Value = q4
Worksheets("Лист4").Cells(8 + j5 + a1, 6).Value = q5
Worksheets("Лист4").Cells(8 + j6 + a1, 9).Value = "Итого"
Worksheets("Лист4").Cells(8 + j6 + a1, 10).Value = q6
Worksheets("Лист4").Cells(11 + j7 + a1 + a2, 1).Value = "Итого"
Worksheets("Лист4").Cells(11 + j7 + a1 + a2, 2).Value = q7
Worksheets("Лист4").Cells(11 + j8 + a1 + a2, 5).Value = "Итого"
Worksheets("Лист4").Cells(11 + j8 + a1 + a2, 6).Value = q8
Worksheets("Лист4").Cells(11 + j9 + a1 + a2, 9).Value = "Итого"
Worksheets("Лист4").Cells(11 + j9 + a1 + a2, 10).Value = q9
Worksheets("Лист4").Cells(17 + j10 + a1 + a2 + a3, 1).Value = "Итого"
Worksheets("Лист4").Cells(17 + j10 + a1 + a2 + a3, 2).Value = q10
Worksheets("Лист4").Cells(17 + j11 + a1 + a2 + a3, 5).Value = "Итого"
Worksheets("Лист4").Cells(17 + j11 + a1 + a2 + a3, 6).Value = q11
Worksheets("Лист4").Cells(3 + 11 + j11 + a1 + a2 + a3 + a4, 3).Value = "Итого"
Worksheets("Лист4").Cells(3 + 11 + j11 + a1 + a2 + a3 + a4, 5).Value = "1 - 4 кл"
Worksheets("Лист4").Cells(3 + 12 + j11 + a1 + a2 + a3 + a4, 5).Value = "5 - 9 кл"
Worksheets("Лист4").Cells(3 + 13 + j11 + a1 + a2 + a3 + a4, 5).Value = "10 - 11 кл"
Worksheets("Лист4").Cells(3 + 11 + j11 + a1 + a2 + a3 + a4, 6).Value = q1 + q2 + q3 + q4
Worksheets("Лист4").Cells(3 + 12 + j11 + a1 + a2 + a3 + a4, 6).Value = q5 + q6 + q7 + q8 + q9
Worksheets("Лист4").Cells(3 + 13 + j11 + a1 + a2 + a3 + a4, 6).Value = q10 + q11
Worksheets("Лист4").Cells(3 + 14 + j11 + a1 + a2 + a3 + a4, 5).Value = "Всего"
Worksheets("Лист4").Cells(3 + 14 + j11 + a1 + a2 + a3 + a4, 6).Value = q10 + q11 + q5 + q6 + q7 + q8 + q9 + q1 + q2 + q3 + q4
End Sub
Нет нужной работы в каталоге?
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
1 000 +
Новых работ ежедневно
Требуются доработки?
Они включены в стоимость работы 
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Иванна
Математика
История
Экономика
159599
рейтинг
рейтинг
3275
работ сдано
работ сдано
1404
отзывов
отзывов
Ludmila
Математика
Физика
История
156450
рейтинг
рейтинг
6068
работ сдано
работ сдано
2737
отзывов
отзывов
Svetlana
Химия
Экономика
Биология
105734
рейтинг
рейтинг
2110
работ сдано
работ сдано
1318
отзывов
отзывов
Константин Николаевич
Высшая математика
Информатика
Геодезия
62710
рейтинг
рейтинг
1046
работ сдано
работ сдано
598
отзывов
отзывов
Отзывы студентов о нашей работе
63 457 оценок
среднее 4.9 из 5
Мария
Тгу им. Г. Р. Державина
Реферат сделан досрочно, преподавателю понравилось, я тоже в восторге. Спасибо Татьяне за ...
Анастасия
РЭУ им.Плеханово
Альберт хороший исполнитель, сделал реферат очень быстро, вечером заказала, утром уже все ...
Светлана
ФЭК
Маринаааа, спасибо вам огромное! Вы профессионал своего дела! Рекомендую всем ✌🏽😎
Альберт хороший исполнитель, сделал реферат очень быстро, вечером заказала, утром уже все было готово,спасибо большое)
Анастасия
РЭУ им.Плеханово
Маринаааа, спасибо вам огромное! Вы профессионал своего дела! Рекомендую всем ✌🏽😎
Светлана
ФЭК
Последние размещённые задания
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
только что
Выполнить 2 контрольные работы по Информационные технологии и сети в нефтегазовой отрасли. М-07765
Контрольная, Информационные технологии
Срок сдачи к 12 дек.
только что
1 минуту назад
Архитектура и организация конфигурации памяти вычислительной системы
Лабораторная, Архитектура средств вычислительной техники
Срок сдачи к 12 дек.
1 минуту назад
Организации профилактики травматизма в спортивных секциях в общеобразовательной школе
Курсовая, профилактики травматизма, медицина
Срок сдачи к 5 дек.
2 минуты назад
краткая характеристика сбербанка анализ тарифов РКО
Отчет по практике, дистанционное банковское обслуживание
Срок сдачи к 5 дек.
2 минуты назад
Исследование методов получения случайных чисел с заданным законом распределения
Лабораторная, Моделирование, математика
Срок сдачи к 10 дек.
4 минуты назад
Проектирование заготовок, получаемых литьем в песчано-глинистые формы
Лабораторная, основы технологии машиностроения
Срок сдачи к 14 дек.
4 минуты назад
6 минут назад
6 минут назад
Вам необходимо выбрать модель медиастратегии
Другое, Медиапланирование, реклама, маркетинг
Срок сдачи к 7 дек.
7 минут назад
Ответить на задания
Решение задач, Цифровизация процессов управления, информатика, программирование
Срок сдачи к 20 дек.
7 минут назад
Написать реферат по Информационные технологии и сети в нефтегазовой отрасли. М-07764
Реферат, Информационные технологии
Срок сдачи к 11 дек.
8 минут назад
9 минут назад
Написать реферат по Информационные технологии и сети в нефтегазовой отрасли. М-07764
Реферат, Геология
Срок сдачи к 11 дек.
10 минут назад
Разработка веб-информационной системы для автоматизации складских операций компании Hoff
Диплом, Логистические системы, логистика, информатика, программирование, теория автоматического управления
Срок сдачи к 1 мар.
10 минут назад
Нужно решить задание по информатике и математическому анализу (скрин...
Решение задач, Информатика
Срок сдачи к 5 дек.
11 минут назад
11 минут назад
Закажи индивидуальную работу за 1 минуту!
Размещенные на сайт контрольные, курсовые и иные категории работ (далее — Работы) и их содержимое предназначены исключительно для ознакомления, без целей коммерческого использования. Все права в отношении Работ и их содержимого принадлежат их законным правообладателям. Любое их использование возможно лишь с согласия законных правообладателей. Администрация сайта не несет ответственности за возможный вред и/или убытки, возникшие в связи с использованием Работ и их содержимого.
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Мы ВКонтакте 
Трейлер о сайте
Принимаем к оплате
© 2011—2025 Всё сдал!