Технический форум - Некоторые вопросы по VBA

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Некоторые вопросы по VBA (http://www.tehnari.ru/f41/t84176/)

Некоторые вопросы по 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 , тоже не считает.

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

Забыл сам документ ко второму посту прикрепить: Вложение 117759