Novità

EXCEL E DINTORNI

Alien. ha scritto:
Ciao baci excel mi è stato bloccato in quanto mi dice che le macro non sono attendibile.
Clicca per espandere...
Acc! Mi ha scoperto, volevo rubarti il cervello, visto che il mio, da tempo, non funziona!
E' semplicemente una strategia di difesa di Microsoft, contro quei file di dubbia provenienza.
Dovrebbe essere sufficiente cliccare sul nome del file col tasto destro, nella finestra che si apre cliccare sulla voce "Proprietà".
Nella finestra che appare:
1727533480362.png
In basso sulla destra c'è: "annulla blocco" con un quadratino davanti. Devi spuntare quel quadratino. A questo punto rilanciando il file verrai privato del cervello che sarà immediatamente trasferito a me. Scusa sai che mi piace scrivere cavolate.
In realtà a questo punto il file dovrebbe aprirsi senza problemi. Prima di postare controllo con due programmi il file, un antivirus e un antimalware. Questo non dà la certezza assoluta di sicurezza, ma è un buon sistema.
Ciao
Baciccia
 
COMPLIMENTI BACI UN BEL LAVORO DICI CHE 6 RINCO....MA NON MI PARE PROPRIO.
risata_di_paperino.gif
 
1727711877652.png

Ho aggiunto il foglio "Mese". Una volta lanciata la Macro genera tabelle dei ritardi, suddivisi in quindicine, per tutte le ruote, in un determinato mese. Con 1 elaborerà tutte le estrazioni dal 1939 ad oggi di Gennaio e mostrerà i ritardi dei 90 numeri, con 12 mostrerà Dicembre (ecc.) evidenziati, ruota per ruota, in sfondo rosa e scritta rossa i Max ritardi. In fondo ad ogni tabella il Max ritardo di quella quindicina. (sfondo giallo e scritta rossa).
Ha richiesto un bel po' di tempo, anche se, questa volta, la AI ha dato risultati in tempi brevi. Devo ancora verificare, con altro programmi che i dati siano corretti. Da quello che ho visto dovrebbero esserlo.
I risultati della macro sono stampati sul foglio in righe nascoste, e i dati vengono copiati nelle 6 tabelle che ho creato. Devo controllare di aver messo i riferimenti corretti. Fate qualche prova e se trovate qualche quiquoqua ditemelo.
Questi dati possono servire. Boh! Fate vobis.

mega.nz

5.45 MB file on MEGA

mega.nz mega.nz

