Condividi:        

Ciao

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

Ciao

Postdi VisitorsVBA » 09/12/06 17:27

Si lo so ma a me serve che colori tutta la riga dell'intervallo. In questo modo. Che ne dite? :)

Sub FormattaCompreso()

Range("A2:E10000").Interior.ColorIndex = 0

indi = 2 'riga partenza
ComVal = 0 'valore iniziale della cella
CONDI1 = Range("J1") 'condizione 1
CONDI2 = Range("J2") ' condizione 2

'eseguie il ciclo finchè il valore della cella
'della colonna A non è vuota. Quando la cella
'è vuota esce dal ciclo.
Do Until Range("D" & indi) = ""

'Condizione: se il valore della cella è compresa
'tra il valore della cella C1 e la cella C2
'colora di rosso la cella altrimenti colora di bianco
'e aumenta il valore "indi" di 1 (scalando di cella)
If Range("D" & indi).Value >= CONDI1 And _
Range("D" & indi).Value <= CONDI2 Then

'assegna il valore della cella
ComVal = Range("D" & indi).Value

Range("A" & indi & ":" & "E" & indi).Interior.ColorIndex = 8
Else
Range("A" & indi & ":" & "E" & indi).Interior.ColorIndex = 0
End If

indi = indi + 1 ' aumenta di una riga

Loop 'esci dal ciclo
End Sub
VisitorsVBA
Utente Junior
 
Post: 16
Iscritto il: 23/11/06 18:43

Sponsor
 

Re: Ciao

Postdi Alexsandra » 10/12/06 14:59

VisitorsVBA ha scritto:........ Che ne dite? :
Dico che intanto dovresti mettere titoli più significativi, racchiudere il codice entro i tag ed esporre il tuo problema in maniera chiara ed esplicita.
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale.

Win7 + Office 2003 Ita
Avatar utente
Alexsandra
Utente Senior
 
Post: 2358
Iscritto il: 09/01/06 20:31

Postdi Anthony47 » 11/12/06 00:49

Penso che sia la continuazione di questa richiesta:
VisitorsVBA ha scritto:ho bisogno [....... ] di scrivere un codice che cerca in una determinata colonna ("A") i valori compresi tra due date indicate dentro due celle ("G1" e "G2") e colora di rosso lo sfondo della cella.

(vedi http://www.pc-facile.com/forum/viewtopic.php?t=54709)

Anche cambiando la richiesta, la mia proposta e’: facciamolo con la formattazione condizionata.

Rispetto alla risposta precedente, selezioni la cella D2, attivi la formattazione condizionata; selezioni “La formula è” e inserisci la formula =E($D2>=$C$1;$D2<=$C$2)

Poi copi questa cella e fai Incolla Speciale/Formato su tutte le colonne che vuoi evidenziare, al limite su tutto il foglio se vuoi colorare come dici tutta la riga.

Se proprio vuoi usare una macro, ti suggerirei di identificare l’ ultima riga utilizzata con l’ istruzione
Codice: Seleziona tutto
LastRow = Range("D65536").End(xlUp).Row
E poi, invece del Do Until fare un ciclo For/Next con
Codice: Seleziona tutto
For indi = 2 to LastRow

con le tue istruzioni di verifica e formattazione.

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

Postdi cassioli » 11/12/06 11:10

Continuate di la', qui chiudo.
cassioli
Utente Senior
 
Post: 1014
Iscritto il: 05/03/04 11:02


Torna a Applicazioni Office Windows


Topic correlati a "Ciao":

Ciao a tutti!
Autore: oz85
Forum: Forum off-topic
Risposte: 1
Ciao a tutti
Autore: Computero
Forum: Forum off-topic
Risposte: 0
ciao a tutti!
Autore: HJMarseille
Forum: Forum off-topic
Risposte: 0
Ciao a tutti
Autore: visualdrome
Forum: Forum off-topic
Risposte: 1

Chi c’è in linea

Visitano il forum: Nessuno e 106 ospiti