Condividi:        

[EXCEL] betting difficile - query e macro

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

Re: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 14/09/11 21:29

bene, ci sono 2 notizie una buona e una cattiva :)
inizio dalla cattiva... bisogna modificare la macro
la buona è che ho capito perché escono fuori risultati sbagliati... infatti i risultati di cui tieni conto tu sono quelli parziali, affianco ti ho messo quelli finali evidenziati in giallo... ora dovrebbero tornare i conti.... vedi un po

http://www.fileserve.com/file/u3xAVn7/C ... ting4b.xls
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

Sponsor
 

Re: [EXCEL] betting difficile - query e macro

Postdi Flash30005 » 14/09/11 22:41

Ok modificata per prendere la colonna dei risultati definitivi (tra le due colonne non sapevo quale fosse)

ma non ottengo gli stessi tuoi risultati

controlla con questo file

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: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 15/09/11 13:35

ascolta... ho controllato sul sito d'origine e la classifica relativa alla 12a giornata combacia con la mia... ti invio il link...
ci potrebbe essere ancora qualche errore :(
http://www.statisticbet.com/mainstats/P ... no_12.html
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

Re: [EXCEL] betting difficile - query e macro

Postdi Flash30005 » 15/09/11 14:03

Le partite Generali Vinte Nulle e Perse corrispondono quindi dipende solo dal conteggio che per le partite Nulle avevo inserito un fattore moltiplicatore pari a 2 mentre è 1 (non sono un accanito del calcio e/o sport vari)
quindi alla fine della macro "creaclassifica" sostituisci la seguente riga,
basterebbe solo il valore (Ws3.Range("E" & SqC).Value * 2) da 2 a 1
Codice: Seleziona tutto
Ws3.Range("B" & SqC).Value = Ws3.Range("D" & SqC).Value * 3 + Ws3.Range("E" & SqC).Value * 1

E tutto collima perfettamente

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: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 15/09/11 14:24

ok perfetto funziona tutto bene! :D grazie mille...
un ultima cosa però... manca la terza richiesta iniziale... ti re-invio il file ... è evidenziato in rosso il punto 3 sulla sx...
http://www.fileserve.com/file/ApnS66y/betting.xlsx
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

Re: [EXCEL] betting difficile - query e macro

Postdi Flash30005 » 15/09/11 17:06

Non so se ti riferisci alla colorazione diversa se in casa e fuori, se è così allora modifica questa parte di macro
Codice: Seleziona tutto
    If Col = 1 Then
        RisVC = Val(Mid(RisC, 1, 1))
        RisSqA = Val(Mid(RisC, 3, 1))
        Colore = 6   '<<<< aggiungere questa riga
    Else
        RisSqA = Val(Mid(RisC, 1, 1))
        RisVC = Val(Mid(RisC, 3, 1))
        Colore = 44    '<<<< aggiungere questa riga
    End If
...
...
...
If RisVC = RisSqA Then
   Ws3.Range("E" & SqC).Value = Ws3.Range("E" & SqC).Value + 1
  Ws3.Cells(SqC, (Col - 1) * 6 + 12).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 12).Value + 1
  If Mem = 1 Then Ws3.Range("A" & SqC).Interior.ColorIndex = Colore   '<<<< cambiare il valore 6 con la variabile Colore
End If


Se oltre all'evidenziazione vorresti riportare altrove le squadre che hanno pareggiato dovresti dire in quale foglio vorresti questo riporto e se vorresti l'intera riga della classifica o altro dal file inviato vedo solo ciò che abbiamo fatto finora

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: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 15/09/11 17:57

hai letto il paragrafo 3 in rosso sulla sinistra del file che ti ho mandato?
basta quello... non importa la diversa colorazione (non mi sono fatto capire, scusami)....
praticamente dovresti mettere (che ne so...sotto la classifica in ClassAna) una cosa del genere
hanno pareggiato....Squadra A(in casa)....Squadra B(fuori casa)
la squadra.... A....ha fatto....11....gol....e ha subito....23.....gol….e….si trova in….6….posizione
etc etc etc
le parti non in grassetto sono parti fisse, invece quelle in grassetto sono quelle che di volta in volta, a cambiare della squadra, assumono diversi valori...
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

Re: [EXCEL] betting difficile - query e macro

Postdi Flash30005 » 15/09/11 19:00

Fai sempre un esempio visivo specialmente se vuoi una grafica o colorazione diversa dei punteggi GolF, GolS etc
puoi inviare anche un'immagine ormai, per sommi capi ho capito ma non vorrei tornarci più volte sul programma
ok?

a dopo
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: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 15/09/11 19:53

mi è venuta un altra idea migliore... la sto facendo che poi te la mando ;)
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

