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

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

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

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

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

s (i, 14). Value)

k = K + 1

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) + "чол." p> Worksheets ("Лист2"). Cells (j + 4, 2). Value = "Директор "p> 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) + "чол." p> Worksheets ("Ліст3"). Cells (j + 4, 2). Value = "Директор "p> 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"). Ce...

Назад | сторінка 5 з 7 | Наступна сторінка

Схожі реферати:

Реферат на тему: Конфлікт молодої сім'ї з родиною батьків, які проживають разом

Реферат на тему: Спорт, спортсмен, релігія: разом чи нарізно в XXI століття?

Реферат на тему: Економічний аналіз діяльності будівельної компанії ПП &Будуємо разом&

Реферат на тему: Права і обов'язки громадян, які проживають разом з власником в належном ...

Реферат на тему: Проект соціокультурного розвитку дітей старшого дошкільного віку "Живе ...

Український реферат переглянуто разів: | Коментарів до українського реферату:

Коментарів до українського реферату: 0