Курсовая работа: Успеваемость студентов

If j = Group.ListCount Then Group.AddItem Value

i = i + 1

End If

Loop Until Len(Value) = 0

End With

Group.ListIndex = 0

Autumn.Value = True

End Sub

Модули :

Модуль Main:

Public Sub QDialog1()

MainForm.Show

End Sub

Модуль Module 1:

Sub Macro1()

'' Macro1 Macro

' Macro recorded 25.12.2006 by Zeon

'Columns("A:A").ColumnWidth = 33.29

Columns("B:B").ColumnWidth = 17.14

Columns("C:C").ColumnWidth = 16.57

End Sub

Модуль Module 2:

Sub Macro2()

'' Macro2 Macro

' Macro recorded 25.12.2006 by Zeon

'Range("C17:D17").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom