Excel VBA peida veerud

Veergude peitmine ja peitmine excelis on kõige lihtsam ülesanne. Ja selle protsessi automatiseerimist on isegi lihtne teha. VBA peiteveerg ei vaja kirjutamiseks tohutut koodi. Kuid enne, kui hakkame VBA-s veeru peitmise koodi kirjutama, peame mõistma mõnda asja ja nõuet. Peame teadma veeru nime või järjestust, mida tahame peita, ja lahtri ulatust, mis on valikuline asi.

Kuidas peita veerge Exceli VBA-s?

Õpime mõne näite abil Excelis veergu VBA-s peitma.

Selle VBA peitmise veergude Exceli malli saate alla laadida siit - VBA peida veergude Exceli mall

Exceli VBA peiteveerg - näide # 1

Selleks vajame andmeid mitme täidetud veeru kujul. Siin on meil andmekogum, kus oleme juhuslikult võtnud numbrid vahemikus 1 kuni 40 vastavalt erinevates 4 veerus A, B, C ja D ning kõik veerud on värvitud eri värvides, lihtsalt selleks, et veebilehel paremini silma paista.

Oletame, et kui me tahame varjata veergu A ja B, siis peame kõigepealt valima mõlemad veerud, nagu allpool näidatud.

Nüüd paremklõpsake ja valige suvand Peida, nagu allpool näidatud.

Pärast seda peidetakse valitud veerud. C ja D veergu nägime ainult andmetega.

Nüüd, kui sarnast tööd saab teha ka VBA makro. Selleks oleks meil vaja moodulit. Nii et minge VBA-le ja valige menüüst Lisamine moodul, nagu allpool näidatud.

Kirjutage äsja avatud moodulisse VBA peiteveeru alamkategooria või võime valida mõne muu nime, nagu on näidatud allpool.

Kood:

 Sub Peida_veerg () Lõpp Sub

Esiteks valige veerg / veerud, mida peame peita. Me peidame siin C-kolonni.

Kood:

 Sub Hide_Cumnumn () Range ("C: C") End Sub

Kuna tahame kogu C veergu peita, valige funktsioon EntireColumn, millele järgneb Varjatud, nagu allpool näidatud.

Kood:

 Sub Hide_Cumn () vahemik ("C: C"). EntireColumn.Peidetud lõpp

Nüüd, et see juhtuks, saame valida vastuse TÕES või VABA. Kui valime siis TÕESEKS peidetud, siis see toimiks peitmisfunktsioonina või kui valiksime VABA, siis toimiks see varjamise funktsioonina. Kuna soovime valitud veerge C vahemikust peita, valiksime siin TRUE.

Kood:

 Sub Hide_Column () vahemik ("C: C"). EntireColumn.Hidden = True End Sub

Nüüd kompileerige kood ja käivitage see, klõpsates VBA menüüriba all asuvat nuppu Esita. Näeme, veerg C on nüüd peidetud, nüüd kuvatakse ainult veerud A, B ja D.

Kui tahame peita rohkem kui ühte veergu. Seejärel peame vahemikus valima need veerud, nagu allpool näidatud. Valime siin veerud B ja C.

Kood:

 Sub Hide_Column () vahemik ("B: C"). EntireColumn.Hidden = True End Sub

Nüüd jälle käivitage kood.

Siin näeme, veerud B ja C on nüüd peidetud. Ja ainult veerud A ja D on nähtavad.

Exceli VBA peiteveerg - näide # 2

Selle asemel, et valida veerge nime nimetades, võime peita ka kõik veerud nende järjestuse järgi. Seda protsessi ei eelistata sageli, kuna saame hõlpsalt teada veeru nime, milles tähestikulises asukohas veerg asub. See protsess sarnaneb koodiga, mida nägime näites 1, kus veeru nimeks valisime B ja B: C, valime järjenumbri, milles veerg asub. Kui oletame, et tahame veeru A peita näite-1 koodi kasutades, peame lihtsalt vahemiku abil valimise asemel paigutama järjenumbri.

Kood:

 Sub Peida_veerg2 () veerud (1) .EntireColumn.Hidden = True End Sub

Nüüd käivitage see kood, vajutades klahvi F5 või klõpsates nuppu Esita. Näeme, et esimeses positsioonis olev veerg A on nüüd peidetud.

Exceli VBA peiteveerg - näide nr 3

Veeru peitmiseks on VBA-koodi abil veel üks viis. See on sama lihtne kui kood, mida nägime näites 1. Selleks kasutame taas samu andmeid, mida kasutasime ülaltoodud näites. Kirjutage alamkategooria ükskõik millisesse nime või täidetava funktsiooni nime.

Kood:

 Alam Peida_veerg3 () Lõpp Alam

Valige mis tahes veergude vahemik, mida peame peita. Valime siin sama C veeru.

Kood:

 Sub Hide_Cumnumn3 () Range ("C: C") End Sub

Vajaliku veeru valiku aktiveerimiseks valige funktsioon Veerud, nagu allpool näidatud.

Kood:

 Sub Hide_Cumnumn3 () Range ("C: C"). Veerud End Sub

Seejärel kasutage peidetud ja peitmise funktsiooni aktiveerimiseks VBA-s varjatud käsku.

Kood:

 Sub Hide_Cumnumn3 () Range ("C: C"). Veerud.Peidetud lõpp Sub

Ja valige valitud veeru peitmiseks TRUE ja VEEL valitud peidetud veeru peitmiseks.

Kood:

 Sub Hide_Cumnumn3 () Range ("C: C"). Columns.Hidden = True End Sub

C veerg, mis oli meie vahemiku veerg, on nüüd peidetud.

Exceli VBA peiteveerg - näide # 4

Veergude peitmise automatiseerimiseks VBA-s on veel üks lihtsam viis. Selle jaoks kirjutage alamkategooria uuesti VBA peida veergude nimele.

Kood:

 Alam Peida_veerg4 () Lõpp Alam

Valige otse veerg, mida peame peita. Valime jällegi sama C veeru.

Kood:

 Sub Peida_veerg4 () veerud ("C") Lõpp alam

Ja peitmisprotsessi aktiveerimiseks valige käsk Varjatud väärtuseks TRUE. Või valige peitmisprotsessi aktiveerimiseks FALSE.

Kood:

 Sub Hide_Column4 () veerud ("C"). Varjatud = õige lõpp

Näeme, veerg C on jälle peidetud.

Plussi ja miinused Exceli VBA peiteveerus

  • VBA peitmise kolonni protsessi on väga lihtne rakendada.
  • Saame peita igat tüüpi veeruvahemikku, olenemata sellest, kas see on järjestikku või juhuslikult.
  • Kuna VBA peiteveeru on hõlpsasti rakendatav, kuid käsitsi, on see sama hõlbus kui VBA-koodi abil. Seega ei aita see kokkuhoiule palju kaasa. Äärmiselt soovitatav ainult siis, kui tegeleme tohutu koodikirjutamisega.

Asjad, mida meeles pidada

  • Peidame ja peidame veeru mõne VBA-koodi abil. Peitmise peitmiseks kasutage funktsiooni TRUE asemel VEEL.
  • Veeru järjekorranumber toimib ka veeru peitmiseks, välja arvatud tähestikulises järjekorras nimetatud veeru nime valimine.

Soovitatavad artiklid

See on VBA peitmisveergude juhend. Siin arutleme, kuidas peita veerge Excelis, kasutades VBA-koodi, koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. Töölehed Excel VBA-s
  2. Veergude rühmitamine Excelis (näited)
  3. Kuidas luua kasutajavormi Exceli VBA-s?
  4. Kuidas veerge Excelis teisaldada?

Kategooria:

VBA