Kuidas peita ridu VBA kaudu, kui lahtril on teatud sisu
Kas soovite makro abil kõik teatud sisuga read automaatselt peita? Kujutage ette, et soovite peita kõik read, kui tekst "peida" ilmub vastava rea suvalisse lahtrisse. See võib olla kasulik rakendus andmete puhastamiseks. Vaadake esialgset olukorda järgmises tabelis:
Selles tabelis tahame peita kõik read, mis sisaldavad lahtreid, mis sisaldavad nulli. Kasutage järgmist makro:
Peida konkreetsed read ()
Dim Cell kui vahemik
Iga lahtri kohta ActiveSheet.UsedRange
Kui Lahtri.Väärtus = 0 Ja Ridad (Lahtri rida). Peidetud = Vale _
Siis read (cell.Row). Varjatud = tõsi
Järgmine lahter
End Sub
Kui alustate makroga, on mõned read täielikult peidetud, nagu on näidatud järgmisel joonisel
Igas reas ilmub mõnes veerus tekst "peida". Kui soovite selle sisu asemel kontrollida mõnda muud kriteeriumi, kohandage vastavat võrdlust makros.
Kõigi lahtrite uuesti kuvamiseks vajutage klahvikombinatsiooni CTRL A ja seejärel valige funktsioon START - FORMAT - FADE OUT & FADE IN - SHOW LINES (Excel 2007 ja Excel 2010) või FORMAT LINE - FADE IN (Excel kuni versioonini 2003). Teise võimalusena saate hägustumiseks kasutada järgmist makro.
Kuva sub kõik
Cells.Rows.Hidden = Vale
End Sub
Makrode sisestamiseks vajutage Excelis klahvikombinatsiooni ALT F11. See avab VBA redaktori. Kasutage tühja moodulilehe sisestamiseks käsku INSERT - MODULE. Ühe makro käivitamiseks vajutage Excelis klahvikombinatsiooni ALT F8.
