3 semestre - 2do parcial - P6_#NecesitoSalvarMiSemestreHoy Macro en equipo

Nuestra Macro consiste en sacar números primos del 2 hasta el 10000 en Visual Basic, nosotros lo que hicimos fue investigar una serie de códigos para que nuestra macro funcionara cambiándole y agregándole el tipo de fuente y el color.

Para ejecutarla nos tenemos que meter en excel en la pestaña de "Desarrollador" De ahí abrir la Macro que por nombre le pusimos "Numeros Primos"Le daremos en ejecutar,nos abrirá y nos pedirá ingresar un numero entre el 3 y el 10000 te pondrá la serie de números primos apartir del numero que desees encontrar.

Sub numero_primo()

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ó"

Selection.Font.Name = "Algerian"

Selection.Font.Size = 18

Range("A2:A9999").Font.ColorIndex = 5

End Sub