[EXCEL] betting difficile - query e macro

[peppegiuseppe]

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

[Flash30005]

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

[peppegiuseppe]

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

[Flash30005]

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

[peppegiuseppe]

ok perfetto funziona tutto bene! 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

[Flash30005]

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

[peppegiuseppe]

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...

[Flash30005]

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

[peppegiuseppe]

mi è venuta un altra idea migliore... la sto facendo che poi te la mando

[peppegiuseppe]

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]

ecco fatto... praticamente esce fuori una sorta di database...
http://imageshack.us/f/714/ideai.jpg/

[Flash30005]

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

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

[peppegiuseppe]

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?

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

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]

up

[Flash30005]

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)

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.

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

[peppegiuseppe]

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

l'ho spiegato meglio che potevo

[Flash30005]

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

[peppegiuseppe]

mi esce scritto quando eseguo la macro...
errore di run-time '424':
necessario oggetto
che faccio?

[Flash30005]

Spero che tu abbia sostituito solo la macro CreaClassifica,

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


Ciao

[peppegiuseppe]

Perfetto, adesso va benissimo
ora... procediamo alla new idea! 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