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

[Nickita]

Здравствуйте.
Первый мой вопрос касается создания макроса для расчёта ф-ции: y = 3 ^ \tg(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 + 5x)$\not = $0 всё замечательно считается, а когда равен, выскакивает, ошибка, хотя по моему коду программы должно выскочить окошко в котором написано ФНО. Почему такого не происходит? Что неправильно написано в коде?

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

[nikvic]

Косинус, скорей всего, никогда не равен нулю для Single (вот косинус от пол-пи: 6.12303E-17 )
Но его близость к нулю вызывает переполнение при вычислении экспоненты.

[Nickita]

И ещё: помогите написать макрос, который бы сортировал таблицу (на всех листах) по столбцу "Цена" по убыванию. Я пробовал через запись макросов: 2 макроса записались нормально- работают, а сортировку никак не удаётся. Вот сам документ: http://www.tehnari.ru/attachments/f41/117759d1358699844-eaa8-makroses.zip

[nikvic]

Nickita в сообщении #674305 писал(а):

Я пробовал через запись макросов

Запись макросов - не для дела, а для примера.
Возмите нужные куски из разных макросов, полученных записью.

[Nickita]

А почему макросы записанные аналогичным способом работают, а этот нет?

[nikvic]

Nickita в сообщении #674327 писал(а):

А почему макросы записанные аналогичным способом работают, а этот нет?

Поиск жучков - особое искуство. Бывает проще построить заново

Я не смотрел.