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

Информация - Компьютеры, программирование

Другие материалы по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Пожалуйста введите слова с картинки:

2. И нажмите на эту кнопку.
закрыть



содержит ряд графиков, которые сравниваются между собой как с эталонами. Сравнение графиков позволяет сделать выводы об уровнях качества обучения на разных параллелях в данной школе.

 

Литература

 

  1. Электронный учебник по VBA,
  2. Информатика и информационные технологии 10-11 класс, Н. Угринович.
  3. MS EXCEL и VBA. Примеры и задания, Панфилова Т.И.

 

Приложение 1

 

Макрос Перевод года

Private Sub CommandButton1_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

s