Система компьютерной обработки данных
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
? содержит ряд графиков, которые сравниваются между собой как с эталонами. Сравнение графиков позволяет сделать выводы об уровнях качества обучения на разных параллелях в данной школе.
Литература
- Электронный учебник по VBA,
- Информатика и информационные технологии 10-11 класс, Н. Угринович.
- 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