Condividi:        

colorare righe per raggruppare data

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

colorare righe per raggruppare data

Postdi raimea » 06/01/13 12:07

ciao
se possibile, tramite macro , vorrei poter colorare 2 righe
che mi raggruppano le partite della stessa giornata.

considerando la Col C dove c'e la data
vorrei colorare la prima e l'ultima riga con la stessa data
come nel file allegato , dove ' ho colorato manualmente.
la riga da colorare va da Col C a Col W.

naturalmente il numero di partite nei vari gg non e' fisso
ci saranno giorni con solo 1na partita, altri con 3 altri con 4 ecc...

allego il file , grazie

http://dl.dropbox.com/u/96374724/under.13.rar

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: colorare righe per raggruppare data

Postdi Flash30005 » 06/01/13 12:53

il link non mi risulta valido
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: colorare righe per raggruppare data

Postdi raimea » 06/01/13 14:21

az eppure pare giusto

http://dl.dropbox.com/u/96374724/under.13.rar

vedi se va
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colorare righe per raggruppare data

Postdi raimea » 06/01/13 16:41

S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colorare righe per raggruppare data

Postdi Flash30005 » 06/01/13 18:12

Ok scaricato, ma per fare quello che desideri la macro dovrebbe eliminare i bordi rossi inseriti precedentemente e ricrearli di nuovo dove occorrono.
Purtroppo se si eliminano i bordi vengono eliminati anche quelli preesistenti nel foglio e dover ricreare la formattazione originale diventa una macro "complessa".

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: colorare righe per raggruppare data

Postdi raimea » 06/01/13 18:22

ciao
a... :o
non immaginavo fosse cosi complesso.
letto cio che mi dici ,x ora lo faro' manualmente.
tornero' " all' attaco" se proprio dovro farlo in automatico.
grazie mille
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colorare righe per raggruppare data

Postdi Anthony47 » 06/01/13 21:06

Potrebbe forse bastare modificare il colore dei bordi senza toccare il LineStyle? ad esempio:
Codice: Seleziona tutto
Sub main()
For I = 9 To Cells(Rows.Count, 3).End(xlUp).Row + 10
    If Cells(I, 3) <> Cells(I - 1, 3) Then
        With Cells(I, 3).Resize(1, 21)
            .Borders(xlEdgeTop).ColorIndex = 3
            .Borders(xlEdgeTop).Weight = xlMedium
            .Borders(xlEdgeBottom).ColorIndex = 1   'xlAutomatic
        End With
    Else
        With Cells(I, 3).Resize(1, 21)
            .Borders(xlEdgeTop).ColorIndex = 1
            .Borders(xlEdgeTop).Weight = xlThin
            .Borders(xlEdgeBottom).ColorIndex = 1   'xlAutomatic
        End With
    End If
Next I
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: colorare righe per raggruppare data

Postdi raimea » 07/01/13 07:29

:o :o :o MITICO.... :D

si fa cio' che volevo

grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colorare righe per raggruppare data

Postdi raimea » 09/01/13 07:12

ciao
vorrei approfittare della macro sopra riportata
ed applicarla ad un altro file dove vorrei ottenere lo stesso risultato
ma raggruppando per mese , cioe' le date con lo stesso mese.

ho provato a modificarla ma non ho ottenuto il risultato sperato.

provo a descrivere:
la prima data e' in riga 5 Col A
ed e' nel formato 07-01-13

vorrei qindi colorare le righe in modo da raggruppare tutte le date
di gennaio , poi febbr, ecc...
le righe da colorare vanno dalla Col A alla Col DB.

(l'ultima data e' scritta in riga 32.)

ciao
grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colorare righe per raggruppare data

Postdi Flash30005 » 09/01/13 10:14

Prova così
Codice: Seleziona tutto
Sub main()
For I = 5 To Cells(Rows.Count, 1).End(xlUp).Row + 10
    If Month(Cells(I, 1)) <> Month(Cells(I - 1, 1)) Then
        With Cells(I, 1).Resize(1, 106)
            .Borders(xlEdgeTop).ColorIndex = 3
            .Borders(xlEdgeTop).Weight = xlMedium
            .Borders(xlEdgeBottom).ColorIndex = 1   'xlAutomatic
        End With
    Else
        With Cells(I, 1).Resize(1, 106)
            .Borders(xlEdgeTop).ColorIndex = 1
            .Borders(xlEdgeTop).Weight = xlThin
            .Borders(xlEdgeBottom).ColorIndex = 1   'xlAutomatic
        End With
    End If
Next I
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: colorare righe per raggruppare data

Postdi Anthony47 » 09/01/13 13:37

Nel caso che vada in run time error l' istruzione If Month(Cells(I, 1)) <> Month(Cells(I - 1, 1)) Then, provare a sostituirla con
If Format(Cells(I, 1), "mmm") <> Format(Cells(I - 1, 1), "mmm") Then

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: colorare righe per raggruppare data

Postdi raimea » 09/01/13 17:34

:o :o mitici entrambi
funge tutto ,
nelle mie prove non sapevo di sostituire con questo passaggio :
Codice: Seleziona tutto
 "mmm") <> Format(Cells(I - 1, 1), "mmm")

(cio dire al variare del mese in inglese)

si', la macro andava in run time quindi questa la vers finale:
Codice: Seleziona tutto
Sub main()
For I = 5 To Cells(Rows.Count, 1).End(xlUp).Row + 10
   
    If Format(Cells(I, 1), "mmm") <> Format(Cells(I - 1, 1), "mmm") Then
        With Cells(I, 1).Resize(1, 106)
            .Borders(xlEdgeTop).ColorIndex = 3
            .Borders(xlEdgeTop).Weight = xlMedium
            .Borders(xlEdgeBottom).ColorIndex = 1   'xlAutomatic
        End With
    Else
        With Cells(I, 1).Resize(1, 106)
            .Borders(xlEdgeTop).ColorIndex = 1
            .Borders(xlEdgeTop).Weight = xlThin
            .Borders(xlEdgeBottom).ColorIndex = 1   'xlAutomatic
        End With
    End If
Next I
End Sub


grazie ad entrambi :P
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "colorare righe per raggruppare data":


Chi c’è in linea

Visitano il forum: Nessuno e 38 ospiti