In questo articolo impareremo come scrivere il codice VBA per controllare il contenuto delle celle, le celle stesse e le lettere.
Una proprietà è un attributo dell'oggetto che definisce una delle caratteristiche dell'oggetto, ad esempio la dimensione, il colore o la posizione sullo schermo, oppure un aspetto del suo comportamento, ad esempio se è abilitato o visibile sullo schermo.
Per modificare le caratteristiche di un oggetto è necessario modificare il valore delle sue proprietà.
Per prima cosa apri l'editor, aggiungi un modulo, copia lì questa macro:
Sub Properties() 'moonexcel.com.ua Range ("A1") End Sub
Ci siamo rivolti alla cella A1. Ora proviamo a controllare questa cella. Per vedere cosa possiamo fare, aggiungiamo un punto dopo Range ("A1").
Seleziona Value e premi Tab. Otterremo il seguente codice:
Sub Properties() 'moonexcel.com.ua Range ("A1").Value End Sub
Il valore Value visualizza il contenuto della cella.
Ora scriviamo il valore 35 nella cella A1:
Sub properties() 'moonexcel.com.ua Range("A1").Value = 35 'Il valore della cella A1 è 35 End Sub
Ora proviamo a scrivere il testo nella cella (quando si assegna un valore di testo, deve essere racchiuso tra virgolette doppie ""):
Sub properties() 'moonexcel.com.ua Range("A1").Value = "C'è del testo qui" End Sub
Tieni presente che la macro mostrerà i valori nel foglio che hai aperto l'ultima volta. Pertanto, per poter controllare il contenuto di una cella su qualsiasi foglio del libro, dovremo scrivere il percorso completo della cella, ovvero aggiungere il nome del foglio all'inizio del codice, ad esempio:
Opzione 1. Applichiamo con il nome della lettera - Sheets("Foglio2").
Sub properties() 'moonexcel.com.ua Sheets("Sheet2").Range("A1").Value = "C'è del testo qui" 'Significa: apri il foglio 2, seleziona la cella A1 e scrivi il testo nel suo valore End Sub
Opzione 2. Applichiamo non con il nome della lettera, ma con il suo numero di serie - Sheets(2).
Sub properties() 'moonexcel.com.ua Sheets(2).Range("A1").Value = "C'è del testo qui" End Sub
Allo stesso modo, se vogliamo fare riferimento ad una cella di un'altra cartella di lavoro, dobbiamo scrivere il nome della cartella di lavoro all'inizio del codice:
Sub properties() 'moonexcel.com.ua Workbooks("Book2.xlsx").Sheets("Sheet2").Range("A1").Value = "C'è del testo qui" End Sub
Anche se nei nostri esempi specifichiamo il parametro Value, in realtà può essere omesso poiché è quello predefinito. Cioè, queste due righe di codice saranno equivalenti:
Sub properties() 'moonexcel.com.ua Range("A1").Value = 35 Range("A1") = 35 End Sub
Cancelliamo dalla cella A1 il valore 35, che abbiamo registrato all'inizio della lezione:
Sub properties() 'moonexcel.com.ua Range("A1").Clear 'Significa: seleziona la cella A1 e cancellala End Sub
Se selezioni Font, verrà visualizzato un elenco di proprietà che puoi applicare alla cella:
Impostiamo la cella su 35 e riduciamo la dimensione del carattere a 8:
Sub properties() 'moonexcel.com.ua Range("A1") = 35 Range("A1").Font.Size = 8 End Sub
Sub properties() 'moonexcel.com.ua Range("A1").Font.Bold = True End Sub
Rimuovere le secrezioni oleose:
Sub properties() 'moonexcel.com.ua Range("A1").Font.Bold = False End Sub
Sub properties() 'moonexcel.com.ua Range("A1").Font.Italic = True End Sub
Sub properties() 'moonexcel.com.ua Range("A1").Font.Underline = True End Sub
Sub properties() 'moonexcel.com.ua Range("A1").Font.Name = "Arial" End Sub
Sub properties() 'moonexcel.com.ua Range("A1").Interior.ColorIndex = 6 End Sub