Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

vba 2010: evidenziare da Ax a Tx

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

vba 2010: evidenziare da Ax a Tx

Postdi karug64 » 16/03/14 23:21

Salve a tutti.
Ho cercato un po' su google la soluzione a questo problema ma non ho trovato soluzioni che si adattano alla mia necessità.

Ho un foglio composto da (x) righe e 20 colonne (A:T)
Le righe hanno tutte il colore di sfondo standard, ma i valori possono contenere sottolienature, grassetti, rossi, neri, bianchi (per renderle invisibili).

Avrei necessità di una macro che evidenziasse le celle da A a T della riga in cui, di volta in volta, si posiziona il cursore in modo tale che scorrendolo si evidenzi la riga selezionata.

L'evidenziazione puo' essere effettuata colorando lo sfondo delle celle di giallo (per esempio) o ancora meglio inserendo un margine continuo da A(x) a T(x).

Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Sponsor
 

Re: vba 2010: evidenziare da Ax a Tx

Postdi Anthony47 » 17/03/14 00:01

Usa la formattazione condizionale: nel modulo di codice del foglio su cui lavori inserisci
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("Z1").Value = Selection.Row
End Sub
(invece di Z1 puoi usare una qualsiasi cella libera)
Poi seleziona l' area che ti interessa e imposta una formattazione condizionale con la formula
Codice: Seleziona tutto
=Rif.riga()=$Z$1


Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: vba 2010: evidenziare da Ax a Tx

Postdi karug64 » 17/03/14 00:57

Anthony47 ha scritto:Usa la formattazione condizionale: nel modulo di codice del foglio su cui lavori inserisci
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("Z1").Value = Selection.Row
End Sub
(invece di Z1 puoi usare una qualsiasi cella libera)
Poi seleziona l' area che ti interessa e imposta una formattazione condizionale con la formula
Codice: Seleziona tutto
=Rif.riga()=$Z$1


Ciao


Ok. Provato, ed ovviamente funziona, ma c'e' un problema:
il foglio viene riempito di volta in volta da una routine e si compone di una parte (righe da 6 a x) che sono la parte da sottoporre alla routine: quindi, le righe sono sempre diverse.

Quindi occorre una routine che imposti la formattazione condizionale "al volo".

L'ho registrata con registratore di macro (vedremo se funziona), ma dove va inserita considerando che il foglio viene lanciato da una userform con comando

Codice: Seleziona tutto
UserForm5.Hide
Windows("Tabulato.xls").Activate
WindowState = xlMaximized


E tra l'altro la macro registrata automaticamente non funziona ....

Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: vba 2010: evidenziare da Ax a Tx

Postdi karug64 » 17/03/14 01:14

karug64 ha scritto:
Anthony47 ha scritto:Usa la formattazione condizionale: nel modulo di codice del foglio su cui lavori inserisci
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("Z1").Value = Selection.Row
End Sub
(invece di Z1 puoi usare una qualsiasi cella libera)
Poi seleziona l' area che ti interessa e imposta una formattazione condizionale con la formula
Codice: Seleziona tutto
=Rif.riga()=$Z$1


Ciao


Ok. Provato, ed ovviamente funziona, ma c'e' un problema:
il foglio viene riempito di volta in volta da una routine e si compone di una parte (righe da 6 a x) che sono la parte da sottoporre alla routine: quindi, le righe sono sempre diverse.

Quindi occorre una routine che imposti la formattazione condizionale "al volo".

L'ho registrata con registratore di macro (vedremo se funziona), ma dove va inserita considerando che il foglio viene lanciato da una userform con comando

Codice: Seleziona tutto
UserForm5.Hide
Windows("Tabulato.xls").Activate
WindowState = xlMaximized


E tra l'altro la macro registrata automaticamente non funziona ....

Grazie



Scusa. Risolto.
Ho inserito la macro subito dopo aver attivato il tabulato.xls
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22


Torna a Applicazioni Office Windows


Topic correlati a "vba 2010: evidenziare da Ax a Tx":


Chi c’è in linea

Visitano il forum: Nessuno e 21 ospiti