Šajā rakstā mēs iemācīsimies iegūt ierakstu bez kritērijiem, izmantojot Microsoft Excel VBA.
Ņemsim piemēru, lai saprastu, kā mēs varam ievietot filtru, atlasīt kritērijus un pēc tam veikt nepieciešamās darbības:-
Mums ir dati diapazonā A: G kolonnas, kurās A slejā ir nosaukums, b slejā ir adrese, C slejā ir pilsēta, D kolonnas apgabals, E sleja valsts, F slejas tālruņa numurs un G slejā ir kritēriji.
Mēs vēlamies uzrakstīt makro, lai ievietotu filtru, un pēc tam filtrēt datus atbilstoši slejai G nesatur datus un pēc tam izdzēst opciju Nesatur datus. Pēc tam noņemiet filtru un parādiet visus datus.
Lai ierakstu iegūtu ar kritērijiem Nav, veiciet tālāk norādītās darbības.
- Atveriet VBA lapu, nospiediet taustiņu Alt+F11
- Ievietojiet moduli
- Pēc tam atkal dodieties uz ievietošanas izvēlni un noklikšķiniet uz procedūras, kur jūs saņemsiet procedūru, ja nezināt, kā sākt makro
- Uzrakstiet zemāk minēto kodu:
Sub Delete_NotEligible () ActiveSheet.Range ("$ A $ 1: $ G $ 15"). Automātiskās filtrēšanas lauks: = 7, Kritēriji 1: = "" Rindas ("2:12"). Atlasiet Atlasīt. Dzēst maiņu: = xlUp diapazons (" B1 "). Atlasiet Selection.AutoFilter End Sub
- Lai palaistu kodu, nospiediet tastatūras taustiņu F5.
- Dati tiks filtrēti un pēc tam atbilstoši noteiktajiem kritērijiem filtrētie dati tiks dzēsti.
Koda skaidrojums:
- Mēs esam definējuši galvenes datu diapazonu, lai filtrā iekļautu atbilstības slejā esošo šūnu, kas nav tukšas, kritērijus
- Nosakiet kodu, lai atlasītu rindu, un pēc tam izdzēsīs visu rindu
- Beigās atveriet filtru
Tādā veidā mēs varam ievietot filtru, pamatojoties uz konkrētiem kritērijiem, un pēc tam izdzēst datus.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē