Pagina 1 di 1

macro per tutte le combinazioni

Inviato: sabato 29 aprile 2023, 10:45
da 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 77 volte
da poter caricare su google contacts in quanto google l'imita l'importazione ad un massimo di contatti per file e totali

Re: macro per tutte le combinazioni

Inviato: martedì 2 maggio 2023, 12:18
da charlie
Ciao, per una completa leggibilità dei messaggi, usa correttamente la puteggiatura e le lettere maiuscole, grazie. .

Re: macro per tutte le combinazioni

Inviato: mercoledì 3 maggio 2023, 17:02
da 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

Re: macro per tutte le combinazioni

Inviato: domenica 16 luglio 2023, 15:57
da 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), "")

Re: macro per tutte le combinazioni

Inviato: mercoledì 19 luglio 2023, 12:27
da patel
Grazie Nicola, ottimo suggerimento.