Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCEL e 10&Lotto

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

EXCEL e 10&Lotto

Postdi Francesco53 » 13/09/11 15:14

Buongiorno a tutti,
tramite una Query Web, scarico l'aggiornamento delle estrazioni del lotto, a volte anche più di una estrazione,
l'archivio va dalla colonna D (data estrazione) alla colonna BG ultimo estratto di Venezia.
Allego immagine Archivio:
Immagine
Dalla colonna BK alla colonna CD ho gli estratti per il 10 e Lotto,
Allego immagine:
Immagine
Al termine dell'inserimento dell'archivio tramite query web, avrei la necessità di lanciare tramite Call
l'elaborazione per gli estratti del 10 e lotto e quindi aggiornare l'archivio dello stesso.
Tramite il codice :
Riga1 = Worksheets("Archivio").Range("D" & Rows.Count).End(xlUp).Row
Riga2 = Worksheets("Archivio").Range("BK" & Rows.Count).End(xlUp).Row
Riga = Riga1 - Riga2
Ottengo le righe da aggiornare, ma non riesco a elaborare i primi 20 numeri validi per il 10 e lotto,
Ringrazio chi mi può aiutare.
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: EXCEL e 10&Lotto

Postdi Flash30005 » 14/09/11 09:30

Potresti inviare il file?
Non conosco bene le regole delle estrazioni del 10&Lotto rispetto al Lotto come ad esempio l'uscita di numeri uguali etc

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL e 10&Lotto

Postdi Francesco53 » 14/09/11 11:53

Buongiorno Flash,
ti ho inserito un file su cui fare le prove ed in un foglio le relative regole del 10 e Lotto:
http://www.megaupload.com/?d=13NF71LU
Grazie
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: EXCEL e 10&Lotto

Postdi Francesco53 » 19/09/11 08:17

Buongiorno a tutto il forum,
aggiorno la richiesta.
Grazie
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: EXCEL e 10&Lotto

Postdi Flash30005 » 20/09/11 02:51

Le regole adottate sono complesse e realizzare una macro idonea occorre un po' di tempo che in questo periodo mi manca.

Speriamo nell'intervento di qualche volenteroso ;)

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL e 10&Lotto

Postdi Francesco53 » 20/09/11 08:18

Grazie Flash, capisco la difficoltà che porterebbe via troppo tempo.
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: EXCEL e 10&Lotto

Postdi Flash30005 » 20/09/11 08:56

Comunque dovresti spiegare cosa succede se anche il primo numero di ruota è già uscito... :?:
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL e 10&Lotto

Postdi Francesco53 » 20/09/11 09:48

Buongiorno Flash,
se esaminando i primi estratti, un numero risulta già presente nelle ruote precedenti, dovrebbe saltare quell'estratto
e continuare ad analizzare le altre ruote. Così anche per i secondi estratti, i numeri mancanti per arrivare a venti, li
prende dalla terza colonna, quella dei terzi estratti, sempre rispettando il fatto che se già presenti, passa alla successiva ruota.
Se per te può essere di aiuto, ti allego questo codice, è tuo solo che per estrapolare i dati, li prelevava dalla classica estrazione
a quadro con 11 ruote e 6 colonne, ti allego anche l' immagine. La differenza rispetto a quanto chiedo, è che lì dovevo lanciare
la macro per ogni estrazione, solo che adesso pensavo di realizzare il tutto scaricando le estrazioni, come detto a volte più di una
in quanto non sono molto perseverante nel seguire i giochi, mi diverte fare qualcosa in excel ma non seguo poi troppo il gioco.
Codice: Seleziona tutto
Sub Compila()
Worksheets("Menu").Select
    UR = Worksheets("Menu").Range("E" & Rows.Count).End(xlUp).Row
    If UR < 22 Then UR = 22
Range("B22:Z22").Select
Selection.ClearContents
    UC = Worksheets("Menu").Range("I7").End(xlToLeft).Column
    For CC = 4 To UC Step 7
    URD = Worksheets("Menu").Range("C" & Rows.Count).End(xlUp).Row - 1
    If URD < 22 Then URD = 22
    Range("C" & URD) = Cells(6, CC).Value
    CN = 0
    For CCE = CC To CC + 4
    For RRE = 7 To 16
    UCE = Worksheets("Menu").Range("IV" & URD).End(xlToLeft).Column + 1
    TN = 0
    For CCN = 4 To UCE
    If Cells(URD, CCN).Value = Cells(RRE, CCE).Value Then TN = TN + 1
    Next CCN
    If CCN = 25 Then GoTo SaltaE
    If TN = 0 Then Cells(URD, CCN - 1).Value = Cells(RRE, CCE).Value
    Next RRE
    Next CCE
SaltaE:
    Next CC
End Sub


Immagine
Grazie
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: EXCEL e 10&Lotto

Postdi Flash30005 » 20/09/11 14:46

Penso che una macro così possa andare bene (se i dati sono come da foglio inviato)

Codice: Seleziona tutto
Sub Compila()
Riga1 = Worksheets("Archivio").Range("A" & Rows.Count).End(xlUp).Row
Riga2 = Worksheets("Archivio").Range("BG" & Rows.Count).End(xlUp).Row
For RR = Riga2 + 1 To Riga1
    Range("BF" & RR - 1).AutoFill Destination:=Range("BF" & RR - 1 & ":BF" & RR), Type:=xlFillDefault
    Agg = 0
    Conta = 0
