Ciao a tutti, avrei la necessità di creare 300 pin univoci di 6 cifre.
Quale è il modo migliore per farlo in Excel? Grazie in anticipo
Moderatori: Anthony47, Flash30005
Dylan666 ha scritto:Ciao a tutti, avrei la necessità di creare 300 pin univoci di 6 cifre.
Quale è il modo migliore per farlo in Excel? Grazie in anticipo
Dylan666 ha scritto:PIN è l'acronimo di "Personal Identification Number" quindi deve essere solo numerico e poi avevo scritto "cifre", non caratteri!
Questa è la richiesta più urgente, ma se siete così gentili e bravi da darmi in un secondo momento una soluzione "polifunzionale" ve ne sarei molto grato!
=TESTO(RIF.RIGA(A1);"000000")
scossa ha scritto:In A1 scrivi
- Codice: Seleziona tutto
=TESTO(RIF.RIGA(A1);"000000")
poi copi incolli fino a A300
=TESTO(CASUALE.TRA(1;999999);"000000")
=SOMMA(INDICE(--(CONTA.SE($A$1:$A$300;A1:A300)<2);))
Sub creapin()
Dim myRand As Long, I As Long
'
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Interior.ColorIndex = 6
For I = 1 To Range("B1").Value
reRand:
myRand = Int(Rnd() * 999999)
If Application.WorksheetFunction.CountIf(Range("A:A"), myRand) > 0 Then GoTo reRand
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = myRand
Cells(Rows.Count, 1).End(xlUp).NumberFormat = "000000"
Next I
End Sub
Anthony47 ha scritto:Le formule di scossa (la seconda versione ) danno il risultato richiesto ma hanno il problema che i dati si aggiornano (quindi si modificano) quando il foglio viene usato e anche quando viene riaperto.
Anthony47 ha scritto:Volendo invece creare un elenco fisso si puo' usare una macro come questa:
- Codice: Seleziona tutto
....
If Application.WorksheetFunction.CountIf(Range("A:A"), myRand) > 0 Then GoTo reRand
....
Sub creapin()
Dim myRand As Long, I As Long
'
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Interior.ColorIndex = 6
For I = 1 To Range("B1").Value
myRand = Int(Rnd() * 999999)
Do While Application.WorksheetFunction.CountIf(Range("A:A"), myRand) > 0
myRand = Int(Rnd() * 999999)
Loop
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = myRand
Cells(Rows.Count, 1).End(xlUp).NumberFormat = "000000"
Next I
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 94 ospiti