Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Visual Basic! Нужна помощь в составлении формулы для функции!
 
#1
05.11.2011 22:46:47
Вот так я в строке экселя вводила: ЕСЛИ(A2<=0;(3+(SIN(2*A2))^2)/(1+(COS(A2))^2);(2*КОРЕНЬ(1+(2*A2))))    
а в MVB не катит(
 
 
 
#2
05.11.2011 22:50:17
Не разбираюсь в макросах, делаю работу в экселе, и MVB раньше ни разу не пользовалась, поэтому и прошу помочь!  
Если не сложно!)
 
 
 
#3
05.11.2011 22:51:55
{quote}{login=certyla}{date=05.11.2011 10:50}{thema=}{post}Не разбираюсь в макросах, делаю работу в экселе, и MVB раньше ни разу не пользовалась, поэтому и прошу помочь!{/post}{/quote}А MVB - это Microsoft Visual Basic?
 
 
 
#4
05.11.2011 22:52:49
Да, microsoft visual basic
 
 
 
#5
05.11.2011 22:54:37
{quote}{login=The_Prist}{date=05.11.2011 10:52}{thema=}{post}А что такое MVB? Это VBA, только по научно-ученически? :-)    
Как пользоваться макрорекордером: <EM>http://www.excel-vba.ru/chto-umeet-excel/chto-takoe-makros-i-gde-ego-iskat/</EM>{/post}{/quote}  
 
Я не очень-то и грамотна в таких вещах, главное что вы поняли)
 
 
 
#6
05.11.2011 23:00:39
Я не умею писать в Visual Basic,    
и с этой формулой я уже дня три головой об стенку бьюсь-но осилить не могу, помгите написать её, если не сложно...
 
 
 
#7
05.11.2011 23:10:13
Function g(x As Double) As Double  
If x <= 0 Then  
   g = (3 + Sin(2 * x) ^ 2) / (1 + Cos(x) ^ 2)  
Else  
   g = 2 * Sqr(1 + 2 * x)  
End If  
End Function  
 
или в одну строчку  
Function g(x As Double) As Double  
If x <= 0 Then g = (3 + Sin(2 * x) ^ 2) / (1 + Cos(x) ^ 2) Else g = 2 * Sqr(1 + 2 * x)  
End Function
 
 
 
#8
05.11.2011 23:15:35
Sub Макрос1()  
'  
' Макрос1 Макрос  
'  
 
'  
   ActiveCell.FormulaR1C1 = _  
       "=IF(R[1]C<=0,(3+(SIN(2*R[1]C))^2)/(1+(COS(R[1]C))^2),(2*SQRT(1+(2*R[1]C))))"
End Sub
 
 
 
#9
05.11.2011 23:27:53
{quote}{login=MCH}{date=05.11.2011 11:10}{thema=}{post}Function g(x As Double) As Double  
If x <= 0 Then  
   g = (3 + Sin(2 * x) ^ 2) / (1 + Cos(x) ^ 2)  
Else  
   g = 2 * Sqr(1 + 2 * x)  
End If  
End Function  
 
Отвечает ошибкой Expected end function в начале и выделяет "Public Function a(x)" без последней кавычки(((
 
 
 
#10
05.11.2011 23:30:19
{quote}{login=Hugo}{date=05.11.2011 11:15}{thema=}{post}Sub Макрос1()  
'  
' Макрос1 Макрос  
'  
 
'  
   ActiveCell.FormulaR1C1 = _  
       "=IF(R[1]C<=0,(3+(SIN(2*R[1]C))^2)/(1+(COS(R[1]C))^2),(2*SQRT(1+(2*R[1]C))))"
End Sub{/post}{/quote}  
 
А сдесь ошибку уже в экселе выдаёт-"ЗНАЧЕНИЕ"
 
 
 
#11
05.11.2011 23:33:14
{quote}{login=certyla}{date=05.11.2011 11:27}{thema=Re: }{post}{quote}{login=MCH}{date=05.11.2011 11:10}{thema=}{post}Function g(x As Double) As Double  
If x <= 0 Then  
   g = (3 + Sin(2 * x) ^ 2) / (1 + Cos(x) ^ 2)  
Else  
   g = 2 * Sqr(1 + 2 * x)  
End If  
End Function  
 
Отвечает ошибкой Expected end function в начале и выделяет "Public Function a(x)" без последней кавычки((({/post}{/quote}  
 
Или если без ошибки в VB, то в экселе ноль считает везде
 
 
 
#12
05.11.2011 23:35:09
что именно не получается?  
посмотрите пример
 
 
 
#13
05.11.2011 23:44:06
{quote}{login=MCH}{date=05.11.2011 11:35}{thema=}{post}что именно не получается?  
посмотрите пример{/post}{/quote}  
 
В вашем примере как и у меня- по формуле в экселе считает, а по формуле в visual basic у вас там ошибка "ИМЯ"(((
 
 
 
#14
05.11.2011 23:47:57
А почему "Function g(x As Double) As Double"?  
для чего вы добляете "As Double"?
 
 
 
#15
05.11.2011 23:49:52
А у Вас макросы включены?  
У меня все нормально отображается
 
 
 
#16
05.11.2011 23:50:41
Хм...  
У меня и мой вариант естественно работает, и UDF от MCH...  
Может причина в другом?
 
 
 
#17
05.11.2011 23:59:12
всем огромное спасибо за помощь!  
но видимо не судьба) не из того места руки у меня растут для подобных вещей(  
и азы у меня немноооооооооооожко имеются, одну функцию я таки посчитала, хоть и совсем лёгенькую, зато сама!) радости было как у дитя малого!
 
 
 
#18
06.11.2011 00:03:03
{quote}{login=certyla}{date=05.11.2011 11:47}{thema=Re: }{post}А почему "Function g(x As Double) As Double"?  
для чего вы добляете "As Double"?{/post}{/quote}  
Если не добавлять тип переменной и функции, то они примут тип Variant.  
В данном случае расчитывается математичесая формула, поэтому разумнее всего присвоить тип для функции Double (double-precision floating-point)  
Можно конечно и Single, но данный тип вообще не рекомендую использовать из за низкой точности вычислений, а Long и Integer здесь не подходят, т.к. расчеты не целочисленные.  
Более подробнее - почитайте справку по типам переменных
 
 
 
#19
06.11.2011 00:10:59
Ура-Ура!!!!!  
Когда я уже окнчательно сдалась- всё получилось! Последний блин идельный)))  
If (x <= 0) Then  
y = (3 + (Sin(2 * x)) ^ 2) / (1 + (Cos(x)) ^ 2)  
Else  
y = (2 * Sqr(1 + (2 * x)))  
End If  
 
 
Спасибо MCH!!! Всего то и делов- віражение x <= 0 взяла в скобки!!!  
 
Всем огромное спасибо!!!
 
 
 
#20
06.11.2011 00:27:11
{quote}{login=The_Prist}{date=06.11.2011 12:12}{thema=Re: }{post}Скорее включили макросы и перезапустили Excel...{/post}{/quote}  
Да и в первом посте 3 пары лишних скобок :)
 
 
 
Страницы: 1
Читают тему
Наверх