macro per tutte le combinazioni

[coguaro80]

ciao a tutti

ho un numero parziale e mi servirebbe creare tutte le possibili combinazioni per i numeri mancanti

es:
3*8**255*0 numero parziale

3181125510
3181125520
3181125530

ecc... per tutte le possibili combinazioni da 0 a 9 per tutti i numeri mancanti

dite che è una cosa fattibile?
l'ideale sarebbe poi la creazione di più file csv

contacts.csv

file guida per google contacts

(435 Byte) Scaricato 46 volte

da poter caricare su google contacts in quanto google l'imita l'importazione ad un massimo di contatti per file e totali

[charlie]

Ciao, per una completa leggibilità dei messaggi, usa correttamente la puteggiatura e le lettere maiuscole, grazie. .

[patel]

Questa la macro per creare le combinazioni

Codice: Seleziona tutto

Sub Combina
fpath="C:\Download\"
nomefile=fpath & "Combinazioni.csv"
n = FreeFile()  'Next free file number
'3*8**255*0
n1 ="3"
n3 ="8"
n6="255"
n8="0"
Open nomefile For output As #n  
for n2=0 to 9
  for n4= 0 to 9
    for n5= 0 to 9
      for n7= 0 to 9
        nn =n1 & n2 & n3 & n4 & n5 & n6 & n7 & n8
        print #n, nn
      next
    next
  next
next

Close #n
End sub

[nickGiard]

patel, ottima soluzione.
Mi permetto solo di indicare una piccola variante per ottimizzare il codice:
nn = Join(Array(n1, n2, n3, n4, n5, n6, n7, n8), "")

[patel]

Grazie Nicola, ottimo suggerimento.