Некоторые вопросы по VBA

[YEJ]

Некоторые вопросы по VBA

Здравствуйте.
Первый мой вопрос касается создания макроса для расчёта ф-ции:
y(x)=3^tan(x^2+5*x)
Вот код макроса:

Sub raschet()
Dim x, y As Single
x = Range("F9").Value
If Cos(x ^ 2 + 5 * x) <> 0 Then
y = 3 ^ (Tan(x ^ 2 + 5 * x))
Range("F10").Value = y
Else
MsgBox ("ФНО")
End If
End Sub

Когда: cos(x^2+5*x)<>0 всё замечательно считается, а когда равен, выскакивает, ошибка, хотя по моему коду должно выскочить окошко в котором написано ФНО. Почему такого не происходит? Что неправильно написано в коде?

П.С. Когда ввожу большое число, например, 1Е+10 , тоже не считает.

 

[YEJ]

И ещё: помогите написать макрос, который бы сортировал таблицу (на всех листах) по столбцу "Цена" по убыванию. Я пробовал через запись макросов: 2 макроса записались нормально- работают, а сортировку никак не удаётся.
И ещё такой вопрос: когда на каком-либо листе стираю значения стоимости и итогов и делаю перерасчёт, а потом пытаюсь построить гистограммы выскакивают, какие-то левые ряды. Откуда они? Макрос работает неправильно?

 

[YEJ]

Забыл сам документ ко второму посту прикрепить: Посмотреть вложение Лаб8 with makroses.zip