Макрос, центрирующий столбец.. Создание функций пользователя в приложении MS Excel.

2.1 Макрос, центрирующий столбец.

Столбец, подлежащий изменению, показан на рисунке 3.

Рис. 3

Скрин копия экрана после выполнения макроса приведена на рис.4

Рис. 4

Ниже приведён листинг макроса, центрирующий столбец.

Sub Макрос2()

' Макрос2 Макрос

' Сочетание клавиш: Ctrl+p

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

End Sub

3. Создание функций пользователя в приложении MS Excel.

Рис. 5

Скрин копия экрана после выполнения макроса приведена на рис.6

Рис. 6

Ниже приведён листинг макроса,

' Макрос3 Макрос

' Сочетание клавиш: Ctrl+y

Range("D2").Select

ActiveCell.FormulaR1C1 = _

"=((RC[-3]^(-RC[-2])+RC[-2]^(-RC[-3])+EXP(2*RC[-2]-RC[-3]))^(1/3))/(RC[-3]^2+RC[-2]^2+RC[-1]^2)-RC[-1]^2"

Range("D2").Select

Selection.AutoFill Destination:=Range("D2:D11"), Type:=xlFillDefault

Range("D2:D11").Select

Range("A2:D11").Select

ActiveSheet.Shapes.AddChart.Select

ActiveChart.SetSourceData Source:=Range("Лист1!$A$2:$D$11")

ActiveChart.ChartType = xlLineStacked

End Sub