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

ChartObj.Chart.ChartType = xlPie

ChartObj.Chart.SeriesCollection.Add Source:=Range(.Cells(4, 2), .Cells(7, 2))

ChartObj.Chart.SeriesCollection.Item(1).XValues = Range(.Cells(4, 1), .Cells(7, 1))

ChartObj.Chart.HasLegend = True

ChartObj.Chart.Legend.Position = xlBottom

ChartObj.Chart.HasTitle = True

ChartObj.Chart.ChartTitle.Text = "Диаграмма успеваемости группы " + Group.Value + Chr(10) + "по предмету " + Object.Value + Chr(10) + "за " + Str(Index + 1) + "-й семестр"

End With

End Sub

Private Sub Spring_Click()

Spring.Value = True

Autumn.Value = False

End Sub

Private Sub UserForm_Initialize()

Dim i As Integer

Dim Value As String

i = 2

With ActiveWorkbook.Sheets(1)

Do

Value = .Cells(i, 1).Value

If Len(Value) > 0 Then

For j = 0 To Group.ListCount - 1

If Group.List(j) = Value Then Exit For

Next j

If j = Group.ListCount Then Group.AddItem Value

i = i + 1

End If

Loop Until Len(Value) = 0

End With