Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 36

Discussione: Evidenziare una intera riga quando seleziono la cella



  1. #1
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Evidenziare una intera riga quando seleziono la cella

    Ciao a tutti glia amici del forum

    Avrei bisogno che quando seleziona una qualsiasi cella si colorasse ad esempio di gliallo tutta la riga del foglio

    non riesco a modificare questo tipo di comando perche mi renda il risulatato voluto

    Private Sub Worksheet_Change(ByVal Target As Range)

    ThisWorkbook.Worksheets("Foglio1").Range("A1:A5").Interior.ColorIndex = 6

    End Sub


    Grazie
    windows 10
    Excel 2016

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3209
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Invece di usare Worksheet_Change usa Worksheet_SelectionChange.

    Ma hai pensato anche a decolorare oppure, in breve, avrai tutto colorato.

    Ciao e permettimi la battuta :176::176::176:
    Mario

  3. #3
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    :285:

    Ho provato ma non sono riuscito a evidenziare tuuta la riga

    cioè il range A1:A5 come devo sostituirlo??
    windows 10
    Excel 2016

  4. #4
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Cioè vorrei ad esempio che quando seleziono la cella B3 si evidenzia tutta la riga 3

    se seleziono lò cella c5 si evidenzia tutta la riga 5 e cosi via
    windows 10
    Excel 2016

  5. #5
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3209
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    La tua sub deve essere la seguente
    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        ActiveCell.EntireRow.Rows(Target(Row) + 1).Interior.ColorIndex = 6
    End Sub
    Ciao e scusa per prima,
    Mario

  6. #6
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Guarda nick0573 , non sò sè tu hai già scaricato la mia Agebda DataBase .
    Però ti pregherei di farlo vivamente in quanti li c'è anche questa possibilità Basta solo studiarla e modificarla All'occorrenza Ripeterla su di un Altro Foglio di lavoro .
    Ciao da A.Maurizio
    Il Link e : https://app.box.com/s/loz1w8m198x2tsnru240k5dni4p7qt2z

  7. #7
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Si scusa la mia poca chiarezza

    Funziona.....però quando cambio riga quella di prima non si deve più evidenziare

    cioè solo una riga per volta
    windows 10
    Excel 2016

  8. #8
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    grazie maurizio lho gia scaricata e letta ma non ho ancora provata
    bisogna che mi ci metta con calma a guardare tutto
    come prima impressione mi sembra un gran bel lavoro con colori e molto finestre
    La verifico quanto prima

    Grazie ancora
    windows 10
    Excel 2016

  9. #9
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    La tua sub deve essere la seguente
    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        ActiveCell.EntireRow.Rows(Target(Row) + 1).Interior.ColorIndex = 6
    End Sub
    Ciao e scusa per prima,
    Mario
    Mario Rows(Target(Row) + 1) questo è da togliere perchè è superfluo e da' errore di compilazione.

    Ciao ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  10. #10
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Nick;
    potresti provare, con molta cautela, questo Codice:
    Codice: 
    Option Explicit
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Cella As String
        Cella = ActiveCell.Address
        Application.EnableEvents = False
        Cells.Select
        With Selection.Interior
            .Pattern = xlNone
        End With
        Range(Target.Row & ":" & Target.Row).Select
        With Selection.Interior
            .Color = 65535
        End With
        Range(Cella).Select
        Application.EnableEvents = True
    End Sub
    La cautela è riferita alle istruzioni:
    Codice: 
        Cells.Select
        With Selection.Interior
            .Pattern = xlNone
        End With
    la cui esecuzione cancella i Colori di riempimento di tutte le Celle; non so se questo possa essere un problema.


    A disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  11. #11
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    ma ce ancora il solito prolema che rimangono tutte evidenziate

    vorrei che si evidenziasse solo la riga della cella selezionata enon le altre
    windows 10
    Excel 2016

  12. #12
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Si giuseppe mi senbra propio ok

    Questa funziona come ho bisogno io

    Grazie a voi tutti
    windows 10
    Excel 2016

  13. #13
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    una curiosità

    perchè cautela.........

    Qual'è il problema????
    windows 10
    Excel 2016

  14. #14
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da nick0573 Visualizza Messaggio
    ma ce ancora il solito prolema che rimangono tutte evidenziate

    vorrei che si evidenziasse solo la riga della cella selezionata enon le altre
    eccoti le istruzioni
    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
     Cells.Interior.Pattern = xlNone
        ActiveCell.EntireRow.Rows.Interior.ColorIndex = 6
    End Sub
    :999:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  15. #15
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Nick;
    come anticipato in Risposta #10

    La cautela è riferita alle istruzioni:
    Codice: 
     
    Cells.Select
        With Selection.Interior
            .Pattern = xlNone
        End With
    sintetizzata da Baloon in:
    Codice: 
     Cells.Interior.Pattern = xlNone
    la cui esecuzione cancella i Colori di riempimento di tutte le Celle; non so se questo possa essere un problema.

    A disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  16. #16
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    ottimo

    Ma ci sarebbe anche un modo per non visualizzare nessuna riga in caso che
    posizionandosi in qualce maniera con il cursore??
    qualcuno viene in mente qualcosa

    Comunque và bene anche cosi


    Grazie a tutti per la velocità con cui rispondete:285:
    windows 10
    Excel 2016

  17. #17
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Un idea................la butto là

    Creare un pulsante che attivi questo comando e disattivo solo quando ne ho bisogno io..........
    windows 10
    Excel 2016

  18. #18
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Si potrebbe provare con:
    Codice: 
    Option Explicit
    
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        Dim Cella As String
        Cella = Cells(Target.Row, Target.Column + 1).Address
        Application.EnableEvents = False
        Cells.Select
        With Selection.Interior
            .Pattern = xlNone
        End With
        Range(Target.Row & ":" & Target.Row).Select
        With Selection.Interior
            .Color = 65535
        End With
        Range(Cella).Select
        Application.EnableEvents = True
    End Sub
    In questo modo l'Evento si attiva con doppio click nella Cella selezionata.
    Al termine, verrà selezionata la Cella immediatamente a destra della Cella iniziale, ma, a questo si può porre rimedio.

    A disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  19. #19
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Ciao Giuseppe ho provato il comando ma non funziona bene il comando
    ad esempio dato che seleziono dei dati dentro delle tabelle ad esmpio
    si evidenzia la riga fino a un certo punto e poi salta e magari riprende le celle evidenziate piu avanti

    Io avevo pensato ad un pulsate o comando per attivare questa funzione perchè non sempre
    ho necessità di evidenziare la riga, ma solo quando devo fare degli inserimenti.

    Grazie.....
    windows 10
    Excel 2016

  20. #20
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Ripensando a questa formula che và benissimo

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.Pattern = xlNone
    ActiveCell.EntireRow.Rows.Interior.ColorIndex = 6
    End Sub

    Però si potrebbe volendo modificare evidenziano però invece che tutta la riga basterebbe anche fino alla cella selezionata
    cioè se seleziono la cella M4

    si evidenzia dalla cella A4 fino alla M4........
    Scusate il ripensamento.

    :111:
    windows 10
    Excel 2016

  21. #21
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona giornata, Nick.
    Il mal funzionamento di DoubleClick, non vorrei fosse da imputare all'utilizzo dell'Evento su MAC.

    Solo per capire dove sorge il problema, consentimi di riproporre:
    Codice: 
     
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Nel File in allegato, ho inserito due Fogli di lavoro:
    - Doppio Click
    e
    - Selezione parziale

    Entrambi, dovrebbero, a questo punto il condizionale è d'obbligo, funzionare con Doppio click.
    Nel Fogio di lavoro:
    - Selezione parziale
    Ho limitato l'Evento al Range A1:M10000; ovviamente questo limite può essere modifificato secondo le reali esigenze.

    Se "DoubleClick", continua a darti problemi, risolviamo in altro modo.


    A disposizione.

    Buon Lavoro e buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  22. #22
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Ciao Giuseppe
    In parte funziona bene Cioè
    il doppio click funziona però evidenzia sempre fino alla colonna M e non và oltre
    magari sarebbe meglio che la parte evidenziata arrivasse fino alla cella SELEZIONATA
    inoltre se si seleziona una cella oltre la colonna M non evidenzia niente

    Scusa se ti faccio ammattire.......
    windows 10
    Excel 2016

  23. #23
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona giornata, Nick.
    Avevo interpretato la Tua richiesta come se l'ultima Colonna da considerare fosse la "M".

    Evidentemente non è così; potresti provare ad eseguire il seguente Codice
    Codice: 
    Option Explicit
    
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Cella As String
            Cella = Cells(Target.Row, Target.Column + 1).Address
    Application.EnableEvents = False
            Cells.Interior.Pattern = xlNone
            Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 6
            Range(Cella).Select
    Application.EnableEvents = True
    End Sub


    A disposizione.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  24. #24
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    si ora funziona bene
    solo una precisazione se è possibile
    invece di spostarsi di una cella dove clicco......
    e possibile che rimanga sulla cella selezionata visto che devo scrivere su quella cella?????
    GRAZIE
    windows 10
    Excel 2016

  25. #25
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Direi proprio di si; l'unico problema potrebbe essere che la Cella selezionata risulterà in variazione, come se Tu, su quella Cella avessi premuto "F2".

    Potresti provare a Togliere l'istruzione:

    e vedere cosa succede.
    Codice: 
    Range(Cella).Select
    e vedere cosa succede.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  26. #26
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    questo codice va inserito in fondo all istruzione??
    windows 10
    Excel 2016

  27. #27
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    No, andrebbe tolto.

    Il Codice potrebbe essere:
    Codice: 
    Option Explicit
    
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Application.EnableEvents = False
            Cells.Interior.Pattern = xlNone
            Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Interior.ColorIndex = 6
    Application.EnableEvents = True
    End Sub
    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  28. I seguenti utenti hanno dato un "Like"


  29. #28
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Ma in fatti il Mio Funziona Anche come Vuoi tu ,Una riga per Volta Il problema è che un Conto e unsare una semplice Funzione per una semplice Applicazione .
    Un conto e usare la stessa funzione per un Database , Sono due Cose Simili , ma molto differenti tra di loro .
    Una Neccessità Semplicemente di un semplice click come vorresti tu.
    L'altro lavora con un campo Ricerca; Tutto qui.
    Ciao da Maurizio

  30. #29
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Adesso funziona con il click dentro la cella......rimane selezionata la stessa

    se poi cambio cella non evidenzia, rimane selezionata ultima evidenziata.......

    Non si potrebbe digli alla funzione però che non deve selezionare niente.....
    ma solo nel caso del doppio click invece di rimanere evidenziata ultima selezione??????

    in poche parole se non ce nessun doppio clik non deve evidenziare niente


    Grazie.............veramente
    windows 10
    Excel 2016

  31. #30
    L'avatar di Fabrizio1975
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    estero
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Evidenziare una intera riga quando seleziono la cella

    altrimenti altra soluzione

    1) Aprire il foglio di Excel che contiene i dati da leggere.

    2) Cliccare con il tasto destro del mouse sulla linguetta del foglio di calcolo (che e' posta nella parte inferiore del foglio stesso e che, se non e' stata rinominata, ha per nome "Foglio1" oppure "Foglio2" oppure "Foglio3" etc...).

    3) Nel menu che si aprira' scegliere la voce "Visualizza codice".

    4) Si aprira' cosi' la finestra Microsoft Visual Basic.

    Nella pagina vuota posta all'interno della finestra digitare il seguente codice:


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = x1None
    With ActiveCell
    .EntireRow.Interior.ColorIndex = 36
    End With
    End Sub


    5) Ora, dal menu File scegliere Chiudi e torna a Microsoft Excel.

    36 è giallo
    35 verde
    ecc

Discussioni Simili

  1. [Risolto] Cancella riga intera in presenza di cella vuota in colonna
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 23/12/16, 09:35
  2. [Risolto] Formattare un'intera riga in base ad una cella
    Di CEPE77 nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 23/11/16, 17:46
  3. Evidenziare intera riga.
    Di stefano75ct nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 04/06/16, 10:25
  4. Evidenziare intera riga.
    Di stefano75ct nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 03/06/16, 18:13
  5. Evidenziare intera colonna
    Di stefano75ct nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 10/05/16, 22:49

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •