Novità

EXCEL E DINTORNI

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

Poi controlli la data con queste 2 macro :
Codice:
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.

:)
 
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.

1737071672196.png
1737071694739.png
1737071714007.png
1737071736758.png
1737071757147.png
1737071779395.png

Quindi, ogni qualvolta si verificherà una situazione identica l'ultima estrazione processata sarà quella precedente (se non ha preblemi).
Saluti
Baciccia
 
Prova a mettere una data in formato europeo gg/mm/aaaa nella cella A1

Poi controlli la data con queste 2 macro :
Codice:
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:

1737072026711.png
1737072059230.png
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
 
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.

:)
 
Ultima modifica:
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:

1737177026343.png

Questa la risposta:

1737177067700.png

Le ho poi chiesto:

1737177132335.png

1737177174816.png

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:

1737177675739.png

La risposta:

1737177730933.png

Bene. Ora rileggerò questo post 1000 volte per cercare di capire qualcosa. So già che non ci riuscirò.
Baciccia il Neurone solitario
 
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:

1737182101416.png

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

1737182198526.png

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'è.

1737182386496.png

Quando la data entrerà in qualche calcolo vedremo.
Grazie. Dankie. اشكرك. ধন্যবাদ. Благодаря ти. Zikomo. Merci. tapadh leat. (grazie in diverse lingue, copia e incolla)
Baciccia il Grato
 
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
 
Lotto versione 32
Inserite le date anche nel foglio Phil79:

1737281998863.png

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
 
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
 
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:

1738243030500.png

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.

1738243331343.png

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:

1738243572324.png

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:

Man mano metterò gli altri link.

quello che reste del Baciccia
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 30 gennaio 2025
    Bari
    09
    62
    01
    28
    73
    Cagliari
    50
    33
    43
    10
    29
    Firenze
    04
    63
    56
    34
    90
    Genova
    51
    20
    26
    46
    59
    Milano
    37
    78
    76
    20
    86
    Napoli
    43
    04
    45
    84
    53
    Palermo
    13
    43
    50
    67
    40
    Roma
    29
    12
    84
    71
    79
    Torino
    90
    16
    25
    76
    24
    Venezia
    26
    58
    23
    20
    40
    Nazionale
    74
    07
    54
    15
    36
    Estrazione Simbolotto
    Bari
    38
    22
    35
    26
    14

Ultimi Messaggi

Indietro
Alto