EXCEL E DINTORNI

[joe]

Prova a mettere una data in formato europeo gg/mm/aaaa nella cella A1

Poi controlli la data con queste 2 macro :

Sub IncrementaData()
    Dim cella As Range
    Set cella = ThisWorkbook.Sheets(1).Range("A1") ' Modifica il riferimento al foglio se necessario
    If IsDate(cella.Value) Then
        cella.Value = cella.Value + 1
    Else
        MsgBox "La cella A1 non contiene una data valida.", vbExclamation
    End If
End Sub

Sub DecrementaData()
    Dim cella As Range
    Set cella = ThisWorkbook.Sheets(1).Range("A1") ' Modifica il riferimento al foglio se necessario
    If IsDate(cella.Value) Then
        cella.Value = cella.Value - 1
    Else
        MsgBox "La cella A1 non contiene una data valida.", vbExclamation
    End If
End Sub

Le puoi richiamare assegnandole a 2 pulsanti

o tramite 2 collegamenti rapidi tipo Control-a aumenta e Control-d diminuisce.

Nella mia versione di excel funzionano.

 

[Baciccia4251]

14.44 MB file on MEGA

mega.nz

Lotto versione 30
L'estrazione del 16/01/2025 ha fatto emergere un problema nel foglio PrevisioniBC.
Nelle ruote di bari e di cagliari è uscito lo stesso numero 58, quinto posto a bari, primo posto a cagliari.
Quindi 58-58=0. Questo ha generato una serie di errori a cascata.








Quindi, ogni qualvolta si verificherà una situazione identica l'ultima estrazione processata sarà quella precedente (se non ha preblemi).
Saluti
Baciccia

 

[Baciccia4251]

Prova a mettere una data in formato europeo gg/mm/aaaa nella cella A1

Poi controlli la data con queste 2 macro :

Sub IncrementaData()
    Dim cella As Range
    Set cella = ThisWorkbook.Sheets(1).Range("A1") ' Modifica il riferimento al foglio se necessario
    If IsDate(cella.Value) Then
        cella.Value = cella.Value + 1
    Else
        MsgBox "La cella A1 non contiene una data valida.", vbExclamation
    End If
End Sub

Sub DecrementaData()
    Dim cella As Range
    Set cella = ThisWorkbook.Sheets(1).Range("A1") ' Modifica il riferimento al foglio se necessario
    If IsDate(cella.Value) Then
        cella.Value = cella.Value - 1
    Else
        MsgBox "La cella A1 non contiene una data valida.", vbExclamation
    End If
End Sub

Le puoi richiamare assegnandole a 2 pulsanti

o tramite 2 collegamenti rapidi tipo Control-a aumenta e Control-d diminuisce.

Nella mia versione di excel funzionano.

Ottima macro, però come può aiutarmi nel mio problema?
Cercando su internet ho trovato questo:



Se non sbaglio è una soluzione già tentata, da me, ma che non ha funzionato.
Nella discussione qualcuno diceva che il file postato ad esempio del problema a lui funzionava correttamente.
A me sembra strano. Però se fosse vero vorrebbe dire che l'Office che sto usando ha quache problema.
Anche se, onestamente, non saprei quale. La lingua installata è solo quella italiana, in tutte le opzioni possibili non c'è nulla che, a parer mio, giustifichi quanto accade. Certo ogni tanto mi scappa il ditino e cancello interi dischi...
Però tengo cara la tua macro, magari potrà servirmi.
Ciao
Baciccia

 

[Baciccia4251]

14.44 MB file on MEGA

mega.nz

Lotto versione 30.5

Sistemato il foglio Risultati:


Ora dà i ritardi corretti.

Migliorato l'output nel foglio scarfacetony:


Baciccia

 

[joe]

Ciao Baciccia,

Non cito nulla sperando tu possa essere meno distratto,

dai contorni ingannevoli che l'AI ti ha proposto.

C'è un errore di logica.

12/1 o 1/12 non sono uno giusto e uno sbagliato.

Sono tutti e 2 giusti.

L'errore è nel non sapere fino al 13 ...

se è lI 12 gennaio o se è il 1' dicembre.

Questo non può essere deciso da un test condizionale.

