[EXCEL] Creazione Pin univoci

[Dylan666]

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

[scossa]

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

Ciao,

magari con qualche dettaglio in più sul formato di questi PIN si potrebbe proporre qualche soluzione.

[ricky53]

Ciao,
per esempio:
i PIN devono essere costituiti da:
1. soli numeri
2. numeri e lettere (maiuscole e minuscole senza restrizioni)
3. numeri e lettere (maiuscole e minuscole almeno una maiuscola ed una minuscola)
4. numeri e lettere (solo minuscole)
5. numeri e lettere (solo maiuscole)
6. numeri e lettere e caratteri speciali (tutti gli speciali)
7. numeri e lettere e caratteri speciali (solo alcuni speciali)
8. altro

[Dylan666]

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!

[Dylan666]

Naturalmente i PIN possono anche cominciare con uno o più zeri!
Per adesso sto usando questo:
http://www.prgdesign.com/PinCodeGenerator.asp

[scossa]

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!

In A1 scrivi

Codice: Seleziona tutto

=TESTO(RIF.RIGA(A1);"000000")


poi copi incolli fino a A300

.
.
.

[ricky53]

Ciao,
vero io ero partito subito con PSW perchè stavo aiutando un amico a generare delle PSW.

Scossa ti ha ... risolto il problema ???

[scossa]

In A1 scrivi

Codice: Seleziona tutto

=TESTO(RIF.RIGA(A1);"000000")


poi copi incolli fino a A300

Scherzi a parte:
in A1::

Codice: Seleziona tutto

=TESTO(CASUALE.TRA(1;999999);"000000")

selezionare A1 e copia-incollare in A2:A300
in B1::

Codice: Seleziona tutto

=SOMMA(INDICE(--(CONTA.SE($A$1:$A$300;A1:A300)<2);))

se B1 = 300 (nel 99% dei casi) i PIN in A1:A300 sono tutti univoci, altrimenti premi F9 finché non ottieni 300 in B1.

[Anthony47]

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.
Volendo invece creare un elenco fisso si puo' usare una macro come questa:

Codice: Seleziona tutto

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


Presuppone che in B1 sia indicato quanti pin devono essere generati; nuovi pin vengono accodati all' elenco eventualmente gia' presente in colonna A, con il primo della serie evidenziato in giallo

Spero sia di qualche utilita'.

Ciao a tutti

[scossa]

Ciao,

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.

Hai ragione, ho dimenticato di dire di fare un copia-incolla valori della colonna A in un'altra colonna prima di far ricalcolare il foglio.

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
....

Ottima, mi permetto solo di proporre una variante per chi, come me, preferisce evitare il più possibile i GoTo:

Codice: Seleziona tutto

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

[Dylan666]

Grazie a tutti per l'aiuto, funziona benissimo