Evidenziazione riga
Paola
piccole).
Dopo avere bloccato la colonna A, mi resta il problema che qualche volta si
sbaglia e si saltano le righe.
Avrei quindi bisogno che, quando la cella attiva si trova nella colonna A,
tutta la riga corrispondente (o meglio le celle utilizzate del foglio
esempio a1-z1) diventi per esempio in sfondo nero e colore bianco.
Come si fa ?
Grazie
ivano
"Paola" <costa2...@libero.it> ha scritto nel messaggio
news:l2amb.62546$vO5.2...@twister1.libero.it...
Innanzitutto devi inserire una funzione che stabilisce le coordinate della
cella attiva:
Inserisci-nome definisci-nome: cellat
riferito a : =RIF.CELLA.ATTIVA()
poi nel foglio selezioni l'intervallo che usi
formattazione condizionale-la formula č:
=RIF.RIGA()=RIF.RIGA(cellat)
formato che vuoi
ivano
Paola
Grazie Ivano
> cella attiva:
> Inserisci-nome definisci-nome: cellat
> riferito a : =RIF.CELLA.ATTIVA()
> poi nel foglio selezioni l'intervallo che usi
> formattazione condizionale-la formula č:
> =RIF.RIGA()=RIF.RIGA(cellat)
> formato che vuoi
pare non funzionare nel senso che, l'evidenziazione non segue il movimento
del cursore.
Appena inserita la formattazione condizionale, la riga corrente viene
evidenziata;
se ti sposti rimane evidenziata la precedente e la nuova no.
Ho sbagliato qualcosa ?
Grazie
ivano
> Innanzitutto devi inserire una funzione che stabilisce le coordinate della
> cella attiva:
> Inserisci-nome definisci-nome: cellat
> riferito a : =RIF.CELLA.ATTIVA()
> poi nel foglio selezioni l'intervallo che usi
> formattazione condizionale-la formula č:
> =RIF.RIGA()=RIF.RIGA(cellat)
> formato che vuoi
> ivano
>
Se selezioni e basta poi devi premere F9...o a seconda della versione
CTRL+ALT+F9
Se inserisci nella cella dovrebbe funzionare correttmente
ivano
Stefano
>-----Messaggio originale---
all'evento SelectionChange dell'oggetto Worksheet:
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
On Error GoTo esci
If Not Intersect(Target, Columns(1)) Is Nothing And Target
<> "" Then
Target.CurrentRegion.Interior.ColorIndex = xlNone
Target.CurrentRegion.Font.ColorIndex = xlAutomatic
Range(Target, Target.End
(xlToRight)).Interior.ColorIndex = 1
Range(Target, Target.End(xlToRight)).Font.ColorIndex = 2
End If
esci:
End Sub
Comunque la soluzione di Ivano a me funziona, basta che
premo di volta in volta il tasto F9 e in più evita di
ricorrere al vba che è sempre meglio.
Ciao.
>.
>
ivano
> [cut]
>
> Grazie Ivano
>
> > cella attiva:
> > Inserisci-nome definisci-nome: cellat
> > riferito a : =RIF.CELLA.ATTIVA()
> > poi nel foglio selezioni l'intervallo che usi
> > =RIF.RIGA()=RIF.RIGA(cellat)
> > formato che vuoi
>
> pare non funzionare nel senso che, l'evidenziazione non segue il movimento
> del cursore.
>
attuali...solo con VBA.
Mentre se la selezioni la effettui mediante mouse..come già consigliato
prova a premere F9 o CTRL+MAIUSC+F9
ivano
Paola
Grazie, con F9 funziona perfettamente.
Gentilmente due righe di commento a quella formula strana che mi hai fatto
inserire nella formattazione condizionale ?
Altrimenti mi tocca chiederti: se volessi evidenziare la colonna e non la
riga, come faccio ?
Ho notato inoltre una cosa strana.....
Nella colonna A (quella in cui si muove il cursore) ho inserito un messaggio
di input nella convalida.
Poichè ho disabilitato il cagnolino, il messaggio mi compare accanto alla
cella. Quando sposto il cursore, tutte le celle toccate dal box del
messaggio sono sporcate dallo sfondo che io ho impostato nella formattazione
condizionale.
Capita anche a te ?
Grazie
ivano
> [CUT]
>
> Grazie, con F9 funziona perfettamente.
> Gentilmente due righe di commento a quella formula strana che mi hai fatto
> inserire nella formattazione condizionale ?
>
> Altrimenti mi tocca chiederti: se volessi evidenziare la colonna e non la
> riga, come faccio ?
>
funzionano solo con un pochino di malizia.
Si tratta di utilizzare vecchie funzioni macro di excel (macro 4.0) con
nuovi strumenti (formattazione condizionale)
Se vuoi che si evidenzi la colonna:
=rif.colonna()=rif.colonna(cellat)
=RIF.CELLA.ATTIVA() è una vecchia funzione macro (funziona tutt'ora) e
restituisce le coordinate della cella selezionata.
>
>
> Ho notato inoltre una cosa strana.....
>
> Nella colonna A (quella in cui si muove il cursore) ho inserito un
messaggio
> di input nella convalida.
>
> Poichè ho disabilitato il cagnolino, il messaggio mi compare accanto alla
> cella. Quando sposto il cursore, tutte le celle toccate dal box del
> messaggio sono sporcate dallo sfondo che io ho impostato nella
formattazione
> condizionale.
>
> Capita anche a te ?
>
Beh..con o senza cagnolino capita anche a me...
e da questa cosa ne sono rimasto sorpreso in quanto si crea un evento "su
barra formula" del tutto inusuale.
ciao Ivano...e voglili bene al tuo "cagnolino" seppur virtuale.
luca.v...@tin.it
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 2
Cells.Font.ColorIndex = 0
Cells(Selection.Row, Selection.Column).EntireRow.Interior.ColorIndex
= 1
Cells(Selection.Row, Selection.Column).EntireRow.Font.ColorIndex = 0
End Sub
luca.v...@tin.it
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 2
Cells.Font.ColorIndex = 0
Cells(Selection.Row, Selection.Column).EntireRow.Interior.ColorIndex
= 1
Cells(Selection.Row, Selection.Column).EntireRow.Font.ColorIndex = 2
End Sub
SuperPippo®
news:jjskpvo6j1c8n5jic...@4ax.com...
ciao Luca.. ho notato che toglie la griglia di excel...
è possibile avere una visualizzazione
con la griglia ???
ciao..
luca.v...@tin.it
Cells.Font.ColorIndex = xlAutomatic
Cells(Selection.Row,
Selection.Column).EntireRow.Interior.ColorIndex = 1
Cells(Selection.Row, Selection.Column).EntireRow.Font.ColorIndex =
2
End Sub
ok?