Moderatori: Anthony47, Flash30005
Ws3.Range("B" & SqC).Value = Ws3.Range("D" & SqC).Value * 3 + Ws3.Range("E" & SqC).Value * 1
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
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
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
Ricorda che il range A18:U34 le hai inserite tu per test e non facendo parte del programma devono essere cancellate
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?
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...
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
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 27 ospiti