РефератыИнформатика, программированиеСиСистема компьютерной обработки данных

Система компьютерной обработки данных

Отдел образования администрации Центрального района Муниципальное общеобразовательное учреждение


Экономический лицей


Секция – компьютерные технологии


Система компьютерной обработки данных


Балута Дмитрий


Лифинцев Евгений


учащиеся 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

Сохранить в соц. сетях:
Обсуждение:
comments powered by Disqus

Название реферата: Система компьютерной обработки данных

Слов:3725
Символов:37382
Размер:73.01 Кб.