Come esaminare le cellule con una macro
Vuoi valutare le celle e determinare quante celle sono riempite in un intervallo e quante no? La figura seguente mostra un esempio:
L'indicatore A1: B7 contiene alcune celle vuote e alcune celle piene. Se vuoi valutarlo in una macro, puoi utilizzare il seguente codice di programma:
Conteggi secondariFilledCells ()
Dim numero quanto più a lungo
Dim Numero2 Finché
Area oscurata come intervallo
Dim a As String
Imposta area = Selezione
Numero = Application.CountA (area)
Count2 = area.Cells.Count - numero
a = MsgBox ("Nella selezione corrente sono" _
& Numero & "celle riempite e" & numero2 _
& "Celle vuote.", VbOKOnly, "valuta celle")
Fine sottotitolo
La macro imposta la funzione ContaA per contare il numero di celle non vuote in un intervallo. Il risultato salva la variabile numero. Per determinare il numero di celle riempite, questo valore viene sottratto dal numero di celle totali esaminate. La macro salva questo valore in Numero 2.
Dopo l'avvio, il codice del programma determina il numero di celle piene e vuote nella marcatura attiva e visualizza il risultato in una finestra:
Se si desidera elaborare un intervallo di propria scelta anziché la selezione corrente, adattare l'assegnazione del valore alla variabile la zona a. Viene utilizzato nella macro con la proprietà Selezione collegato. Se invece vuoi definire tu stesso un intervallo, sostituisci il set-Assegnazione alla variabile la zona da un'espressione della forma seguente:
Imposta intervallo = Intervallo ("A1: B5")
La specificazione dell'intervallo si riferisce sempre al foglio di lavoro attivo. Se vuoi affrontare un altro foglio di lavoro, metti davanti a GammaComanda i riferimenti ai metodi cartelle di lavoro e Fogli fisso.
