Ура-Ура!!!!!  
Когда я уже окнчательно сдалась- всё получилось! Последний блин идельный)))  
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 взяла в скобки!!!  
 
Всем огромное спасибо!!!

всем огромное спасибо за помощь!  
но видимо не судьба) не из того места руки у меня растут для подобных вещей(  
и азы у меня немноооооооооооожко имеются, одну функцию я таки посчитала, хоть и совсем лёгенькую, зато сама!) радости было как у дитя малого!

А почему "Function g(x As Double) As Double"?  
для чего вы добляете "As Double"?

{quote}{login=MCH}{date=05.11.2011 11:35}{thema=}{post}что именно не получается?  
посмотрите пример{/post}{/quote}  
 
В вашем примере как и у меня- по формуле в экселе считает, а по формуле в visual basic у вас там ошибка "ИМЯ"(((

{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, то в экселе ноль считает везде

{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}  
 
А сдесь ошибку уже в экселе выдаёт-"ЗНАЧЕНИЕ"

{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)" без последней кавычки(((

Я не умею писать в Visual Basic,    
и с этой формулой я уже дня три головой об стенку бьюсь-но осилить не могу, помгите написать её, если не сложно...

{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}  
 
Я не очень-то и грамотна в таких вещах, главное что вы поняли)

Да, microsoft visual basic

Не разбираюсь в макросах, делаю работу в экселе, и MVB раньше ни разу не пользовалась, поэтому и прошу помочь!  
Если не сложно!)

Вот так я в строке экселя вводила: ЕСЛИ(A2<=0;(3+(SIN(2*A2))^2)/(1+(COS(A2))^2);(2*КОРЕНЬ(1+(2*A2))))    
а в MVB не катит(