Mi problema es que queria hacer una macro que me pusiera los numeros primos desde el numero que pone en una celda hasta el numero de otra.
Lo he intentado con varios codigos que encontre en Internet pero todos me dan fallo.
Lo estoy haciendo en Calc de OpenOffice, aunque tambien lo he probado en Excel sin exito igualmente.
Me podriais decir un codigo que corriera en Calc o en Excel?
He probado con :
Código PHP:
function PRIMO(Numero) As Boolean
Dim i As Integer
PRIMO = True
For i=2 To (Numero - 1)
If Numero Mod i = 0 Then PRIMO = False
Next
If Numero = 1 Then PRIMO = False
End Function
Código PHP:
Module Module1
Sub Main()
Dim numero As Integer
Console.Write("Calcular primos del 1 hasta el ")
numero = Integer.Parse(Console.ReadLine())
For i As Integer = 1 To numero
Dim primo As Boolean = True
For j As Integer = 2 To Math.Sqrt(i)
If (i Mod j = 0) Then
primo = False
Exit For
End If
Next
If (primo) Then
Console.Write(i.ToString() + ",")
numero = numero + 1
End If
Next
Console.ReadKey()
End Sub
End Module
Esto es mas o menos lo que quiero:
http://www.imagengratis.org/images/calc.png
Un saludo.
Muxas gracias
PD. Si no conseguis esto me bastaria con que me diga si es primo o no, aunque prefiero el macro descrito.
