VBA

[дыши со мной.]

помогите, пожалуйста..

Private Sub CommandButton3_Click()
Dim row As Integer
Dim x1 As Double
Dim x2 As Double
Dim i As Double
Dim z As Double
Dim y As Double
Dim s As String
x1 = Val(TexBox1.Text)
x2 = Val(textBox2.Text)

row = 7
For i = x1 To x2 Step 0.5
z = Cos(3 * i ^ 2 - i + 1)
If (z > 0) Then y = Sqr(i) + z
If (z <= 0) Then y = Exp(i) - Log(i)
Worksheets(1).Cells(row, 4).Value = "x=" + Str(i) + " - y=" + Str(y)
row = row + 1
Next i
End Sub
все правильно? и вот строчку, выделенную жирным надо изменить как-то...а я не знаю
должно получится что-то вроде такого:

Comments

[ArcheryMask]

а зачем вам высчитаные значения в одну клетку записывать?
замените строчку примерно так
Cells(row, 4).Value = i
Cells(row, 5).Value =y

сверху в заголовке напишите х и у. И так выйдет красивой и удобной для анализа табличкой.