Kā paslēpt līnijas, izmantojot VBA, ja šūnai ir noteikts saturs
Vai vēlaties automātiski paslēpt visas rindas ar noteiktu saturu, izmantojot makro? Iedomājieties, ka vēlaties slēpt visas rindas, ja teksts "slēpt" parādās jebkurā atbilstošās rindas šūnā. Šī var būt noderīga lietojumprogramma datu tīrīšanai. Apskatiet sākotnējo situāciju šajā tabulā:
Šajā tabulā mēs vēlamies paslēpt visas rindas, kurās ir šūnas, kurās ir nulle. Izmantojiet šādu makro:
Slēpt noteiktas rindas ()
Dim šūna kā diapazons
Par katru šūnu ActiveSheet.UsedRange
Ja šūna.vērtība = 0 un rindas (šūna. Rinda). Slēpts = nepatiess _
Tad Rindas (šūna. Rinda). Slēpts = Patiess
Nākamā šūna
Beigt apakš
Ja sākat makro ar, dažas līnijas tiks pilnībā paslēptas, kā parādīts nākamajā attēlā
Katrā no šīm rindām kādā slejā parādās teksts "paslēpt". Ja šī satura vietā vēlaties pārbaudīt citu kritēriju, koriģējiet atbilstošo makro salīdzinājumu.
Lai atkal parādītu visas šūnas, nospiediet taustiņu kombināciju CTRL A un pēc tam atlasiet funkciju START - FORMAT - FADE OUT & FADE IN - SHOW LINES (Excel 2007 un Excel 2010) vai FORMAT LINE - FADE IN (Excel līdz 2003. gada versijai). Kā alternatīvu varat izmantot šādu makro:
Rādīt visu
Šūnas. Rindas. Slēptās = nepatiesas
Beigt apakš
Lai ievadītu vienu no makro, programmā Excel nospiediet taustiņu kombināciju ALT F11. Tas izsauc VBA redaktoru. Izmantojiet komandu INSERT - MODULE, lai ievietotu tukšu moduļa lapu. Lai palaistu kādu no makro, programmā Excel nospiediet taustiņu kombināciju ALT F8.
