Составить программу на MS Excel Visual Basic!

Несколько вариантов
Sub XYZ()
X = Cells(4, 2)
Z = Cells(4, 3)
If X < 0 Or Z > 3 Then
  Y = X * X + 3 * X * Z - Z
Else
If X < 0 Or Z > 3 Then
  Y = Z * Z + 5 * X * Z - Z * Z
  Else
  Y = Tan(Abs(2 * X * Z))
  End If
End If
Cells(7, 3) = Y
End Sub

Скачать вложение Excel (XLS)

Составить программу ** MS Excel Visual Basic!