Re: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 15/09/11 20:32

oh cavolo ricontrollando il tutto la classifica non combacia con i risultati.... ti mando il file
praticamente nella classifica della 12 giornata ci sono i pareggi della 11, mentre dovrebbero esserci quelli della 13...
ti ho mandato 2 classifiche... la prima in ClassAna la seconda in classana2
ecco http://www.fileserve.com/file/8JqfktQ/C ... tting5.xls
tra un po mando anche the new idea :)
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

Re: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 15/09/11 20:50

ecco fatto... praticamente esce fuori una sorta di database...
http://imageshack.us/f/714/ideai.jpg/
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

Re: [EXCEL] betting difficile - query e macro

Postdi Flash30005 » 15/09/11 22:01

peppegiuseppe ha scritto:oh cavolo ricontrollando il tutto la classifica non combacia con i risultati.... ti mando il file
praticamente nella classifica della 12 giornata ci sono i pareggi della 11, mentre dovrebbero esserci quelli della 13...
ti ho mandato 2 classifiche... la prima in ClassAna la seconda in classana2
ecco http://www.fileserve.com/file/8JqfktQ/C ... tting5.xls
tra un po mando anche the new idea :)



Senti non voglio perdere tempo a cercare quale sia lo stato confusionale...
ma se scegli l'analisi della giornata 21/01/2011 significa che vuoi evidenziare i pareggi della giornata 15/01/2011
quindi questi incontri
15/01/2011
Covilha Trofense 0-2
Feirense Aves 0-3
Arouca Leixoes 1-0
Oliveirense Penafiel 2-0
Moreirense Fatima 2-1
Gil Vicente Estoril 2-1
Belenenses Varzim 4-2
Santa Clara Freamunde 1-1
E, la macro, fa proprio questo :aaah

Ricorda che il range A18:U34 le hai inserite tu per test e non facendo parte del programma devono essere cancellate
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: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 16/09/11 13:34

ok allora fai cosi...
vai sul sito di origine... e vedi sulla 15 giornata (21-01) che classifica compare (a destra dei risultati)
ecco il link http://www.statisticbet.com/campionati/ ... o_109.html
è uguale a quella del foglio?
Flash30005 ha scritto:
Senti non voglio perdere tempo a cercare quale sia lo stato confusionale...
ma se scegli l'analisi della giornata 21/01/2011 significa che vuoi evidenziare i pareggi della giornata 15/01/2011
quindi questi incontri
15/01/2011
Covilha Trofense 0-2
Feirense Aves 0-3
Arouca Leixoes 1-0
Oliveirense Penafiel 2-0
Moreirense Fatima 2-1
Gil Vicente Estoril 2-1
Belenenses Varzim 4-2
Santa Clara Freamunde 1-1
E, la macro, fa proprio questo :aaah

Ricorda che il range A18:U34 le hai inserite tu per test e non facendo parte del programma devono essere cancellate

giusto infatti la teoria va bene... non combacia la pratica ... la classifica è indietro di una giornata... quella del foglio è la 14 con pareggi della 14... io vorrei la 15 con pareggi della 14...
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

Re: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 17/09/11 18:01

up :undecided:
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

Re: [EXCEL] betting difficile - query e macro

Postdi Flash30005 » 18/09/11 09:31

peppegiuseppe ha scritto:vai sul sito di origine... e vedi sulla 15 giornata (21-01) che classifica compare (a destra dei risultati)
ecco il link http://www.statisticbet.com/campionati/ ... o_109.html
è uguale a quella del foglio?

Non alla classifica del 21/01/2011 ma alla classifica da te voluta in data 21/01 (data da analizzare)
peppegiuseppe ha scritto:si effettivamente è cosi ma vorrei una cosa piu automatica... mi spiego meglio :)
per ogni giornata, a partire dalla 7a, analizzo la classifica della giornata precedente... così per tutte le giornate fino alla 24a. quindi se la giornata disputata è la 13a mi servono i valori (posizione in classifica, gol fatti e subiti, giornate disputate) di quella precedente, quindi della 12a.
facendo manualmente verrebbe una cosa molto lunga soprattutto se devo ripetere l'operazione per piu partite, piu giornate, piu stagioni e piu competizioni...


