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 mallNä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.