Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Buongiorno
lo so, argomento già trattato. Ciò che non trovo nelle diverse discussioni é come salvare il codice VBA:
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 19
Target.Interior.ColorIndex = xlNone
End Sub
in modo da poterlo poi utilizzare per tutti i fogli Excel che si aprono, per esempio inserendolo nella barra multifunzione e quindi attivare/disattivare il codice con un pulsante.
Grazie.
[corretta l'impaginazione]
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Mi fa piacere che si tratti della soluzione desiderata.
Ti chiederei, a questo punto, di indicare l'ultima mia risposta come risolutiva.
In questo modo se altri utenti, in futuro, dovessero avere la stessa esigenza troverebbero la soluzione evidenziata.
Buongiorno community e buongiorno casanmamer.
Il codice funziona e funziona su tutti i file aperti anche se il file con il codice é chiuso quindi, ottimo!
ora però torniamo al perchè di questa mia richiesta.
Nella barra multifunzione ho creato un gruppo personalizzato MIO all'interno del quale volevo appunto aggiungere un pulsante che accendesse o spegnesse la funzione Evidenza_Riga.
Cmq, grazie!!!
La routine nel modulo del file "Evidenza_Riga.xlsm" non ti serve.
Basta il codice inserito nel personal (ma devi caricare la variabile "App" che nello specifico viene caricata ogni volta che la cartella personal viene aperta. Cosa che accade in automatico quando è presente e si apre Excel.
Io nel mio personal ho inserito il codice
E dopo aver eseguito la sub Workbook_Open tramite F5 nel foglio Cartel1 (che non è nemmeno salvato) ottengo questo:
Ho aggiunto anche un foglio e dopo aver selezionato una cella viene impostato lo sfondo all'intera riga tranne che alla cella selezionata.
fatto, nessun risultato.
Il codice va inserito nel "modulo di classe" della cartella di lavoro "Questa_cartella_di_lavoro" nel progetto VBA di PERSONAL.XLSB.
Clicca sul + della cartella Microsoft Excel Oggetti e clicca su Questa_cartella_di_lavoro
Edit: naturalmente dopo aver inserito il codice digita F5 all'interno dell'evento Workbook_Open perché venga memorizzata la variabile App che punta all'applicazione Excel. Altrimenti salva la cartella Personal, chiudi excel e riapri excel.