Теми рефератів

> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти

Реферати, твори, дипломи, практика » Новые рефераты » Система комп'ютерної обробки даних

Реферат Система комп'ютерної обробки даних

Тема: Новые рефераты

ься автоматично. Для цього розроблені макроси В«ВибувВ», В«ПрибуткиВ», В«НаповнюваністьВ» (додаток 3).

обробка комп'ютерний навчання успішність учень

Висновок

Пропонована В«Система комп'ютерної обробки даних В»використовується в ліцеї для аналізу результатів навчального процесу за чверть, півріччя, рік.

Аналіз результатів навчального процесу націлений на виділення першочергових завдань навчання, він містить ряд графіків, які порівнюються між собою як з еталонами. Порівняння графіків дозволяє зробити висновки про рівні якості навчання на різних паралелях в даній школі.

Література

1. Електронний підручник з VBA,

2. В«Інформатика та інформаційні технології 10-11 клас В», Н. Угринович.

3. В«MS EXCEL і VBA. Приклади і завдання В», Панфілова Т.І.

Додаток 1

Макрос В«Переклад рокуВ»

Private Sub CommandButton1_Click ()

msg = "Ви дійсно хочете додати рік? "

opt = VbExclamation + vbYesNo + VbDefaultButton2

tit = "" p> А = 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