Un numero primo ha solo se stessa e il numero 1 come divisori. Ad esempio, il 13 è un numero primo perché ha solo 1 e 13 come divisori. Ogni numero può essere scritto come prodotto di numeri primi. Ci sono molti strumenti per capire i numeri primi, tra alberi di decisione. Si può facilmente aggiungere una macro di Excel 2007 per sostituire parte del processo decisionale albero. Una macro è uno strumento che consente di personalizzato Excel con i tuoi pulsanti: in questo caso, un pulsante che calcola i fattori. Dopo aver aggiunto la macro, basta collegare il numero ed Excel calcolerà i fattori.

istruzione

1 Chiudere tutte le cartelle di lavoro esistenti e avviare un nuovo foglio di lavoro di Excel. Premere il tasto "ALT" plus "F11" per avviare l'editor di Visual Basic.

2 Aprire una cartella di lavoro con un doppio clic su una cartella di lavoro nel menu VBAProject in alto a sinistra dello schermo.

3 Tagliare e incollare il seguente codice nella cartella di lavoro vuota:

GetFactors sub ()

Dim Count As Integer
Dim NumToFactor As Single 'Integer limits to < 32768
Dim Factor As Single
Dim y As Single
Dim IntCheck As Single

Count = 0
Fare
NumToFactor = _
Application.InputBox (Prompt: = & quot; tipo integer & quot ;, Type: = 1)
'Forza ingresso di interi maggiore di 0.
IntCheck = NumToFactor - Int (NumToFactor)
Se NumToFactor = 0 Then
Exit Sub
'Annulla è 0 - consentire Annulla.
ElseIf NumToFactor & lt; 1 Poi
MsgBox & quot; Inserisci un numero intero maggiore di zero. & Quot;
ElseIf IntCheck> 0 Then
MsgBox & quot; Si prega di inserire un numero intero - senza decimali. & Quot;
Finisci se
'Loop fino all'entrata del numero intero maggiore di 0.
Loop While NumToFactor & lt; = 0 o IntCheck> 0
Per y = 1 Per NumToFactor
'Messaggio Mettere in barra di stato che indica il numero intero da controllare.
Application.StatusBar = & quot; Controllo & quot; & Amp; y
Fattore = NumToFactor Mod y
'Determinare se il risultato della divisione con Mod è senza _
resto e quindi un & quot; & quot ;. fattore
Se Factor = 0 Then
'Inserire il fattore in una colonna a partire dalla cella attiva.
ActiveCell.Offset (Count, 0) .Value = y
'Aumentare la quantità di offset per valore successivo.
Conteggio = Conteggio + 1
Finisci se
Il prossimo
'Ripristinare Barra di stato.
Application.StatusBar = & quot; Pronto & quot;

End Sub

Sub GetPrime ()

Dim Count As Integer
Dim BegNum As Single 'Integer limits to < 32768
Dim EndNum As Single
Dim Prime As Single
Dim flag As Integer
Dim IntCheck As Single
Count = 0

Fare
BegNum = _
Application.InputBox (Prompt: = & quot; Tipo numero che inizia & quot ;, Tipo:. = 1)
'Forza ingresso di interi maggiore di 0.
IntCheck = BegNum - Int (BegNum)
Se BegNum = 0 Then
Exit Sub
'Annulla è 0 - consentire Annulla.
ElseIf BegNum & lt; 1 Poi
MsgBox & quot; Inserisci un numero intero maggiore di zero. & Quot;
ElseIf IntCheck> 0 Then
MsgBox & quot; Si prega di inserire un numero intero - senza decimali. & Quot;
Finisci se
'Loop fino all'entrata del numero intero maggiore di 0.
Loop While BegNum & lt; = 0 o IntCheck> 0

Fare
EndNum = _
Application.InputBox (Prompt:. = & Quot; Tipo numero finale & quot ;, Type: = 1)
'Forza ingresso di interi maggiore di 0.
IntCheck = EndNum - Int (EndNum)
Se EndNum = 0 Then
Exit Sub
'Annulla è 0 - consentire Annulla.
ElseIf EndNum & lt; Poi BegNum
MsgBox & quot; Inserisci un numero intero maggiore di & quot; & Amp; BegNum
ElseIf EndNum & lt; 1 Poi
MsgBox & quot; Inserisci un numero intero maggiore di zero. & Quot;
ElseIf IntCheck> 0 Then
MsgBox & quot; Si prega di inserire un numero intero - senza decimali. & Quot;
Finisci se
'Loop fino all'entrata del numero intero maggiore di 0.
Loop While EndNum & lt; BegNum O EndNum & lt; = 0 o IntCheck> 0

Per y = BegNum Per EndNum
flag = 0
z = 1
Fare Fino flag = 1 o Z = y + 1
'Mettere messaggio nella barra di stato che indica il numero intero e _
divisore in ogni ciclo.
Application.StatusBar = y & amp; & Quot; / & Quot; & Amp; z
Prime = y z Mod
Se il Primo = 0 e Z & lt;> Y e Z & lt;> 1 Poi
flag = 1
Finisci se
z = z + 1
Ciclo continuo

Se flag = 0 Then
'Inserire il fattore in una colonna a partire dalla cella attiva.
ActiveCell.Offset (Count, 0) .Value = y
'Aumentare la quantità di offset per valore successivo.
Conteggio = Conteggio + 1
Finisci se
Successivo y
'Ripristinare Barra di stato.
Application.StatusBar = & quot; Pronto & quot;

End Sub

4 Fai clic su "File" e poi scegliere "Chiudi e torna a Microsoft Excel".

5 Fare clic sul pulsante Microsoft Office in Excel. Fai clic su "Opzioni di Excel", "Personalizza" e quindi selezionare "Macro" nelle "Scegli comandi".

6 Nell'elenco, fare clic sulla macro "ThisWorkbook.GetFactors," e quindi fare clic su "Aggiungi". Fai clic su "OK". Questo aggiunge la macro alla barra degli strumenti di accesso rapido in alto a sinistra di Excel.

7 Selezionare la cella in cui si desidera i dati per iniziare.

8 Fare clic sul pulsante macro sulla barra degli strumenti di accesso rapido. Inserire il numero che si desidera trovare i fattori principali per. Excel restituirà un elenco di tutti i fattori (tra cui il Primo e non-prime) nella colonna selezionata. Ad esempio, i fattori di 30 sono 1, 2, 3, 5, 6, 10, 15 e 30.

9 Selezionare i numeri primi della lista data. I numeri primi nella lista sono 2,3, e 5. Questi sono i fattori principali per il vostro numero di data.

Consigli e avvertenze

• Avere Excel calcolare le divisioni per voi aggiungendo le equazioni relative alle celle che restituiscono i fattori, invece di calcolare a mano.