Se vi sembra utile ringraziate Chatgdp, non me. Io, ribadisco, sono solo , idiota sapiente.
Sorridete a tutti (e penseranno che siete un po'... Sorridete lo stesso)
Baciccia
 
Sai ci vorrebbe quel "foglio" di excel "spia" anche per il superenalotto ed 10elotto ma.....CHE SI POTREBBE FARE ? Grazie.
 
Alien. ha scritto:
Ciao baci excel mi è stato bloccato in quanto mi dice che le macro non sono attendibile.
Clicca per espandere...
Credo che si potrebbe provare, occorre aver a disposizione l'archivio del Superenalotto, da quando è cambiato il metodo di estrazione,. Dopo di che, tenendo presente che i numeri Spia, nel file da me postato, non ho idea di quanto siano veritieri, concettualmente parlando. (scusa un piccolo blackout, non ricordo cosa volevo dire, acc.)
Credo che, anche senza capire una beata mazza, con l'aiuto dell'AI si potrebbe tentare.
Dovrei aver, però, chiaro, che tipo di interrogazione deve fare il prg. Deve chiedere quali sono i numeri più frequenti dopo l'uscita del numero X, oppure dopo l'uscita dei numeri XY, o che altro? Ci penserò. Se non me ne dimentico. Magari ogni tanto ricordamelo.
Sai, so che tu pensi di non esserne in grado. Ma... Non è così. Se farò qualcosa, magari ti spiegherò, passo, passo, cosa ho fatto, o meglio chiesto all'IA. Così potrai provarci anche tu, rendendoti conto che l'unica cosa difficile è l'umiltà. Chi sa fare DEVE condividere. Si muore da soli, ma si dovrebbe vivere ASSIEME.

Liberté, Égalité, Fraternité​

Baciccia
 
mega.nz

11.94 MB file on MEGA

mega.nz mega.nz

Leggendo un post di Pandit, e non riuscendo a dormire, ho provato a fare qualcosa di simile

1727751923766.png
Qualquadra però non cosa...
Se faccio la ricerca sulle ultime 1000 estrazioni mi vengono risultati assurdi e ci vuole troppo tempo.
Ho quindi ristretto la ricerca alle 6 estrazioni successive all'uscita del numero.
Cosa non ho compreso? (Non dite TUTTO! Cattivoni)
Buonanotte, anche se ormai è quasi giorno
Baciccia

PS: il Foglio l'ho chiamato Pandit, visto che è stato la mia musa ispiratrice (o dovrei dire muso ispiratore? :unsure:)..
 
mega.nz

11.94 MB file on MEGA

mega.nz mega.nz

Modificato il foglio Pandit. Ora l'evidenziazione dei 3 valori massimi funziona correttamente.
Aggiunto il Pulsante "Ultime 1000" che chiede l'inserimento di un numero e poi di una ruota
e visualizza i 3 numeri più frequenti con la percentuale.
Baciccia
 
Baciccia4251 ha scritto:
Credo che si potrebbe provare, occorre aver a disposizione l'archivio del Superenalotto, da quando è cambiato il metodo di estrazione,. Dopo di che, tenendo presente che i numeri Spia, nel file da me postato, non ho idea di quanto siano veritieri, concettualmente parlando. (scusa un piccolo blackout, non ricordo cosa volevo dire, acc.)
Credo che, anche senza capire una beata mazza, con l'aiuto dell'AI si potrebbe tentare.
Dovrei aver, però, chiaro, che tipo di interrogazione deve fare il prg. Deve chiedere quali sono i numeri più frequenti dopo l'uscita del numero X, oppure dopo l'uscita dei numeri XY, o che altro? Ci penserò. Se non me ne dimentico. Magari ogni tanto ricordamelo.
Sai, so che tu pensi di non esserne in grado. Ma... Non è così. Se farò qualcosa, magari ti spiegherò, passo, passo, cosa ho fatto, o meglio chiesto all'IA. Così potrai provarci anche tu, rendendoti conto che l'unica cosa difficile è l'umiltà. Chi sa fare DEVE condividere. Si muore da soli, ma si dovrebbe vivere ASSIEME.

Liberté, Égalité, Fraternité​

Baciccia
Clicca per espandere...
1727819273847.png


:unsure: 🤣
 

Option Explicit

Sub Main

'tom's bakery script. n. 14 visualizza tutte le estrazioni superenalotto dopo averne aggiornato l'archivio dal programma.

Dim Inizio

Dim fine

Dim esSE

Inizio = 1

fine = EstrazioniArchivioSE

For esSE = Inizio To fine

Scrivi GetInfoEstrazioneSE(esSE) & " estratti " & StringaEstrattiSE(esSE,".")

If ScriptInterrotto Then Exit For

Next

End Sub


CONTROLLA NON SO SE è VALIDO
 
Alien. ha scritto:

Option Explicit

Sub Main

'tom's bakery script. n. 14 visualizza tutte le estrazioni superenalotto dopo averne aggiornato l'archivio dal programma.

Dim Inizio

Dim fine

Dim esSE

Inizio = 1

fine = EstrazioniArchivioSE

For esSE = Inizio To fine

Scrivi GetInfoEstrazioneSE(esSE) & " estratti " & StringaEstrattiSE(esSE,".")

If ScriptInterrotto Then Exit For

Next

End Sub


CONTROLLA NON SO SE è VALIDO
Clicca per espandere...
1727894222695.png Scusa ma non ci vedo.
Forse manca qualcosa, oltre il mio cervello,
Forse non mi sono spiegato, come diceva il lenzuolo,
io capisco poco, quel poco che capisco, lo capisco male.
Se puoi metti l'intero Script e, se mi ricorderò come si fa,
lo copio e lo uso.
Che il buio ci faccia risparmiare sulla bolletta ENEL
Baciccia

PS: guarda che non ti sto prendendo in giro
amo solo scrivere cavolate
 
TRANQUILLO BACI so come 6 ,senti non so se funziona l'ho preso in una vecchia chiavetta USB QUELLO è INTERO.
Però non so ci fai o ci 6 .


oliver-hardy-gif.81650


:unsure: 🤣 🤣 🤣
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 09 maggio 2025
    Bari
    23
    87
    53
    62
    33
    Cagliari
    16
    38
    41
    62
    87
    Firenze
    19
    52
    85
    23
    13
    Genova
    01
    61
    85
    60
    48
    Milano
    87
    80
    07
    41
    50
    Napoli
    53
    32
    83
    31
    78
    Palermo
    12
    58
    56
    50
    82
    Roma
    06
    48
    17
    12
    75
    Torino
    89
    26
    30
    01
    20
    Venezia
    32
    21
    20
    82
    49
    Nazionale
    68
    44
    32
    49
    83
    Estrazione Simbolotto
    Milano
    20
    19
    43
    18
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto