Condividi:        

Archivio Winforlife

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Archivio Winforlife

Postdi blunotte13 » 19/01/11 14:12

Rer ingannare il tempo ho fatto un archivio con le estrazioni del win for life; ho preso spunto da questa discussione http://www.pc-facile.com/forum/viewtopic.php?f=26&t=45839&start=20 , e non è ancora completo.

Il file l'ho ridotto a sole 1000 righe per snellire il tutto, pensandoci bene però questa cosa mi sarà utile se ne avrò bisogno per file più seri...!

Ecco il link http://www.megafileupload.com/en/file/296681/Cartella1-rar.html

A presto ciao ciao !!


====
Discussione separata da quest' altra che aveva altro oggetto:
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=89950
Anthony
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 138
Iscritto il: 13/01/10 19:35

Sponsor
 

Messaggio all'apertura del file CC

Postdi Flash30005 » 20/01/11 09:29

Ancora Lotterie!!!! :aaah

Ho scaricato il file e ho notato che ci sono aree piene di formule
a prima vista potrebbero essere sostituite da una macro che assegnerebbe direttamente il valore facendo "dimagrire" il file stesso ma dovrei capire se quelle tabelle occorrono tutte: mi è sembrato che siano state approntate solo per ottenere un risultato finale di l'analisi (comprensibile se realizzato con formule ma non tanto se realizzato tramite macro) quindi, vorrei sapere, quale è il risultato che si vuole ottenere e quali sono le tabelle intermedie che non hanno valore dal punto di vista dell'analisi?

Sono molto scettico riguardo questa affermazione
blunotte13 ha scritto:pensandoci bene però questa cosa mi sarà utile se ne avrò bisogno per file più seri...!

Una macro realizzata ad hoc per fornire dei risultati attraverso una distribuzione dei dati è ben difficile che possa essere utilizzata per altri scopi, bisogna sempre intervenire sul codice e, a volte, conviene rifarla in funzione della nuova esigenza e del nuovo schema-dati specialmente se esiste una certa complessità.

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Messaggio all'apertura del file

Postdi blunotte13 » 20/01/11 10:14

Nella pagina archivio sicuramente dalla colonna AD alla colonna BR, nella pagina calcolo combinazioni invece direi dalla colonna O alla colonna BQ.

A presto ciao ciao !!
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 138
Iscritto il: 13/01/10 19:35

Re: Messaggio all'apertura del file

Postdi Flash30005 » 20/01/11 15:49

Suppongo ti riferisca al range che vorresti ottenere e del quale non puoi farne a meno (?)
In pratica tutto! :(

Il programma che potrà fare tutto questo è abbastanza complesso
Vedrò, nei ritagli di tempo, di mettere giù qualcosa ma... armati di pazienza :lol:

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Archivio Winforlife

Postdi blunotte13 » 20/01/11 17:42

Ti ringrazio e se la pazienza è la virtù dei forti, sarò come Maciste... ;) !!

Non ho fretta, grazie dell'aiuto.

A presto, ciao ciao !!
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 138
Iscritto il: 13/01/10 19:35

Re: Archivio Winforlife

Postdi Flash30005 » 26/01/11 15:38

Per il momento
ho realizzato la macro per l'archivio eliminando tutte le formule e il file ora "pesa" meno di 1/3 rispetto all'originale (2,4 Mb contro 8,5 Mb).

La macro è questa:
Codice: Seleziona tutto
Sub CompilaArchivio()
Worksheets("Archivio").Select
Application.ScreenUpdating = False
Application.Calculation = xlManual
UR = Range("A" & Rows.Count).End(xlUp).Row
For Col = 51 To 70
MRC = 10
NumC = Col - 50

        With Worksheets("Archivio").Range("D10:M" & UR)
            Set C = .Find(NumC, LookIn:=xlValues, LookAt:=xlWhole)
                If Not C Is Nothing Then
                    firstAddress = C.Address
                    Rc = C.Row
                    Cells(Rc, Col).Value = NumC
                    Cells(Rc, Col - 21).Value = Rc - (MRC + 1)
                    MRC = Rc
                    Do
                        Set C = .FindNext(C)
                        If firstAddress = C.Address Then Exit Do
                        Rc = C.Row
                        Cells(Rc, Col).Value = NumC
                        Cells(Rc, Col - 21).Value = Rc - (MRC + 1)
                        MRC = Rc
                    Loop While Not C Is Nothing And C.Address <> firstAddress
                End If
        End With
Next Col
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Devi però eliminare tutte le righe da AD11 a BR1010 e tutte le colonne a destra di BR (nota bene Eliminare non cancellare contenuto)

Allego il file

Per il secondo foglio vorrei capire meglio cosa si ottiene.
Maggiori delucidazioni sono ben accette ;)

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Archivio Winforlife

Postdi blunotte13 » 26/01/11 17:09

Nel secondo foglio, calcolo_combinazioni, si ottiene quanti ambi, terni, quaterne, cinquine ect ect..., si ottengono per ogni singola estrazione, se un'estrazione, per esempio, è formata dai numeri 1 2 4 5 6 7 15 16 17 19 si avranno :

-6 ambi
-3 terni
-1 quaterna

con le formule di questo foglio si otteniene questo.

Ho provato le macro dell'allegato, una non ho capito a cosa serve, più proverò a capirle con più calma.

Per adesso grazie mille a presto.

Ciao ciao !!
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 138
Iscritto il: 13/01/10 19:35

Re: Archivio Winforlife

Postdi Flash30005 » 27/01/11 09:31

blunotte13 ha scritto:Ho provato le macro dell'allegato, una non ho capito a cosa serve...

Serve ad eliminare tutte le formule del foglio archivio fornendo gli stessi risultati
se hai problemi utilizza direttamente il foglio che ho allegato nel post precedente

------------------

blunotte13 ha scritto:Nel secondo foglio, calcolo_combinazioni, si ottiene quanti ambi, terni, quaterne, cinquine ect ect..., si ottengono per ogni singola estrazione ...si avranno :
-6 ambi
-3 terni
-1 quaterna


Ma parli di combinazione di numeri contigui (con distanza uguale a 1)?

Perché, parlando di combinazioni ambi (etc) intesi come tali su 10 numeri hai sempre le stesse combinazioni di:
Ambi pari a 45
Terni pari a 120
Quaterne pari a 210
Cinquine pari a 252
Sestine pari a 210
Settine pari a 120
ottine pari a 45
Novine pari a 10
decine chiaramente 1

Mentre se intendi gruppi di N numeri contigui avremo
da 2 pari 9 a combinazioni
da 3 pari a 8 combinazioni
da 4 pari a 7
...
da 9 pari a 2 combinazioni
da 10 pari a 1 combinazione
---------------

Se si devono contare i numeri contigui e quindi avere il totale di queste coppie è necessario avere la tabella delle X?
Posso trovare solo la somma di ambi ed occupare una sola colonna invece di 10 colonne? (per gli ambi) etc, etc?

Fai sapere
ciao

Ps. nel tuo foglio "calcolo combinazioni" ho notato un errore (ma fose ce ne sono altri) in corrispondenza delle formule sulle Novine riga 608 data 14/11/2009 non c'è alcuna Novina mentre la tua formula ne evidenzia 1
(la formula manca di altre due combianazione e in effetti rileva una settina)


EDIT: In attesa ho realizzato il file completo Download
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Archivio Winforlife

Postdi blunotte13 » 27/01/11 12:49

Mentre se intendi gruppi di N numeri contigui avremo
da 2 pari 9 a combinazioni
da 3 pari a 8 combinazioni
da 4 pari a 7
...
da 9 pari a 2 combinazioni
da 10 pari a 1 combinazione


Intendevo queste conbinazioni.

Se si devono contare i numeri contigui e quindi avere il totale di queste coppie è necessario avere la tabella delle X?


Come sei comodo tu, non è fondamentale, io l'ho fatta perchè non avevo altre soluzioni.

Posso trovare solo la somma di ambi ed occupare una sola colonna invece di 10 colonne? (per gli ambi) etc, etc?


Si che puoi, come scritto sopra, io non sono riuscito a trovare altre soluzioni.

Grazie, a presto ciao ciao !!
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 138
Iscritto il: 13/01/10 19:35

Re: Archivio Winforlife

Postdi Flash30005 » 27/01/11 12:51

Ehiii Blunotte guarda che si è fatto giorno :lol:

Nel mio post precedente ultima riga avevo postato il file completo

clicca su Download
e prova (il file ora pesa solo 850 kb contro gli 8500 kb originari = 1/10) ;)

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Archivio Winforlife

Postdi blunotte13 » 27/01/11 13:06

Perchè....che ore sono ...?!?! Sono già le 7 ??? Pina caffè giornale... :eeh:

L'ho visto dopo, che avevo risposto, l'ho già scaricato e provato, direi che è perfetto.

Grazie mille dell'aiuto.

A presto ciao ciao !!
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 138
Iscritto il: 13/01/10 19:35

Re: Archivio Winforlife

Postdi Flash30005 » 27/01/11 13:15

Vedrai due pulsanti (bottoni rossi con scritto AN) uno per foglio e ognuno attiverà la macro relativa al foglio di appartenenza

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Archivio Winforlife

Postdi blunotte13 » 27/01/11 13:23

Flash30005 ha scritto:Vedrai due pulsanti (bottoni rossi con scritto AN) uno per foglio e ognuno attiverà la macro relativa al foglio di appartenenza


Li ho visti e sono davvero perfette le macro, eseguono proprio quello che cercavo di fare, grazie ancora dell'aiuto.

P.S.

Perchè....che ore sono ...?!?! Sono già le 7 ??? Pina caffè giornale... :eeh:


voleva essere una risposta spiritosa ad una battuta spiritosa, spero di aver reso l'idea.

A presto ciao ciao !!
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 138
Iscritto il: 13/01/10 19:35


Torna a Applicazioni Office Windows


Topic correlati a "Archivio Winforlife":


Chi c’è in linea

Visitano il forum: Ricky0185 e 52 ospiti