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]

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

 

[Baciccia4251]

Visto i copiosi Doni che vengono offerti, anch'io vi faccio un Re Galino:

 

[Pandit]

We ma più nessuno ha sentito Baciccia?
Non vorrei che gli fosse capitato qualche cosa....

 

[filippo1963]

File on MEGA

mega.nz

Lotto versione 32
Inserite le date anche nel foglio Phil79:

Vedi l'allegato 2296494

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

Se provo a scaricare l'allegato mi diece che non è più disponibilie

 

[KEN]

We ma più nessuno ha sentito Baciccia?
Non vorrei che gli fosse capitato qualche cosa....

Baciccia dove sei !?

 

[lottoandy81]

File on MEGA

mega.nz

Lotto versione 32
Inserite le date anche nel foglio Phil79:

Vedi l'allegato 2296494

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

Esiste una versione aggiornata da scaricare

 

[Baciccia4251]

Scusate l'assenza. Ma riuscire a risistemare il Computer ha richiesto più tempo del dovuto.
Visto che in un momento no sono riuscito a cancellare tutto dappertutto. A distruggere mouse, schermo, tastiera...
Il computer si è in parte salvato. Ora dovrebbe essere a posto.
Schemo, mouse, tastiera e altri ammenicoli in parte li avevo doppi, anche se un po' datati, altri li ho ricomprati.
Ora sto prendendo pastiglie che dovrebbero se non eliminare i momenti no, almeno tenerli sotto controllo.
Vedremo, anche perché queste crisi mi lasciano spossato e costano care.

Vi rimetto i link dei programmi, l'unico un po' modificato e quello sul lotto.
Il foglio Tabellone 1 oltre ad evidenziare per riga cinquine, quartine, terzine, ambi, estratti più ritardati:



Elabora anche le colonne mettendo in evidenza, nei primi 15 ritardi le colonne con 10 numeri, usciti uno dopo l'altro in 10 estrazioni diverse nella stessa posizione, dopo la 16° estrazione vengono evidenziati le terzine, quartine cinquine (3,4,5 numeri in 3,4,5 estrazioni diverse nella stessa posizione. A partire dal 44° ritardo (credo) vengono evidenziati due numeri.



Interessanti i due numeri evidenziati a Bari 69 e 84 e a Firenze 63 e 43. Non avendo statistiche precedenti non so quanto siano validi per ambata.

L'ultima cosa aggiunta è la possibilità di scegliere fino a 10 numeri, staccati da uno spazio vuoto es: 23 32 44
I numeri scelti saranno evidenziati per ogni ruota su sfondo nero e carattere bianco:



Se lo sfondo nero lo trovate funereo posso, successivamente, spiegarvi come modificarlo.

Poi ho aggiunto il foglio Rit/Fre che doveva servirmi per fare, Dio panino imbottito se ricordo a fare cosa!
Comunque è lì che dice volete usarmi? Fatelo! Non volete usarmi? E chi se ne fotte!
Eh, sì, è un foglio un po' sanguigno, si inalbera per un nonnulla.

Se ho fatto altro non lo ricordo, comunque nel bene e nel male ecco il link:

14.38 MB file on MEGA

mega.nz

Man mano metterò gli altri link.

quello che reste del Baciccia

 

[Baciccia4251]

Baciccia dove sei !?

Ciao Ken. Rieccomi. Finché dura
Un abbraccio
Baciccia

 

[Baciccia4251]

We ma più nessuno ha sentito Baciccia?
Non vorrei che gli fosse capitato qualche cosa....

Ciao carissimissimo Pandit
grazie della preoccupazione. Qualcosa è successo ma l'importante è che sia passato. Per ora.
Un abbraccio
Baciccia

 

[Baciccia4251]

Se provo a scaricare l'allegato mi diece che non è più disponibilie

Ho rimesso il link
Ciao
Baciccia

 

[Baciccia4251]

Ho appena modificato il link perchè avevo postato la versione ancora non corretta la 32 invece della 33
baciccia