Condividi:        

help formule e macro per programma fantacalcio

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: help formule e macro per programma fantacalcio

Postdi Flash30005 » 16/12/10 00:44

Prova a sostituire l'a parte relativa al carattere con questo codice
Codice: Seleziona tutto
   
            If Diff = 0 Then
                Worksheets("Attuale").Range("K" & SqA + 4).Value = "="
                Worksheets("Attuale").Range("K" & SqA + 4).Font.Name = "Bauhaus 93"
                Worksheets("Attuale").Range("K" & SqA + 4).Font.Size = 12
                Worksheets("Attuale").Range("K" & SqA + 4).Font.ColorIndex = 6
            End If


Se non hai il font Bauhaus usa un altro font

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-

Sponsor
 

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 16/12/10 01:19

provato ed è tutt'ok....l'unica cosa che quando eseguo la macro mi allarga le righe, poi se cambia la classifica......e non c'è il segno uguale mi stringe le righe , credo solo che sia un "problema" di dimenisione del carattere......


comunque grazie ancora x la tua pazienza.....buona notte!
gigilatrottola
Utente Senior
 
Post: 190
Iscritto il: 10/06/06 09:58

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 04/01/11 22:35

salve a tutti ed auguri......
eccomi qua di nuovo a dar fastidio, ma credo che sia una cosa semplice, semplice

questo è il file:
http://rapidshare.com/files/440824251/e ... quadre.xls
questa è la macro adatta ad una classifica a 10 squadre mentre ora mi occorrerebbe che funzionasse su di una classifica a 12 squadre.....
qualcosa sono riuscito a cambiare ma credo che sbagli nella prima parte......
cortesemente mi potete aiutare?


Codice: Seleziona tutto
Sub ordinaclassifica()
Worksheets("classifica").Range("K5:K16").ClearContents
For RR = 5 To 14
VettSqP(RR - 4) = Worksheets("classifica").Range("B" & RR).Value
VettRP(RR - 4) = RR
Next RR
'----------------- Macro ordinamento classifica

Call ordinamento

'------------------Fine Macro ordinamento
For RR = 5 To 14
VettSqA(RR - 4) = Worksheets("classifica").Range("B" & RR).Value
VettRA(RR - 4) = RR
Next RR
For SqP = 1 To 10
    For SqA = 1 To 10
        If VettSqP(SqP) = VettSqA(SqA) Then
            Diff = VettRP(SqP) - VettRA(SqA)
            If Diff < 0 Then
                Worksheets("classifica").Range("K" & SqA + 4).Value = "q"
                Worksheets("classifica").Range("K" & SqA + 4).Font.Name = "Wingdings 3"
                Worksheets("classifica").Range("K" & SqA + 4).Font.Size = 12
                Worksheets("classifica").Range("K" & SqA + 4).Font.ColorIndex = 3
            End If
            If Diff > 0 Then
                Worksheets("classifica").Range("K" & SqA + 4).Value = "p"
                Worksheets("classifica").Range("K" & SqA + 4).Font.Name = "Wingdings 3"
                Worksheets("classifica").Range("K" & SqA + 4).Font.Size = 12
                Worksheets("classifica").Range("K" & SqA + 4).Font.ColorIndex = 10
            End If
               
            If Diff = 0 Then
                Worksheets("classifica").Range("K" & SqA + 4).Value = "="
                Worksheets("classifica").Range("K" & SqA + 4).Font.Name = "Copperplate Gothic Light"
                Worksheets("classifica").Range("K" & SqA + 4).Font.Size = 12
                Worksheets("classifica").Range("K" & SqA + 4).Font.ColorIndex = 6
            End If
        End If
    Next SqA
Next SqP
End Sub
Private Sub ordinamento()
    Range("B4:K16").Select
    Selection.Sort Key1:=Range("C5"), Order1:=xlDescending, Key2:=Range("I5") _
        , Order2:=xlDescending, Key3:=Range("G5"), Order3:=xlDescending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
        , DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    Range("J18").Select
