È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Estrarre Dati con più condizioni

Ultimo Aggiornamento: 16/04/2020 17:17
Post: 204
Registrato il: 03/10/2015
Città: ALBAREDO PER SAN MARCO
Età: 44
Utente Junior
2003
OFFLINE
12/04/2020 13:50


Buona Domenica e Pasqua a tutti.IL 10&lotto è un gioco che deriva dal Lotto tradizionale.Lanciato originariamente nel 2009 si confrontano i numeri giocati con i 20 numeri delle prime due colonne del notiziario iniziando dalla Ruota di Bari e proseguendo in ordine alfabetico . In caso di numeri ripetuti, si considera anche quelli risultanti dalle altre colonne . Anche se la nascita del lotto si fa risalire al 1550 nella citta’ di Roma la prima vera estrazione venne effettuata il 9 settembre 1682 a Napoli.Nel 1871, praticamente subito dopo la proclamazione dell’Unita’ d’Italia, furono istituite altre 6 ruote, e precisamente Firenze, Milano,Palermo,Roma, Torino, Venezia, mentre il compartimento di Bari si affianco’ il 2 Maggio 1874.L’8 Luglio 1939 vennero annesse al gioco anche le ruote di Cagliari e Genova.
Veniamo ora al mio progetto.Nel foglio di lavoro ho tutte le combinazioni del lotto dal 7-1-1871 al 21/03/2020.Sono 90183 righe.
Ho già estratto tutte le date in colonna H e avrei bisogno una macro o una funzione che mi calcola la combinazione del 10&lotto.
L'ordine in cui deve essere detrminata l'estrazione è questa (alfabetico) Bari Cagliari Firenze Genova Milano Napoli Palermo Roma Torino Venezia come da regolamento.Per le combinazioni prima del 1871 l'ordine è sempre alfabetico perciò si parte da Firenze poi (Milano Napoli Palermo Roma Torino Venezia) in caso di numeri ripetuti si considera quelle delle restanti colonne partendo da Firenze.Ci saranno perciò combinazioni da 14,16,20 numeri in base alle ruote presenti. Grazie anticipatamente Matteo.
p.s (L'archivio è stato verificato,se mancano ruote in determinate date possono essere tanti i motivi ad esempio la ruota di Cagliari fu sospesa dal 6 marzo al 3 maggio 1943.Ho compilato manualmente la 2°riga e la riga 3837 come esempio.





Post: 2.676
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
13/04/2020 12:34

E' assai complesso quello che chiedi, quindi non so se arriviamo in fondo.

Mi scrivi la combinazione corretta di sabato 1 luglio 1939 spiegando il perchè?

saluti



[Modificato da dodo47 13/04/2020 12:46]
Domenico
Win 10 - Excel 2016
Post: 204
Registrato il: 03/10/2015
Città: ALBAREDO PER SAN MARCO
Età: 44
Utente Junior
2003
OFFLINE
13/04/2020 15:44

Ciao Dodo grazie per aver dato un occhio al mio
file.Mi hai chiesto una data precisa 1-7-1939.
La combinazione precisa è 2 10 17 18 24 27 30 42 47 48
57 64 68 73 74 75.Devo prendere in gioco anche i numeri
64 e 57 perchè ho già il numero 24 ,ho già il numero42,ho già il numero 74.Ho piena fiducia per arrivare fino in fondo.
Ciao grazie Matteo
Post: 2.678
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
13/04/2020 17:38

matteo me lo devi dettagliare numero per numero...abbi pazienza e fai uno schemino, LASCIANDO STARE L'ORDINE CRESCENTE, non è quello il problema.

Inoltre hai detto:

in caso di numeri ripetuti si considera quelle delle restanti colonne partendo da Firenze


pertanto spiegami perchè prendi il 57 che è il terzo di Milano e non prendi il 38 che è il quarto di firenze (in quanto il terzo 64 è gia stato utilizzato al posto del 24 di Milano)

saluti
[Modificato da dodo47 13/04/2020 17:39]
Domenico
Win 10 - Excel 2016
Post: 205
Registrato il: 03/10/2015
Città: ALBAREDO PER SAN MARCO
Età: 44
Utente Junior
2003
OFFLINE
13/04/2020 21:16

Ciao Dodo la ruota di Bari entra in gioco il 2-5-1874.
Perciò in caso di numeri ripetuti dal 07/01/1871 al 25/04/1874 si considera come prima ruota in ordine alfabetico Firenze perchè anche Cagliari non è presente.Il regolamento ufficiale è questo.
La combinazione vincente, del 10&lotto é legata alle estrazioni del lotto é composta dai primi 2 numeri estratti delle ruote di Bari,Cagliari,Firenze,Genova,Milano,Napoli,Palermo,Roma,Torino,Venezia. Qualora uno dei due numero estratti in una di quelle ruote fosse stato uguale a un precedente estratto, si considerava valido ai fini del gioco il terzo numero di tale ruota, e così via fino al quinto partendo sempre da Bari.Allego il foglio con schemino e istruzioni . Scusa Dodo se mi sono spiegato male.Ciao e grazie Matteo

Post: 2.681
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
14/04/2020 13:13

ciao
mi hai fatto penare un bel po', in modo particolare perchè nella tua colonna I mencavano le seguenti date:

18/09/1943
25/09/1943
02/10/1943
09/10/1943
16/10/1943

Ciò premesso spero vada bene.
I codici dovrebbero essere integrati dalle dichiarazioni mancanti.

Il tempo di elaborazione si aggira intorno al minuto, comunque verrà visualizzato un msgbox alla fine.

In sintesi:
-viene individuato il range (B:H) della data in elaborazione di col. I

- tale range viene ordinato alfabeticamente per nome ruota. Function QuickSort2 di TomOgilvy

- poi viene diviso in due parti, una con le prime due colonne e una con le ultime tre colonne da dove eventualmente attingere i numeri se duplicati.


saluti



[Modificato da dodo47 14/04/2020 13:25]
Domenico
Win 10 - Excel 2016
Post: 206
Registrato il: 03/10/2015
Città: ALBAREDO PER SAN MARCO
Età: 44
Utente Junior
2003
OFFLINE
14/04/2020 14:32

Rimango stupito dalla velocità impressionante dell'esecuzione di questo codice [SM=x423047] Domenico ti ringrazio [SM=x423017]
Tra il 1943 e il 1944,il gioco del lotto saltò qualche estrazione di alcune ruote "minori" ma non si fermo perciò mi sono scappate via quelle 5 date lo verificato anch'io solo ora io pensavo che il gioco era stato sospeso come oggi, per cui devo farti un al altra volta i complimenti. [SM=x423070]
Post: 2.682
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
14/04/2020 16:08

ciao matteo
mbè me ne sono accorto per via di alcuni errori ricevuti in fase di controllo del data base; quindi se in col B c'erano quelle date non capivo perchè in colonna I non ci fossero e pertanto le ho aggiunte.

cari saluti




Domenico
Win 10 - Excel 2016
Post: 209
Registrato il: 03/10/2015
Città: ALBAREDO PER SAN MARCO
Età: 44
Utente Junior
2003
OFFLINE
14/04/2020 18:53

Ciao Dodo sto cercando i vari archivi per capire perché mi sono sfuggite quelle 5 date, così , solo per curosità! , buona serata da Gatto
di marmo 1980
Post: 211
Registrato il: 03/10/2015
Città: ALBAREDO PER SAN MARCO
Età: 44
Utente Junior
2003
OFFLINE
16/04/2020 16:03

Buona giornata a tutti .Sto ricercando con i vari metodi i ritardi dei numeri,dando uno strappo al regolamento si potrebbe
estarre di nuovo le combinazioni lasciando però i numeri trovati doppi.In poche parole la macro dovrebbe considerare in questo caso solo le colonne (D E) e estrarre i primi due numeri. Ho compilato manualmente riga 4 e riga 6.Ciao Matteo
Post: 2.691
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
16/04/2020 16:40

sostituisci stampa2 con:

Function stampa2(Ar1, Ar2, riga)
Dim oDic As Object, x1 As Integer, x2 As Integer, x3 As Integer, x4 As Integer
Dim arrKeys(), lLoop As Integer, lLoop2 As Integer, str1, str2
Dim tmp()
ReDim tmp(1 To UBound(Ar1) * 2)
k = 1
    For x1 = 1 To UBound(Ar1)
        tmp(k) = Ar1(x1, 2)
        k = k + 1
        tmp(k) = Ar1(x1, 3)
        k = k + 1
    Next

'ordinamento crescente dei numeri da stampare
For lLoop = 1 To UBound(tmp)
    For lLoop2 = lLoop To UBound(tmp)
        If tmp(lLoop2) < tmp(lLoop) Then
            str1 = tmp(lLoop)
            str2 = tmp(lLoop2)
            tmp(lLoop) = str2
            tmp(lLoop2) = str1
        End If
    Next lLoop2
Next lLoop
Cells(riga, 10).Resize(1, UBound(Application.Transpose(tmp))) = tmp
End Function






Domenico
Win 10 - Excel 2016
Post: 212
Registrato il: 03/10/2015
Città: ALBAREDO PER SAN MARCO
Età: 44
Utente Junior
2003
OFFLINE
16/04/2020 17:17

Perfetta un'altra volta. Grazie Dodo.Saluti
Vota: 15MediaObject5,00212 2
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 23:58. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com