Come ad esempio If x maggiore di 12 then

Lo si deve imporre noi che il primo numero è il giorno

il secondo è il mese ed il terzo è l'anno.

 

[Baciccia4251]

Ciao Baciccia,

Non cito nulla sperando tu possa essere meno distratto,

dai contorni ingannevoli che l'AI ti ha proposto.

C'è un errore di logica.

12/1 o 1/12 non sono uno giusto e uno sbagliato.

Sono tutti e 2 giusti.

L'errore è nel non sapere fino al 13 ...

se è lI 12 gennaio o se è il 1' dicembre.

Questo non può essere deciso da un test condizionale.

Come ad esempio If x maggiore di 12 then

Lo si deve imporre noi che il primo numero è il giorno

il secondo è il mese ed il terzo è l'anno.

Dopo aver letto molte volte il tuo post mi sono reso conto che non riuscivo a capirlo, alcuni punti mi sembravano chiai altro il mio cervello non riusciva ad elaborarli.
Come faccio sempre ho fatto ricorso alla AI che, con tutti i ssuoi limiti, mi permette, a volte, di comprendere quello che non riesco a capire:

Questa la mia domanda:



Questa la risposta:



Le ho poi chiesto:





Io non esprimo nessun pensiero, non per distrazione, ma perché dopo poche righe mi perdo. Ho dovuto leggere più volte i precedenti post per capire, in parte, di cosa si stava parlando. E' un po' come quando mi chiedono come mi chiamo, io so come mi chiamo, ma non so come mi chiamo. Poi, quando tiro fuori la Carta d'Identità, per vedere come mi chiamo, mi guardano come fossi scemo. E non è che abbiano tutti i torti.

Comunque, poi ho chiesto alla AI:



La risposta:



Bene. Ora rileggerò questo post 1000 volte per cercare di capire qualcosa. So già che non ci riuscirò.
Baciccia il Neurone solitario

 

[Baciccia4251]

Ciao Baciccia,

Non cito nulla sperando tu possa essere meno distratto,

dai contorni ingannevoli che l'AI ti ha proposto.

C'è un errore di logica.

12/1 o 1/12 non sono uno giusto e uno sbagliato.

Sono tutti e 2 giusti.

L'errore è nel non sapere fino al 13 ...

se è lI 12 gennaio o se è il 1' dicembre.

Questo non può essere deciso da un test condizionale.

Come ad esempio If x maggiore di 12 then

Lo si deve imporre noi che il primo numero è il giorno

il secondo è il mese ed il terzo è l'anno.

Grazie ai tuoi input siamo riusciti a risolvere l'arcano, in maniera semplice e pulita:



Ricordavo che la soluzione era banale, ma non ricordavo qual'era:



La macro faceva cose inutili elaborando le date, che non serviva a nulla, e restitueno valori non corretti.
Poichè la data non entra in nessun calcolo bastava semplicemente copiarla così com'è.



Quando la data entrerà in qualche calcolo vedremo.
Grazie. Dankie. اشكرك. ধন্যবাদ. Благодаря ти. Zikomo. Merci. tapadh leat. (grazie in diverse lingue, copia e incolla)
Baciccia il Grato

 

[Baciccia4251]

14.45 MB file on MEGA

mega.nz

Lotto versione 31
I fogli Genio e Genio2 ora hanno le date anziché i criptici numeri di record, grazie al grande JOE che è riuscito ad aprire un po' il mio stanco cervello.
Aggiunta anche la Data al foglio Analisi ripetizioni che, purtroppo, mantiene ancora i numeri di record.
Perché qusto foglio utilizza la data nei calcoli, e questo problema non l'ho (o meglio l'ha, la AI) risolto
Baciccia

 

[Baciccia4251]

14.43 MB file on MEGA

mega.nz

Lotto versione 32
Inserite le date anche nel foglio Phil79:



In questo caso, stranamente, le date iniziali avevano mese e giorno scambiati, mentre quelle finali erano corrette. Mah! Comunque la AI, mia fedele amica e compagna di Lotto, ha trovato una soluzione e ora funziona.
Buon Ferragosto
Baciccia

 

[Baciccia4251]

Lotto7 aggiornato al 18/01/2025
Baciccia