Jump to content
Fórum Script Brasil
  • 0

Formula específica conforme condições


Question

Estou aprendendo a mexer no VBA e estou tentando fazer uma função que utilize uma fórmula específica conforme as duas condições que especifiquei, mas com o código que eu fiz ela considera a variável eixo sempre igual a "ESR".  O que eu devo fazer?

 

 

Function FEC(carga As Single, eixo As String) As Single

Dim text As String


func1 = 2.0872 / 10000 * carga ^ 4.0175   'eixo simples carga < 8

func2 = 1.832 * 10 ^ (-6) * (carga ^ 6.2542) ' eixo simples carga >=8

func3 = 1.592 / 10000 * (carga ^ 3.472)  'eixo tandem duplo carga < 11

func4 = 1.528 / 1000000 * carga ^ 5.484  ' eixo tandem duplo carga >= 11

func5 = 8.0359 / 100000 * carga ^ 3.3549  'eixo tandem triplo carga <18

func6 = 1.3229 / 10000000 * carga ^ 5.5789 ' eixo tandem tripo carga >=18

 

eixo = Left(text, 3)

 

If eixo = ESR And carga < 8 Then


FEC = func1


ElseIf eixo = ESR And carga >= 8 Then


FEC = func2


ElseIf eixo = ETD And carga < 11 Then


FEC = func3


ElseIf eixo = ETD And carga >= 11 Then


FEC = func4


ElseIf eixo = ETT And carga < 18 Then


FEC = func5


ElseIf eixo = ETT And carga >= 18 Then


FEC = func6

 

End If

 


End Function

 

 

Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148691
    • Total Posts
      644530
×
×
  • Create New...