Condividi:        

[excel] formattaz. condizionale intera riga con + 3 formati

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

[excel] formattaz. condizionale intera riga con + 3 formati

Postdi no_mad » 03/07/09 16:03

Ciao a tutti! :D
io sono un nuovo adepto di vba perchè usando molto excel a volte mi occorre inventare cose nuove per ovviare alle sue limitazioni. Mi sono impegnato per trovare la mia risposta su internet, ma spesso non si applica totalmente al mio problema, che ora vi espongo. :P

io volevo utilizzare 6 condizioni nella formattazione condizionale di excel, che è limitata e ne ammette solo 3, quindi ho impostato il codice sottostante, che mi serve a far cambiare colore alle celle in una certa colonna (la A, dalla riga 11 alla 509) a seconda del numero che ci scrivo dentro (da 1 a 6)

il mio quesito è questo, insieme alla cella in cui è scritto il numero, io vorrei che cambiasse colore anche tutta la riga corrispondente, dalla colonna A alla colonna AE per ogni riga.

cosa dovrei aggiungere??
ho provato di tutto, ma risultati sotto zero... ehe :eeh:
grazie a tutti! ciao! :D



--------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)

Dim icolor As Integer

If Not Intersect(Target, Range("A11:A509")) Is Nothing Then

Select Case Target
Case 1
icolor = 15
Case 2
icolor = 5
Case 3
icolor = 10
Case 4
icolor = 6
Case 5
icolor = 8
Case 6
icolor = 7
Case Else
'Whatever
End Select

Target.Interior.ColorIndex = icolor
End If

End Sub

--------------------------------------------------
no_mad
Newbie
 
Post: 2
Iscritto il: 03/07/09 15:53

Sponsor
 

Re: [excel] formattaz. condizionale intera riga con + 3 formati

Postdi Flash30005 » 03/07/09 17:04

Ciao No_Mad e benvenuto

ho aggiunto due righe alla tua macro
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)

Dim icolor As Integer

If Not Intersect(Target, Range("A11:A509")) Is Nothing Then

Select Case Target
Case 1
icolor = 15
Case 2
icolor = 5
Case 3
icolor = 10
Case 4
icolor = 6
Case 5
icolor = 8
Case 6
icolor = 7
Case Else
'Whatever
End Select
riga = Target.Row
Worksheets("Foglio1").Range(Cells(riga, 1), Cells(riga, 31)).Interior.ColorIndex = icolor
End If

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: [excel] formattaz. condizionale intera riga con + 3 formati

Postdi Flash30005 » 05/07/09 03:04

Inutile dire che puoi inserire una sola riga
Codice: Seleziona tutto
Range("A" & Target.Row & ":AE" & Target.Row).Interior.ColorIndex = icolor


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: [excel] formattaz. condizionale intera riga con + 3 formati

Postdi no_mad » 06/07/09 08:40

GRANDIOSOOOOOO!!

LA SECONDA è UNA SOLUZIONE ELEGANTISSIMA, SEMPLICISSIMA ED ESSENZIALE!

il vba ha ancora tanti segreti per me però mi applico, anche grazie a tutti voi!

:D

funziona perfettamente ora! grazie mille!
no_mad
Newbie
 
Post: 2
Iscritto il: 03/07/09 15:53


Torna a Applicazioni Office Windows


Topic correlati a "[excel] formattaz. condizionale intera riga con + 3 formati":


Chi c’è in linea

Visitano il forum: Nessuno e 57 ospiti