VBA peida veerud | Kuidas VBA-koodi abil veerge peita?

Exceli VBA peida veerud

Varjamine on lihtne asi, kuid peate mõistma siin mõistet. Veeru peitmiseks VBA abil peame määrama, millise veeru peame peitma. Peidetava veeru määramiseks peame kasutama objekti RANGE.

Vahemik ("A: A")

Siis peame kasutama omadust „Kogu veerg“.

Vahemik ("A: A"). Kogu veerg

Kogu veeru atribuudis peame kasutama atribuuti „Peidetud”.

Vahemik ("A: A"). EntireColumn.Hidden

Seejärel peame lõpuks seadma varjatud omaduse väärtusele TÕENE.

Vahemik ("A: A"). EntireColumn.Hidden = TRUE 

See peidab veeru A

Kuidas VBA-s veerge peita?

Saame veerge peita mitmel viisil. Veeru saab peita objekti Range abil, kasutades vara CELLS. Kasutatava meetodi põhjal peame oma VBA koodi koostama.

Selle VBA Peida veergude Exceli mall saate alla laadida siit - VBA Peida veergude Exceli mall

Näide # 1 - peida Range Object abil

Kui soovite mõnda konkreetset veergu peita, määrake veerg RANGE objekti sees. Vaadake allpool olevaid andmeid.

Nüüd peidame kogu veeru A järgmise koodi abil.

Kood:

 Sub Range_Hide () Range ("A: A"). EntireColumn.Hidden = True End Sub 

Nii et koodi käivitamisel saame järgmise tulemuse.

Näide # 2 - peida vara Veerud abil

Kui soovite veeru peita atribuudi Veerud abil, siis on kood allpool teie jaoks.

Kood:

 Alamvahemik_Peida () veerud ("B"). Varjatud = True End Sub 

See peidab veeru B. Siin peate kindlasti mõtlema, kus on atribuut Kogu veerg. Atribuudi Veerud kasutamisel pole atribuudi Kogu veerg kasutamiseks vajalik.

Me võime endiselt kasutada atribuuti Terve veerg, kuid pole tingimata vajalik. Ja sama kood on toodud allpool.

Kood:

 Alamveerud_Peida () veerud ("B"). EntireColumn.Hidden = Tõeline lõpu alamv 

See peaks ka hästi töötama.

Tähestikulise viite asemel võime kasutada ka veeru numbrit. Ja sama kood on toodud allpool.

Kood:

 Alamveerud_Peida () Veerud (4) .EntireColumn.Hidden = Tõeline lõpu alam 

See peidab veeru D

Näide # 3 - peida mitu veergu

Saame peita ka mitu veergu korraga. Selleks peame mainima esimest ja viimast veergu, nii et ka veeru vahele jääks peidus. Näites nr 1 samade andmete jaoks kasutage mitme veeru peitmiseks järgmist koodi.

Kood:

 Alamveerud_Peida () Vahemik ("A: C"). EntireColumn.Hidden = True End Sub 

See peidab veerud A kuni C.

Exceli VBA mitme veeru peitmiseks võime kasutada ka järgmist koodi.

Kood:

 Sub Multi_Columns_Hide () veerud ("A: C"). EntireColumn.Hidden = True End Sub 

Ülaltoodud meetodid peidavad esimesed kolm veergu, st A, B ja C.

Näide # 4 - peida ühe lahtriga veerud

Samuti võime veeru peita ühe lahtri viite põhjal. Veeru peitmiseks pole meil vaja anda täielikku veeruviidet. Vaid ühe lahtri viitega peaksime saama veeru peita.

Kood:

 Sub Single_Hide () vahemik ("A5"). EntireColumn.Hidden = True End alam 

See peidab kogu veeru A.

Näide # 5 - peida kõik alternatiivsed veerud

Oletame, et teil on andmeid, mis sarnanevad alloleva pildiga.

Peame varjama kõik alternatiivsed veerud, mis on tühjad. Selle juhtumiseks peame kasutama tsükleid, allpool kood teeb selle töö meie eest.

Kood:

 Sub AlternativeColumn_Hide () Dim k täisarvuna k = 1 kuni 7 lahtri jaoks (1, k + 1). IntireColumn.Hidden = True k = k + 1 Järgmine k End Sub 

See peidab kõik asendusveerud.

Näide # 6 - peida iga tühi veerg

Eelmises näites oli iga teine ​​alternatiivne veerg tühi, mida oleme hõlpsasti peitnud. Kuid vaadake allolevaid andmeid.

Siin pole tühjade veergude muster standardne. Nendel juhtudel peidab kood allpool tühjad veerud, pole oluline, milline muster on.

Kood:

 Alamveerg_Peida1 () Mõõt k k täisarvuna väärtusele k = 1 kuni 11, kui lahtrid (1, k). Väärtus = "" Siis veerud (k). Varjatud = Tõeline lõpp, kui järgmine k lõpp alam 

Koodi käivitamisel saate tulemuse järgmiselt.

Näide # 7 - peida veerud lahtri väärtuse põhjal

Nüüd näeme, kuidas veergu lahtri väärtuse põhjal peita. Näite saamiseks vaadake allpool olevaid andmeid.

Siin tahan peita kõik veerud, kui pealkiri on „Ei”. Allpool kood teeb seda minu jaoks.

Kood:

 Alamveerg_Peida_rakk_hind () Mõõt k k täisarvuna väärtusele k = 1 kuni 7, kui lahtrid (1, k). Väärtus = "Ei", siis veerud (k). Varjatud = Tõeline lõpp, kui järgmine k lõpp alam 

Koodi käivitamisel saate tulemuse järgmiselt.


$config[zx-auto] not found$config[zx-overlay] not found