Ripeti:
    For ColA = 7 To 52 Step 5
        TR = 0
        ColB = ColA + Agg
        If Conta >= 20 Then GoTo SaltaRR
            Range("BG" & RR).Value = Range("A" & RR).Value
            UC = Range("IV" & RR).End(xlToLeft).Column + 1
            For CCL = 60 To UC
                If Cells(RR, CCL).Value = Cells(RR, ColB) Then
                    TR = 1
                    GoTo SaltaCCL
                End If
            Next CCL
            If TR = 0 Then
                UCL = Range("IV" & RR).End(xlToLeft).Column + 1
                Cells(RR, UCL).Value = Cells(RR, ColB).Value
                Conta = Conta + 1
            End If
SaltaCCL:
            If ColA = 52 Then
                Agg = Agg + 1
                GoTo Ripeti
            End If
    Next ColA
SaltaRR:
Next RR
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL e 10&Lotto

Postdi Francesco53 » 20/09/11 15:50

Ciao Flash,
tutto ok funziona a meraviglia, mi dava solo errore su conta = 0, per cui ho dichiarato la variabile
e funziona tutto.
Codice: Seleziona tutto
Sub Compila()
    Dim conta As String
   
    Riga1 = Worksheets("Archivio").Range("A" & Rows.Count).End(xlUp).Row
    Riga2 = Worksheets("Archivio").Range("BG" & Rows.Count).End(xlUp).Row
    For RR = Riga2 + 1 To Riga1
        Range("BF" & RR - 1).AutoFill Destination:=Range("BF" & RR - 1 & ":BF" & RR), Type:=xlFillDefault
        Agg = 0
        conta = 0
Ripeti:
        For ColA = 7 To 52 Step 5
            TR = 0
            ColB = ColA + Agg
            If conta >= 20 Then GoTo SaltaRR
                Range("BG" & RR).Value = Range("A" & RR).Value
                UC = Range("IV" & RR).End(xlToLeft).Column + 1
                For CCL = 60 To UC
                    If Cells(RR, CCL).Value = Cells(RR, ColB) Then
                        TR = 1
                        GoTo SaltaCCL
                    End If
                Next CCL
                If TR = 0 Then
                    UCL = Range("IV" & RR).End(xlToLeft).Column + 1
                    Cells(RR, UCL).Value = Cells(RR, ColB).Value
                    conta = conta + 1
                End If
SaltaCCL:
                If ColA = 52 Then
                    Agg = Agg + 1
                    GoTo Ripeti
                End If
        Next ColA
SaltaRR:
    Next RR
    End Sub


Grazie
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: EXCEL e 10&Lotto

Postdi Flash30005 » 20/09/11 23:53

Io non dichiaro mai le variabili (anche se la corretta sintassi lo richiederebbe) proprio perché non mi hanno mai dato problemi (solo con alcune versioni di excel avviene questo).
Comunque è errato dimensionare la variabile conta come fosse una stringa in quanto è un numero
quindi dovresti dimensionarla come integer se il valore non superiora 32.000 (credo) o long per un numero superiore

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL e 10&Lotto

Postdi Francesco53 » 21/09/11 08:59

Grazie Flash,
sempre gentile e utile.
Hai ragione per le variabili, non avevo mai avuto problemi neppure io con le tue macro,
questa volta però mi si bloccava, la cosa strana è che per Agg = 0 va tutto bene. Misteri di excel.
Un caro saluto
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: EXCEL e 10&Lotto

Postdi Flash30005 » 21/09/11 19:58

Francesco53 ha scritto:la cosa strana è che per Agg = 0 va tutto bene

:roll:

Mi viene un dubbio specialmente se hai excel 2007
non vorrei che conta fosse una parola chiave
prova a cliccare nella parola Conta (con il mouse che lampeggia tra la N e la T)
e poi premi F1 se esce l'help con questa parola e come utilizzarla allora è una parola chiave
puoi cambiare nome alla variabile (esempio Conteggio o altro)

Fai sapere
ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL e 10&Lotto

Postdi Francesco53 » 21/09/11 22:29

Ho provato quanto da te consigliato, non mi da però che conta è una parola chiave.
Ho provato a cambiare da conta a conteggio come da te indicato e funziona tutto bene
anche se non dichiaro la variabile.
Ho anche provato un'altra tua macro in cui era presente conta è funziona benissimo.
Ti allego codice di quanto affermato:
Codice: Seleziona tutto
Sub Trova()
    UR = Range("E" & Rows.Count).End(xlUp).Row
    conta = 0
    Trov = 0
    Columns("N:N").ClearContents
    For R = 4 To UR
        If Range("E" & R).Value = 0 Then
            conta = 0
            Trov = 0
        Else
            conta = conta + 1
        End If
        If conta <= [F1] And Trov = 0 Then
            If Range("J" & R).Value = 1 Then
                Range("N" & R).Value = 1
                Trov = 1
            End If
            Else
                If conta > 1 And Range("J" & R).Value = 1 Then Range("N" & R).Value = 0
        End If
    Next R
    End Sub

Saranno i misteri di excel 2007.
Grazie
FRancesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL e 10&Lotto":


Chi c’è in linea

Visitano il forum: ilPrincipito e 7 ospiti