Ejemplo 2

Generar números primos en Excel

A veces nos preguntamos ¿Cómo sacar los números primos en Excel?,  o si ¿Existe una fórmula para sacar los números primos?, en nuestro artículo Números Primos mostramos en que consisten estos números, y colocamos algunos ejemplos de números primos previamente generados, en este artículo mostraremos como generar los números primos.

Descargue el siguiente archivo Generar números primos en excel,  el cual contiene el programa mostrado a continuación, para poder emplearlo solo debe indicar el número límite hasta el cual realizar la generación de números primos.

Sub numeroprimo()
Application.ScreenUpdating = False
'Cells(1, 1) = 1
Cells(2, 1) = 2
celda = 3
numero = InputBox("ingrese un número entre 3 y 10000")
If numero >= 3 And numero < 10000 Then
For x = 3 To numero Step 2
cantidad = 0
For y = 2 To (x - 1)
Z = x Mod y
If Z = 0 Then
cantidad = cantidad + 1
Exit For
End If
Next
If cantidad = 0 Then
Cells(celda, 1) = x
celda = celda + 1
End If
Next
End If
Application.ScreenUpdating = True
MsgBox "Finalizó"
End Sub




Ejemplo1

Que es ciclo For