писку L1 на 3-му аркуші
Worksheets (3). L1.Clear
For i = +1 To N_Days
Worksheets (3). L1.AddItem Worksheets (2). Cells (i + 1, 4). Value
Next
'Підрахунок занять протягом дня
N_Times = 0
While Worksheets (2). Cells (N_Times + 2, 5). Value <> ""
N_Times = N_Times + 1
Wend
'Заповнення списку L2 на 3-му аркуші
Worksheets (3). L2.Clear
For i = 1 To N_Times
Worksheets (3). L2.AddItem CStr (Worksheets (2). Cells (i + 1, 5). Value)
Next
'Підрахунок числа тижнів на другому аркуші
N_Ned = 0
While Worksheets (2). Cells (N_Ned + 2, 3). Value <> ""
N_Ned = N_Ned + 1
Wend
'Заповнення 3-го списку L3 на 3-му аркуші
Worksheets (3). L3.Clear
For i = 1 To N_Ned
Worksheets (3). L3.AddItem Worksheets (2). Cells (i + 1, 3). Value
Next
'Заповнення списків тижнів на 4-му аркуші
Worksheets (4). C1.Clear
Worksheets (4). C2.Clear
For i = 1 To N_Ned
Worksheets (4). C1.AddItem Worksheets (2). Cells (i + 1, 3). Value
Worksheets (4). C2.AddItem Worksheets (2). Cells (i + 1, 3). Value
Next
'Заповнення списку тижнів на 8-му аркуші
Worksheets (8). L1.Clear
For i = 1 To N_Ned
Worksheets (8). L1.AddItem Worksheets (2). Cells (i + 1, 3). Value
Next
'Заповнення списку тижнів на 9-му аркуші
Worksheets (9). L1.Clear
Worksheets (9). L2.Clear
For i = 1 To N_Ned
Worksheets (9). L1.AddItem Worksheets (2). Cells (i + 1, 3). Value
Worksheets (9). L2.AddItem Worksheets (2). Cells (i + 1, 3). Value
Next
'Заповнення списку тижнів на 10-му аркуші
Worksheets (10). L1.Clear
Worksheets (10). L2.Clear
For i = 1 To N_Ned
Worksheets (10). L1.AddItem Worksheets (2). Cells (i + 1, 3). Value
Worksheets (10). L2.AddItem Worksheets (2). Cells (i + 1, 3). Value
Next
'Підрахунок числа викладачів
N_Prepod = 0
While Worksheets (2). Cells (N_Prepod + 2, 7). Value <> "" p> N_Prepod = N_Prepod + 1
Wend
'Заповнення списку викладачів на аркуші Навантаження
Worksheets (12). Prepod.Clear
For i = 1 To N_Prepod
Worksheets (12). Prepod.AddItem Worksheets (2). Cells (i + 1, 7). Value
Next
Worksheets (11). mesac.Clear
Worksheets (11). mesac.AddItem "Вересень"
Worksheets (11). mesac.AddItem "Жовтень"
Worksheets (11). mesac.AddItem "Листопад"
Worksheets (11). mesac.AddItem "Грудень"
Worksheets (11). mesac.AddItem "Январь"
Worksheets (11). mesac.AddItem "Лютий"
Worksheets (11). mesac.AddItem "Март"
Worksheets (11). mesac.AddItem "Квітень"
Worksheets (11). mesac.AddItem "Травень"
Worksheets (11). mesac.AddItem "червень"
'Встановлення захисту на перший і другий аркуші
Worksheets (1). Protect DrawingObjects: = True, Contents: = True, _
Scenarios: = True
Worksheets (2). Protect DrawingObjects: = True, Contents: = True, _
Scenarios: = True
End Sub
СПИСОК ЛІТЕРАТУРИ
1 Смирнов Г.Н. В«Проектування економічних інформаційних систем В». Підручник.-М.: Фінанси і статистика, 2003. p> 2. Ємельянова Н.З. та ін В«Основи побудови автоматизованих систем В». Навчальний посібник. - М.: Форум: ИНФРА-М, 2005. p> 3. Гарнаєв А.Ю. В«Самовчитель VBA.В» СПБ.: БХВ-Петеребурга, 2004. p> 4. Уокенбах Д. В«Професійне програмування на VBA в Exel 2002В».: Переклад з англійської. - М.: Видавничий дім «³льямсВ», 2003
