Kaip paslėpti eilutes per VBA, jei langelis turi tam tikrą turinį
Ar norėtumėte automatiškai paslėpti visas eilutes su tam tikru turiniu naudodami makrokomandą? Įsivaizduokite, kad norite paslėpti visas eilutes, jei tekstas „paslėpti“ pasirodo bet kurioje atitinkamos eilutės ląstelėje. Tai gali būti naudinga programa duomenims išvalyti. Pažvelkite į pradinę situaciją šioje lentelėje:
Šioje lentelėje norime paslėpti visas eilutes, kuriose yra langelių, kuriuose yra nulis. Naudokite šią makrokomandą:
Slėpti konkrečias eilutes ()
„Dim Cell“ kaip diapazonas
Kiekvienai langai ActiveSheet.UsedRange
Jei langelis. Vertė = 0 ir eilutės (langelis. Eilutė). Paslėptas = klaidingas _
Tada eilutės (ląstelė. Eilutė). Paslėptas = tiesa
Kitas langelis
Pabaiga Sub
Jei pradėsite makrokomandą, kai kurios eilutės bus visiškai paslėptos, kaip parodyta toliau pateiktame paveikslėlyje
Kiekvienoje iš šių eilučių kai kuriuose stulpeliuose rodomas tekstas „paslėpti“. Jei vietoj šio turinio norite patikrinti kitą kriterijų, koreguokite atitinkamą makrokomandos palyginimą.
Norėdami dar kartą parodyti visus langelius, paspauskite klavišų kombinaciją CTRL A, tada pasirinkite funkciją START - FORMAT - FADE OUT & FADE IN - SHOW LINES („Excel 2007“ ir „Excel 2010“) arba „FORMAT LINE - FADE IN“ („Excel“ iki 2003 m. Versijos). Arba galite naudoti šią makrokomandą, kad išnyktumėte:
Rodyti viską
Ląstelės. Eilutės. Paslėptas = klaidinga
Pabaiga Sub
Norėdami įvesti vieną iš makrokomandų, „Excel“ paspauskite klavišų kombinaciją ALT F11. Tai iškviečia VBA redaktorių. Norėdami įterpti tuščią modulio lapą, naudokite komandą INSERT - MODULE. Norėdami paleisti vieną iš makrokomandų, „Excel“ paspauskite klavišų kombinaciją ALT F8.
