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.