Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Encontrar números Primos (UDF)

Ir para baixo

Encontrar números Primos (UDF) Empty Encontrar números Primos (UDF)

Mensagem por alexandrevba Sáb Fev 01, 2014 7:41 am

Bom dia!!
Como encontrar números Primos, entre valor inicial e final.
Função Definida Pelo Usuário.
Código:
Private Function PRIMOALEVBA(St, En As Long)
'Para usar a função
'Syntax =PRIMOALEVBA(Númor Inicial, Número Final)

'----Encontrar números Primos, entre valor inicial e final----
Dim Ans As String
For x = St To En
    For y = 2 To x - 1
        If x Mod y = 0 Then GoTo 20:
    Next y
    Ans = Ans & x & ","
20:
Next x
PRIMOALEVBA = Ans
End Function
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos