Saltare le righe nascoste in una macro (Microsoft Excel)
Quando si utilizza un foglio di lavoro, non è raro nascondere le righe che contengono dati che non si desidera visualizzare al momento corrente. Se hai scritto una macro che elabora i dati nel foglio di lavoro, potresti esserti chiesto come saltare e non elaborare le righe che hai contrassegnato come nascoste.
Il modo in cui lo fai è controllare la proprietà Hidden di ogni riga.
Se la proprietà è True, la riga è nascosta; se False, la riga è visibile.
Come esempio di come funziona, supponi di avere un foglio di lavoro che usi per tenere traccia dei client. Alcuni di questi client sono considerati attivi e altri inattivi. Per contrassegnare un client come inattivo, nascondi la riga contenente il client. Ad un certo punto, vuoi numerare i client attivi e vuoi farlo usando una macro. La seguente macro farà il trucco per te:
Sub NumberClients() Dim c As Range Dim j As Integer If Selection.Columns.Count > 1 Then MsgBox "Only select the cells you want numbered" Exit Sub End If j = 0 For Each c In Selection If Not c.Rows.Hidden Then j = j + 1 c.Value = j Else c.Clear End If Next c End Sub
Per utilizzare la macro è sufficiente selezionare le celle in cui verrà eseguita la numerazione. La macro verifica, prima di tutto, di aver selezionato solo celle in una singola colonna. Quindi, passa attraverso ogni cella nell’intervallo selezionato. Se la riga contenente la cella non è nascosta, il contatore (j) viene incrementato e memorizzato nella cella. Se la riga contenente la cella è nascosta, il contenuto della cella viene cancellato. La chiave di questa macro è la struttura If … End If che verifica il valore dell’attributo Hidden.
_Nota: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.
ExcelTips è la tua fonte di formazione economica su Microsoft Excel.
Questo suggerimento (12552) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per l’interfaccia del menu precedente di Excel qui: