Condividi:        

Macro Colora Colonne Alternate

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

Macro Colora Colonne Alternate

Postdi Francesco6918 » 14/06/14 15:09

Un saluto a tutti avrei bisogno di una macro che mi seleziona una tabella in Excel e mi colora le colonne alterne, con colori RGB di tipo prima colonna RGB 79-206-255 seconda colonna RGB 136-222-255 chiaramente abbinare la macro con pulsante, vi invio un esempio.
http://www.filedropper.com/coloratabella

Saluti
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Sponsor
 

Re: Macro Colora Colonne Alternate

Postdi Flash30005 » 15/06/14 03:13

Hai parlato di colonne ma nell'esempio sono colorati solo dei range
La macro che propongo coloro alternativamente le colonne da 1 a 16 ma puoi modificare secondo le tue esigenze
Codice: Seleziona tutto
Sub Colora()
For CC = 1 To 16
Colore = RGB(79, 206, 255)
If CC Mod 2 = 0 Then Colore = RGB(136, 222, 255)
Columns(CC).Interior.Color = Colore
Next CC
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: Macro Colora Colonne Alternate

Postdi Francesco6918 » 15/06/14 21:03

Ciao Flash avrei bisogno la macro che seleziono un range del foglio a mio piacere non definito e mi colora le colonne alterne , la tua e impostare la macro con un range definito invece, o trovato facendo una ricerca questa macro che seleziono un range e mi colora le righe e possibile modificarla?
Macro
Sub Colora_Tabella_Celeste()
righe = Selection.Rows.Count
col = Selection.Column
colfin = Selection.Columns.Count + col - 1
For n = Selection.Row To Selection.Row + righe - 1
If n Mod 2 = 0 Then
Range(Cells(n, col), Cells(n, colfin)).Interior.Color = RGB(79, 206, 255)
Else
Range(Cells(n, col), Cells(n, colfin)).Interior.Color = RGB(136, 222, 255)
End If
Next
End Sub

Saluti
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20

Re: Macro Colora Colonne Alternate

Postdi Anthony47 » 16/06/14 23:04

Ad esempio:
Codice: Seleziona tutto
Sub Macro1()
Dim I As Long, myCol As Long
For I = 1 To Selection.Columns.Count
    If I Mod 2 = 0 Then myCol = RGB(136, 222, 255) Else myCol = RGB(79, 206, 255)
    Selection.Cells(1, I).Resize(Selection.Rows.Count, 1).Interior.Color = myCol
Next I
End Sub


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

Re: Macro Colora Colonne Alternate

Postdi Francesco6918 » 16/06/14 23:16

Ciao Anthony47 grazie della tempestivita, funziona alla prossima.

Saluti a tutti
Francesco6918
Utente Senior
 
Post: 265
Iscritto il: 04/03/11 11:20


Torna a Applicazioni Office Windows


Topic correlati a "Macro Colora Colonne Alternate":


Chi c’è in linea

Visitano il forum: Ricky0185 e 47 ospiti