Sheets("Таблица").Select

Cells(1, 1) = "x"

Cells(1, 2) = "y"

i = 2

For x = -2 To 2 Step 0.3

y = Sin(x)

Cells(i, 1) = x

Cells(i, 2) = y

i = i + 1

Next x

End Sub

Private Sub CommandButton2_Click()

Sheets("Таблица").Select

Range("A1:B15").Select

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

End With

Range("A1:B1").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

End With

Selection.Font.Bold = True

With Selection.Interior

.ColorIndex = 6

.Pattern = xlSolid

End With

With Selection.Font

.Name = "Arial Cyr"

.Size = 14

End With

End Sub

Private Sub CommandButton3_Click()

Sheets("Таблица").Select

Range("A1:B15").Clear

End Sub

Private Sub CommandButton4_Click()

Sheets("Таблица").Select

Range("A1:B15").Select

Charts.Add

ActiveChart.ChartType = xlXYScatterSmoothNoMarkers

ActiveChart.SetSourceData Source:=Sheets("Таблица") _

.Range("A1:B15"), PlotBy:=xlColumns

ActiveChart.Location Where:=xlLocationAsNewSheet, _

Name:="График"

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = "y=sin(x)"

.Axes(xlCategory, xlPrimary).HasTitle = True

.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x"

.Axes(xlValue, xlPrimary).HasTitle = True

.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y"

End With

With ActiveChart.Axes(xlCategory)

.HasMajorGridlines = True

End With

With ActiveChart.Axes(xlValue)

.HasMajorGridlines = True

End With

ActiveChart.HasLegend = False

End Sub

Private Sub CommandButton5_Click()

ActiveChart.PlotArea.Select

With Selection.Border

.ColorIndex = 16

.LineStyle = xlContinuous

End With

Selection.Interior.ColorIndex = xlNone

ActiveChart.SeriesCollection(1).Select

With Selection.Border

.ColorIndex = 57

.Weight = xlThick

.LineStyle = xlContinuous

End With

ActiveChart.Axes(xlCategory).Select

With Selection.Border

.ColorIndex = 57

.Weight = xlMedium

.LineStyle = xlContinuous

End With

With Selection

.MajorTickMark = xlOutside

.MinorTickMark = xlNone

.TickLabelPosition = xlNextToAxis

End With

With ActiveChart.Axes(xlCategory)

.MinimumScale = -2

.MaximumScale = 2

End With

ActiveChart.Axes(xlValue).Select

With Selection.Border

.ColorIndex = 57

.Weight = xlMedium

.LineStyle = xlContinuous

End With

ActiveChart.ChartTitle.Select

Selection.Font.Bold = True

With Selection.Font

.Name = "Arial Cyr"

.Size = 14

End With

ActiveChart.Deselect

End Sub

Private Sub CommandButton6_Click()

Sheets("График").Select

ActiveWindow.SelectedSheets.Delete

End Sub