Di seguito vedremo un programma in Excel VBA Quello evidenzia la riga e la colonna della cella attiva (cella selezionata). Questo programma stupirà e impressionerà il tuo capo.
Situazione:
Ogni volta che cambiamo la cella attiva su Sheet1, è necessario eseguire una macro. È possibile ottenere ciò creando un evento SelectionChange del foglio di lavoro.
1. Aprire l'editor di Visual Basic.
2. Fare doppio clic su Foglio1 (Foglio1) in Esplora progetti.
3. Scegli Foglio di lavoro dall'elenco a discesa a sinistra. Scegli SelectionChange dall'elenco a discesa a destra.
Aggiungi le seguenti righe di codice all'evento di selezione del foglio di lavoro:
4. Dichiariamo quattro variabili di tipo Integer. Uno denominato rowNumberValue, uno denominato columnNumberValue, uno denominato i e uno denominato j.
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer
5. Innanzitutto, aggiungiamo la linea che cambia il colore di sfondo di tutte le celle in "Nessun riempimento".
Cells.Interior.ColorIndex = 0
6. Inizializziamo la variabile rowNumberValue con il numero di riga della Active Cell e la variabile columnNumberValue con il numero di colonna della Active Cell.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Evidenziamo la colonna blu. Cioè: tutte le celle con numero di riga minore o uguale a rowNumberValue e numero di colonna uguale a columnNumberValue
Per i = 1 a rowNumberValue
Cells(i, columnNumberValue).Interior.ColorIndex = 37
Avanti io
Spiegazione: per questo esempio (vedi immagine sopra), rowNumberValue è uguale a 12 e columnNumberValue è uguale a 8. Le righe di codice tra For e Next verranno eseguite dodici volte. Per i = 1, Excel VBA colora la cella all'intersezione tra riga 1 e colonna 8. Per i = 2, Excel VBA colora la cella all'intersezione tra riga 2 e colonna 8, ecc.
Nota: invece del numero ColorIndex 37 (blu), puoi utilizzare qualsiasi numero ColorIndex.
8. In modo simile, evidenziamo la riga blu. Cioè: tutte le celle con numero di riga uguale a rowNumberValue e numero di colonna minore o uguale a columnNumberValue.
Per j = 1 a colonnaNumberValue
Cells(rowNumberValue, j).Interior.ColorIndex = 37
Avanti j
9. Ora è il momento di testare il programma. Scarica il file Excel e guarda come vengono evidenziate la riga e la colonna della cella attiva ogni volta che cambi la cella attiva.
