Condividi:        

Macro per Lotto & affini

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

Macro per Lotto & affini

Postdi giorgioa » 20/08/12 07:49

Salve,

devo allegare un file e non vedo dove chiede di allegare
mi potete indirizzare?
Saluti e grazie
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Sponsor
 

Re: Macro per Lotto & affini

Postdi Flash30005 » 20/08/12 07:53

Forse lo hai dimenticato, perché non è la prima volta che alleghi un file

nella pagina iniziale di questa sezione del Forum (tra le Info)
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=80395

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: Macro per Lotto & affini

Postdi giorgioa » 20/08/12 10:55

Salve,
spero di aver allegato il file
in cui è descritto cosa dovrebbe fare la macro
Perchè direttamente l'allegato perchè
mi è difficile dettagliare quanto dovrebbe esercitare la
macro.

Saluti
Ritardi_Conveni ... ienti.xlsm 18,95 KB
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi giorgioa » 20/08/12 15:13

salve

Ritardi_Convenienti.xlsm

saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi giorgioa » 20/08/12 15:20

giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Anthony47 » 20/08/12 21:18

E quindi??
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro per Lotto & affini

Postdi giorgioa » 21/08/12 00:12

Salve

e quindi volontà permettendo di qualcuno se
del contenuto del file si può creare una macro

Saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 21/08/12 00:59

Non so perché ma il link oltre a non permettermi di scaricare il file di excel mi indirizza in un sito per scaricare un eseguibile che dovrebbe servire ad accelerare il download :roll:

Download che, chiaramente, rifiuto!!!
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: Macro per Lotto & affini

Postdi giorgioa » 21/08/12 07:54

Salve Flash,

ho avuto grandissima difficoltà a postare il file in discussione
or ora ho provato a scaricarlo e tranne quello spot pubblicitario
che appare inizialmente cioè eliminato quello il file è apparso
integrale. Io non me ne intendo e non so come è sia avvenuta
questa situazione però alla fine il file c'è.

Saluti
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 21/08/12 09:05

Niente da fare mi va sempre alla pagina del download di IliVid.com (acceleratore di download)

ho anche provato con un altro browser :roll:

Ma noto che l'indirizzo potrebbe essere errato
un link non dovrebbe terminare con dei puntini
uploading.com/files/get/33c13bdm/Ritardi_Conveni…


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: Macro per Lotto & affini

Postdi giorgioa » 21/08/12 10:13

fuss ka fuss la volta buona

http://www.filedropper.com/ritardiconvenienti

tentativo (quando vi stancate mi potete anche mandare dove volete... anche lì nel paese dei balocchi)
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 21/08/12 11:47

Questa volta va bene

Ho dato un'occhiata al file per cercare di capire la logica
mi sono arenato subito dopo aver visto la formula da te usata in "I3"
Codice: Seleziona tutto
=SE(CONTA.SE($B3:$E3;I$1)=1;0;SOMMA(I2+1))


Cosa c'entra la data della colonna B che la matrice della formula va a considerare? :undecided:

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: Macro per Lotto & affini

Postdi giorgioa » 21/08/12 14:51

Salve Flash,

purtroppo questi sono gli escamotage di chi non sa programmare.

La"I3" mi è servita per creare la numerazione per poi poter contare che il
numero è uscito alla 4^ estrazione la prima volta poi partendo da zero
ricomincia a contare fino alla 19^ ecc,

ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi giorgioa » 21/08/12 15:07

Salve
me ne sono accorto solo ora.
La colonna B è stata inserita nel calcolo erroneamente,
quindi devi considerare da colonna C : G
però ai fini del calcolo non viene presa in considerazione tale colonna.

NB se puoi tenere in conto che questa macro che stai creando ora l'archivio
riguarda 5 colonne ma se si può fare in modo che l'archivio potrebbe
essere anche per 20 colonne( 10 e lotto) quindi utilizzo di entrambi gli archivi
se questo si può.


Ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 21/08/12 15:16

si potrebbe se capissi cosa ti occorre :undecided:
Il/i quesito/i non sono chiari (almeno per me)
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: Macro per Lotto & affini

Postdi giorgioa » 21/08/12 15:50

il compito iniziale della macro sarebbe quello di elencare(riga AD) le uscite del numero ;
poi di quei ritardi prende in considerazione quelli indicati in fra Y5 e Y7 Nel nostro caso da 5 a 13.
e annotare quanti ne rientrano (colonna AA)
NB 5 e 13 sono dati da decidere
ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 22/08/12 01:13

giorgioa ha scritto:(riga AD)

:?:
AD al massimo è una colonna :roll:
Nella testata AD c'è scritto "totale interventi" intendi "eventi"?
Inserisci il valore 7 riferito al numero 4 quando il 4 è uscito 13 volte nell'archivio
Il ritardo attuale (cella AE6) mi risulta 15 e non 20
Quindi?
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: Macro per Lotto & affini

Postdi giorgioa » 22/08/12 05:12

Salve,

In colonna AA a fianco del nr.4 che esamina 8 sarebbe: in totale le volte che è uscito il ritardo;
in colonna AD sempre del nr.4 che esamina il 7 sarebbe: da 5 a 13 i ritardi avvenuti in quella fascia;
quanto al ritardo essendo che nella formula di colonna I deve leggere da C a G e non da B ad E i dati
sono leggermente cambiati, comunque sarà 20.

Il lavoro che la macro farà sarà per tutti i 90 numeri singolarmente.
ciao
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi giorgioa » 22/08/12 06:57

mi correggo

ho citato
"sono leggermente cambiati, comunque sarà 20."
mi correggo
sono leggermente cambiati, comunque sarà 15.

salve
giorgioa
Utente Senior
 
Post: 773
Iscritto il: 16/04/12 15:00

Re: Macro per Lotto & affini

Postdi Flash30005 » 22/08/12 12:39

Vedo che sei un po' confuso... :roll:
pertanto ho realizzato ciò che che ho percepito da un'analisi dei dati
I test li farai tu stesso
Codice: Seleziona tutto
Sub TrovaEventi()
Set Ws1 = Worksheets("Foglio1")
UR = Ws1.Range("B" & Rows.Count).End(xlUp).Row
URN = Ws1.Range("Z" & Rows.Count).End(xlUp).Row - 2
Ws1.Range("AF3:IV" & UR).ClearContents
For VS1 = 1 To URN
RCIni = 2
ContaE = 0
ContaP = 0
RFin = 2
        With Ws1.Range("C3:V" & UR)
            Set C = .Find(VS1, LookIn:=xlValues, LookAt:=xlWhole)
                If Not C Is Nothing Then
                    firstAddress = C.Address
                    RC = C.Row
                    ContaP = ContaP + 1
                    If RC - RCIni >= [Y5] And RC - RCIni <= [Y7] Then
                        ContaE = ContaE + 1
                        UCC = Ws1.Cells(VS1 + 2, Columns.Count).End(xlToLeft).Column + 1
                        Ws1.Cells(VS1 + 2, UCC).Value = RC - RCIni
                        RFin = RC
                    End If
                    RCIni = RC
                    Do
                        Set C = .FindNext(C)
                        If firstAddress = C.Address Then Exit Do
                        RC = C.Row
                        ContaP = ContaP + 1
                   If RC - RCIni >= [Y5] And RC - RCIni <= [Y7] Then
                        ContaE = ContaE + 1
                        UCC = Ws1.Cells(VS1 + 2, Columns.Count).End(xlToLeft).Column + 1
                        Ws1.Cells(VS1 + 2, UCC).Value = RC - RCIni
                        RFin = RC
                    End If
                    RCIni = RC
                    Loop While Not C Is Nothing And C.Address <> firstAddress
                End If
        End With
Ws1.Cells(VS1 + 2, 30).Value = ContaE
Ws1.Cells(VS1 + 2, 27).Value = ContaP
Ws1.Cells(VS1 + 2, 31).Value = UR - RFin
Ws1.Cells(VS1 + 2, 28).Value = Int((ContaP / (UR - 2)) * 10000) / 100
Ws1.Cells(VS1 + 2, 28).NumberFormat = "0.00"
Ws1.Cells(VS1 + 2, 29).Value = Int((ContaE / ContaP) * 10000) / 100
Ws1.Cells(VS1 + 2, 29).NumberFormat = "0.00"
Next VS1
End Sub


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-

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "Macro per Lotto & affini":


Chi c’è in linea

Visitano il forum: Nessuno e 94 ospiti