Excel 2007
Ver Más instrucciones
1
cierre todos los libros existentes y comenzar una nueva hoja de cálculo Excel. Pulsar "ALT " plus "F11 " para iniciar el Editor de Visual Basic .
2
abrir un libro haciendo doble clic en un libro en el menú VBAProject en la parte superior izquierda de la pantalla.
Página 3
corte y pegue el siguiente código en el libro vacío :
GetFactors Sub () conde As IntegerDim NumToFactor como simples ' límites enteros a < Factor 32768Dim Como SingleDim y Como SingleDim IntCheck As Single
conde
= 0DoNumToFactor = _Application.InputBox ( Prompt : = " tipo entero " , Type : = 1 ) " Forzar la entrada de enteros mayores que 0.IntCheck = NumToFactor - Int ( NumToFactor ) Si NumToFactor = 0 ThenExit Sub'Cancel es 0 - permitirán Cancel.ElseIf NumToFactor 0 ThenMsgBox "Introduzca un entero < 1 ThenMsgBox ElseIf IntCheck " introduzca un número entero mayor que cero . " > - sin decimales . "End If'Loop hasta la entrada de número entero mayor que 0.Loop Mientras NumToFactor < = 0 O IntCheck > 0For y = 1 Para NumToFactor'Put mensaje en la barra de estado que indica el número entero es checked.Application.StatusBar =" Comprobación " y yFactor = NumToFactor Mod. y'Determine si el resultado de la división con Mod es sin _remainder y por lo tanto un" factor " . Si Factor = 0 Then'Enter el factor en una columna a partir de la cell.ActiveCell activo . Offset ( conde , 0). Valor = y'Increase la cantidad a compensar para la próxima value.Count = Cuenta + 1End IfNext'Restore Estado Bar.Application.StatusBar = End " Ready " Sub
Sub GetPrime ( ) número de As IntegerDim BegNum Como single ' límites enteros a < EndNum 32768Dim Como SingleDim Prime Como bandera SingleDim Como IntegerDim IntCheck Como SingleCount = 0
DoBegNum = _Application.InputBox ( Prompt : = " número inicial de tipo. " , Type : = 1 ) " Forzar la entrada de enteros mayores que 0.IntCheck = BegNum - Int ( BegNum ) Si BegNum = 0 ThenExit Sub'Cancel es 0 - permite Cancel.ElseIf BegNum < 1 ThenMsgBox " Por favor, introduzca un número entero mayor que cero " ElseIf IntCheck > 0 ThenMsgBox " introduzca un número entero - . . sin decimales "End If'Loop hasta la entrada de número entero mayor que 0.Loop Mientras BegNum < = 0 O IntCheck > 0
DoEndNum = _Application.InputBox ( Prompt : = " número de tipo final. " , Type : = 1 ) " Forzar la entrada de enteros mayores que 0.IntCheck = EndNum - Int ( EndNum ) Si EndNum = 0 ThenExit Sub'Cancel es 0 - permitir Cancel.ElseIf EndNum < BegNum ThenMsgBox " introduzca un número entero mayor que " y BegNumElseIf EndNum < 1 ThenMsgBox " introduzca un número entero mayor que cero. " ElseIf IntCheck > 0 ThenMsgBox "Introduzca un número entero - . sin decimales " End If'Loop hasta la entrada de número entero mayor que 0.Loop Mientras EndNum < BegNum O EndNum < = 0 O IntCheck > 0
< p> Para y = BegNum Para EndNumflag = 0 z = 1Do Hasta flag = 1 O z = y + 1'Put mensaje en la barra de estado que indica el número entero y _divisor en cada loop.Application.StatusBar = y & " /" & ; zPrime = y Mod zSi Prime = 0 y z < > y y z < > 1 Thenflag = 1End ifz = z + 1Loop
Si flag = 0 Then'Enter el factor en una columna de partida con el cell.ActiveCell.Offset activa ( conde , 0). Valor = y'Increase la cantidad a compensar para la próxima value.Count = Cuenta + 1End IfNext y'Restore Estado Bar.Application.StatusBar = " Listo" End Sub
4
Haga clic en " archivo" y luego elegir la opción " Cerrar y volver a Microsoft Excel ".
5
Haga clic en el botón de Microsoft Office en Excel. Haga clic en " Opciones de Excel ", " Personalizar " y luego seleccione " Macros " en los "elegir " comandos .
6
En la lista , haga clic en la macro " ThisWorkbook.GetFactors , "y luego haga clic en" Agregar ". Haga clic en" Aceptar ". Esto agrega la macro a la barra de herramientas de acceso rápido en la parte superior izquierda de Excel.
7
Seleccione la celda en la que le gustaría que los datos comienzan .
8
Haga clic en el botón de macro en la barra de herramientas de acceso rápido. Introduzca el número al que desea encontrar los factores primos de . Excel mostrará una lista de todos los factores (incluyendo el primer y no primo) de la columna seleccionada . Por ejemplo , los factores de 30 son 1 , 2 , 3 , 5 , 6 , 10 , 15 y 30 .
9
Seleccione los números primos de la lista dada . Los números primeros de la lista son 2,3 , y 5. Estos son los factores principales para el número dado.