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


         

с ячейки В2, что эквивалентно


End With

' Заполнение диапазона значениями функции

'

With ActiveSheet

'

' Определение числа строк в диапазоне заполнения

'

nx = .Range("A1").CurrentRegion.Rows.Count

'

' Определение числа столбцов в диапазоне заполнения

ny = .Range("Al").CurrentRegion.Columns.Count

'

' Ввод уравнения поверхности в ячейку В2

'

.Range("В2").Formula = УрПоверхности

If IsError(Evaluate(УрПоверхности)) = True Then

MsgBox "Ошибка в формуле", vbExclamation, "Поверхность"

Exit Sub

End If

'

' Заполнение диапазона Range(Cells(2, 2), Cells(2, ny))

' начиная с ячейки В2, что эквивалентно протаскиванию маркера

' заполнения ячейки В2 на диапазон

Range(Cells(2, 2), Cells(2, ny))

'

.Range("B2").AutoFill

Destination:=Range(Cells(2, 2), Cells(2, ny)),

Type:=xlFillDefault

' Заполнение диапазона

Range(Cells(2, 2), Cells(nx, ny)),

' начиная с диапазона

Range(Cells(2, 2), Cells(2, ny)),

' что эквивалентно протаскиванию маркера

' заполнения диапазона

Range(Cells(2, 2), Cells(2, ny))

' на диапазон

Range(Cells(2, 2), Cells(nx, ny))

'

.Range(Cella(2, 2), Cells(2, ny)).AutoFill

Destination:=Range(Cells(2, 2),

Cells(nx, ny)),

Type:=xlFillDefault

End With

'

' Удаление с рабочего листа всех ранее построенных диаграмм

'

ActiveSheet.ChartObjects.Delete

'

' Выбор диапазона, по которому строится поверхность

ActiveSheet.Range(Cells(2, 2), Cells(nx, ny)).Select

'

' Задание и выбор области на рабочем листе, где

' будет построена поверхность

'

ActiveSheet.ChartObjects.Add(29.25, 19.5, 270.75, 187'.5).Select Application.CutCopyMode = False

' Построение поверхности

ActiveChart.ChartWizard

Source:=Range(Cells (1, 1), Cells(nx, ny) ),

Gallery:=x13DSurface, Format:=1,

PlotBy:=xlColumns,

CategoryLabels:=1,

SeriesLabels:=l,

HasLegend:=False,

Title:="Поверхность",

CategoryTitle:="x",

ValueTitle:="z",

ExtraTitle:="y" ActiveSheet.ChartObjects(1).Activate

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