Cum să ascundeți liniile prin VBA dacă o celulă are un anumit conținut
Doriți să ascundeți automat toate liniile cu un anumit conținut folosind o macro? Imaginați-vă că doriți să ascundeți toate liniile dacă textul „ascunde” apare în orice celulă din linia corespunzătoare. Aceasta poate fi o aplicație utilă pentru curățarea datelor. Aruncați o privire asupra situației inițiale din următorul tabel:
În acest tabel, vrem să ascundem toate rândurile care conțin celule care conțin un zero. Utilizați următoarea macro:
Ascundeți liniile specifice ()
Dim Cell As Range
Pentru fiecare celulă din ActiveSheet.UsedRange
If Cell.Value = 0 And Rows (Cell.Row) .Hidden = False _
Apoi Rows (cell.Row) .Hidden = True
Următoarea celulă
Sfârșitul Sub
Dacă porniți macro-ul cu, unele linii vor fi complet ascunse, așa cum se arată în figura următoare
În fiecare dintre aceste rânduri, textul „ascunde” apare într-o coloană. Dacă doriți să verificați un alt criteriu în locul acestui conținut, ajustați comparația corespunzătoare în macro.
Pentru a afișa din nou toate celulele, apăsați combinația de taste CTRL A și apoi selectați funcția START - FORMAT - FADE OUT & FADE IN - SHOW LINES (Excel 2007 și Excel 2010) sau FORMAT LINE - FADE IN (Excel până la versiunea 2003). Alternativ, puteți utiliza următoarea macro pentru a decolora:
Afișați sub toate
Cells.Rows.Hidden = False
Sfârșitul Sub
Pentru a introduce una dintre macrocomenzi, apăsați combinația de taste ALT F11 în Excel. Aceasta cheamă editorul VBA. Utilizați comanda INSERT - MODULE pentru a insera o foaie de modul goală. Pentru a porni una dintre macrocomenzi, apăsați combinația de taste ALT F8 în Excel.