End Sub



grazie a tutti e buona serata
gigilatrottola
Utente Senior
 
Post: 190
Iscritto il: 10/06/06 09:58

Re: help formule e macro per programma fantacalcio

Postdi Flash30005 » 05/01/11 16:05

Il link al tuo file è errato ho preso come test un file precedente
Ho modificato la macro inserendo la variabile "NSq" (=10)
quindi utilizzandola e modificando il valore di Nsq = 12 dovresti avere l'ordinamento per 12 squadre, dico "dovresti" perché nel tuo foglio Classifica hai delle altre tabelle al di sotto della tabella principale per questo quando si crea un progetto bisognerebbe, fin dall'inizio, sapere precisamente cosa si andrà a fare...
Comunque ti invio la macro

Codice: Seleziona tutto
Public VettSqP(10), VettSqA(10) As String, VettRP(10), VettRA(10), NSq As Integer

Sub ordinaclassifica()
NSq = 10
Worksheets("classifica").Range("K5:K" & NSq + 4).ClearContents
For RR = 5 To NSq + 4
VettSqP(RR - 4) = Worksheets("classifica").Range("B" & RR).Value
VettRP(RR - 4) = RR
Next RR
'----------------- Macro ordinamento classifica

Call ordinamento

'------------------Fine Macro ordinamento
For RR = 5 To NSq + 4
VettSqA(RR - 4) = Worksheets("classifica").Range("B" & RR).Value
VettRA(RR - 4) = RR
Next RR
For SqP = 1 To NSq
    For SqA = 1 To NSq
        If VettSqP(SqP) = VettSqA(SqA) Then
            Diff = VettRP(SqP) - VettRA(SqA)
            If Diff < 0 Then
                Worksheets("classifica").Range("K" & SqA + 4).Value = "q"
                Worksheets("classifica").Range("K" & SqA + 4).Font.Name = "Wingdings 3"
                Worksheets("classifica").Range("K" & SqA + 4).Font.Size = 12
                Worksheets("classifica").Range("K" & SqA + 4).Font.ColorIndex = 3
            End If
            If Diff > 0 Then
                Worksheets("classifica").Range("K" & SqA + 4).Value = "p"
                Worksheets("classifica").Range("K" & SqA + 4).Font.Name = "Wingdings 3"
                Worksheets("classifica").Range("K" & SqA + 4).Font.Size = 12
                Worksheets("classifica").Range("K" & SqA + 4).Font.ColorIndex = 10
            End If
            If Diff = 0 Then
                Worksheets("classifica").Range("K" & SqA + 4).Value = "tu"
                Worksheets("classifica").Range("K" & SqA + 4).Font.Name = "Wingdings 3"
                Worksheets("classifica").Range("K" & SqA + 4).Font.Size = 12
                Worksheets("classifica").Range("K" & SqA + 4).Font.ColorIndex = 6
            End If
        End If
    Next SqA
Next SqP
End Sub
Private Sub ordinamento()
    Range("B4:K" & NSq + 4).Select
    Selection.Sort Key1:=Range("C5"), Order1:=xlDescending, Key2:=Range("I5") _
        , Order2:=xlDescending, Key3:=Range("G5"), Order3:=xlDescending, Header _
        :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
        , DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    Range("J16").Select
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-

Re: help formule e macro per programma fantacalcio

Postdi gigilatrottola » 05/01/11 17:37

ciao flash
grazie , ho modificato il tutto per 12 squadre e funziona perfettamente, ho solo 1 domanda da farti,
io nel file a 10 squadre come macro ho quella senza la dicitura NSq" (=10) ma funziona perfettamente, che idci sostituisco quella oppure lascio stare?
in pratica che differenza c'e'?
ciao, grazie e come sempre disponibile....
gigilatrottola
Utente Senior
 
Post: 190
Iscritto il: 10/06/06 09:58

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "help formule e macro per programma fantacalcio":


Chi c’è in linea

Visitano il forum: Marius44 e 44 ospiti