Un numero primo ha solo se stesso e il numero 1 come divisori . Ad esempio , 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 gli alberi di decisione . Si può facilmente aggiungere una macro per Excel 2007 per sostituire parte del processo decisionale albero. Una macro è uno strumento che ti consente di personalizzare Excel con i tuoi pulsanti : in questo caso , un pulsante che calcola i fattori . Una volta aggiunto il macro , basta inserire il numero ed Excel calcolerà i fattori . Cose che ti serviranno
Excel 2007
Mostra più istruzioni
1
chiudere tutte le cartelle di lavoro esistenti e iniziare un nuovo foglio di lavoro di Excel . Premere il tasto " ALT " più " F11 " per avviare l'editor di Visual Basic.
2
Aprire una cartella di lavoro facendo 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 contano come IntegerDim NumToFactor As Single ' limiti di numero intero per < Factor 32768Dim Come SingleDim y Come SingleDim IntCheck As Single
conte
= 0DoNumToFactor = _Application.InputBox ( Prompt : = "Tipo di numero intero " , Type : = 1 ) ' entrata Forza di numeri interi maggiori di 0.IntCheck = NumToFactor - Int ( NumToFactor ) Se NumToFactor = 0 ThenExit Sub'Cancel è 0 - permetteranno Cancel.ElseIf NumToFactor 0 ThenMsgBox "Inserire un numero intero < 1 ThenMsgBox ElseIf IntCheck " inserisci un numero intero maggiore di zero . " > - non decimali . "End If'Loop fino all'entrata del numero intero maggiore di 0.Loop Mentre NumToFactor < = 0 o IntCheck > 0For y = 1 Per NumToFactor'Put messaggio nella barra di stato che indica il numero intero di essere checked.Application.StatusBar = " controllando "& yFactor = NumToFactor Mod y'Determine se il risultato della divisione con Mod è senza _remainder e quindi un " fattore " . Se Factor = 0 Then'Enter il fattore in una colonna che inizia con la cell.ActiveCell attivo. Offset ( conte , 0 ) . Valore = y'Increase l'importo da compensare per il prossimo value.Count = Count + 1End IfNext'Restore Stato Bar.Application.StatusBar = Fine " Pronto" Sub
