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

YEJ · 20.01.2013, 21:13

Здравствуйте.
Первый мой вопрос касается создания макроса для расчёта ф-ции:
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 · 20.01.2013, 21:32

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

YEJ · 20.01.2013, 21:37

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

20.01.2013, 21:13	#1 (permalink)
YEJ Новичок Регистрация: 20.01.2013 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Некоторые вопросы по VBA Здравствуйте. Первый мой вопрос касается создания макроса для расчёта ф-ции: y(x)=3^tan(x^2+5x) Вот код макроса: Код: 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 , тоже не считает.

20.01.2013, 21:13
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	В этих обсуждениях скорее всего есть нужная вам информация Ответы на некоторые вопросы от владельцев ноутов Некоторые ''смайлики'' Не заходит на некоторые сайты Некоторые новости о LGA 2011

20.01.2013, 21:32	#2 (permalink)
YEJ Новичок Регистрация: 20.01.2013 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	И ещё: помогите написать макрос, который бы сортировал таблицу (на всех листах) по столбцу "Цена" по убыванию. Я пробовал через запись макросов: 2 макроса записались нормально- работают, а сортировку никак не удаётся. И ещё такой вопрос: когда на каком-либо листе стираю значения стоимости и итогов и делаю перерасчёт, а потом пытаюсь построить гистограммы выскакивают, какие-то левые ряды. Откуда они? Макрос работает неправильно?

20.01.2013, 21:37	#3 (permalink)
YEJ Новичок Регистрация: 20.01.2013 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Забыл сам документ ко второму посту прикрепить: Лаб8 with makroses.zip

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070