Самоучитель VBA


         

Вывод данных на- рабочем листе


End With

' Форматирование заголовков записей

'

ActiveSheet. Range ("Al: A4 ")

.Select With Selection

.HorizontalAlignment = xlGeneral

.VerticalAlignment = x1Bottom

.WrapText = False

.Orientation = 30

.ShrinkToFit = False

.MergeCells = False

End With

With Selection.Interior

.CqlorIndex =36

.Pattern = xlSolid

.PatternColorlndex = xlAutomatic

End With

'

' Вывод данных на- рабочем листе

'

With ActiveSheet

For i = 1 To m

Проценты(i) = i_нпс + i_шar * (i - 1) A(i) = Application.Pmt(Проценты(i), k, -p) A(i) = Format(A(i), "##")

ПроцентыФормат(i) = Format (ПроцентыЦ) , "#.0%")

.Cells(1, i + 1}.Value = ПроцентыФормат(i)

.Cells(2, i + 1).Value = A(i)

Next i

.Range("B3").Value = p

.Range("B4").Value = k

End With

'

' Установка границ динамического массива ЭлементыСписка

' Используется для вывода значений процентных ставок

' и значений соответствующих выплат в список

'

ReDim ЭлементыСписка(i To m, 0 To 1)

'

' Поэлементное определение массива ЭлементыСписка

For i = 1 То m

ЭлементыСписка(i, 0) = ПроцентыФормат(i)

ЭлементыСписка(i, 1) = A(i)

Next i

' Заполнение списка с двумя колонками данных

'

With ListBoxl .Clear

.ColumnCount = 2

.List = ЭлементыСписка()

.Listlndex = 0

End With '

' Удаление всех графических объектов с активного рабочего листа

'

ActiveSheet.ChartObjects.Delete

'

' Определение выбранного переключателя,

' задающего тип диаграммы и

' построение выбранной диаграммы

'

If OptionButtonl.Value = True Then График xlColumn, 6

If OptionButton2.Value = True Then График xlLine, 10

If OptionButton3.Value = True Then График xlPie, 7

'

End Sub

'

Sub График(ТипГрафика As Integer, Формат As Integer)

'

' Процедура построения графика

' ТипГрафика - определяет тип диаграммы на втором шаге мастера диаграмм

' Формат - определяет вид диаграммы на третьем шаге мастера диаграмм

Dim Area As Object

Dim n As Integer

'

' Объектная переменная Area - диапазон, по которому строится диаграмма

Содержание  Назад  Вперед