Se adesso cambi le carte in tavola (perché è molto più facile dire che gli altri sbagliano invece che ammettere di aver impostato male il quesito è chiaro che i risultati (ora) non sono quelli voluti. :aaah

A questo punto dimmi cosa si deve fare, vedere scritto 15 incontri disputati con i gol fatti e subiti etc insomma la classifica della 15 giornata invece della 14ª?
Se così viene contraddetto quanto postato in uno dei primi messaggi.

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: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 18/09/11 11:54

ecco....http://www.fileserve.com/file/SjWkEbj/Cartel1.xls

l'ho spiegato meglio che potevo
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

Re: [EXCEL] betting difficile - query e macro

Postdi Flash30005 » 18/09/11 18:23

Sostituisci l'intera macro "CreaClassifica"
con questa

Codice: Seleziona tutto
Sub CreaClassifica()
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
DataC = Ws3.Range("Y1").Value
For RD = 1 To UR1 - 8 Step 10
    If Ws1.Range("A" & RD).Value = DataC Then
    URD = RD + 8
    URC = RD - 2
    End If
Next RD

Ws3.Range("B2:U17").ClearContents
Ws3.Range("A2:A17").Interior.ColorIndex = xlNone
For SqC = 2 To 17

Sq = Ws3.Range("A" & SqC).Value
For RR1 = 2 To URD
If RR1 > URD - 8 Then
    Mem = 1
Else
    Mem = 0
End If
For Col = 1 To 2
   
If Ws1.Cells(RR1, Col).Value = Sq Then
    If Mem = 0 Then Ws3.Cells(SqC, 3).Value = Ws3.Cells(SqC, 3).Value + 1
    Ws3.Cells(SqC, (Col - 1) * 6 + 10).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 10).Value + 1
    RisC = Ws1.Range("C" & RR1).Value
    If Col = 1 Then
        RisVC = Val(Mid(RisC, 1, 1))
        RisSqA = Val(Mid(RisC, 3, 1))
        Colore = 6
    Else
        RisSqA = Val(Mid(RisC, 1, 1))
        RisVC = Val(Mid(RisC, 3, 1))
        Colore = 44
    End If
        If RisVC > RisSqA And Mem = 0 Then
            Ws3.Range("D" & SqC).Value = Ws3.Range("D" & SqC).Value + 1
            Ws3.Cells(SqC, (Col - 1) * 6 + 11).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 11).Value + 1
        End If
        If RisVC < RisSqA And Mem = 0 Then
            Ws3.Range("F" & SqC).Value = Ws3.Range("F" & SqC).Value + 1
            Ws3.Cells(SqC, (Col - 1) * 6 + 13).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 13).Value + 1
        End If
        If RisVC = RisSqA Then
        If Mem = 0 Then
            Ws3.Range("E" & SqC).Value = Ws3.Range("E" & SqC).Value + 1
            Ws3.Cells(SqC, (Col - 1) * 6 + 12).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 12).Value + 1
            Else
            Ws3.Range("A" & SqC).Interior.ColorIndex = Colore
            End If
        End If
        If Mem = 0 Then
        Ws3.Range("G" & SqC).Value = Ws3.Range("G" & SqC).Value + RisVC
        Ws3.Range("H" & SqC).Value = Ws3.Range("H" & SqC).Value + RisSqA
        Ws3.Range("I" & SqC).Value = Ws3.Range("G" & SqC).Value - Ws3.Range("H" & SqC).Value
        Ws3.Cells(SqC, (Col - 1) * 6 + 14).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 14).Value + RisVC
        Ws3.Cells(SqC, (Col - 1) * 6 + 15).Value = Ws3.Cells(SqC, (Col - 1) * 6 + 15).Value + RisSqA
        End If
End If
Next Col

Next RR1
Ws3.Range("B" & SqC).Value = Ws3.Range("D" & SqC).Value * 3 + Ws3.Range("E" & SqC).Value * 1

Next SqC

    Range("A1:U17").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Key2:=Range("I2") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Columns("C:U").EntireColumn.AutoFit
    Range("A1").Select

End Sub


E fai sapere
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: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 18/09/11 20:13

mi esce scritto quando eseguo la macro...
errore di run-time '424':
necessario oggetto
che faccio?
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

Re: [EXCEL] betting difficile - query e macro

Postdi Flash30005 » 18/09/11 21:41

:eeh:

Spero che tu abbia sostituito solo la macro CreaClassifica,

ma, per "tagliare la testa al toro", Invio questo file


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: [EXCEL] betting difficile - query e macro

Postdi peppegiuseppe » 19/09/11 12:39

Perfetto, adesso va benissimo ;) :P
ora... procediamo alla new idea! :P viene una sorta di database... ti ho messo un solo esempio, ma ci dovrebbero essere tutte le partite pareggiate delle 18 giornate del campionato :)
ecco...http://www.fileserve.com/file/KhS5mtg/Cartel1.xls
peppegiuseppe
Utente Junior
 
Post: 32
Iscritto il: 11/09/11 19:30

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] betting difficile - query e macro":


Chi c’è in linea

Visitano il forum: Nessuno e 50 ospiti