VBA Piilota sarakkeet | Kuinka piilottaa sarakkeet VBA-koodilla?

Excel VBA Piilota sarakkeet

Piilotus on yksinkertainen asia, mutta sinun on ymmärrettävä käsite täällä. Piilota sarake VBA: n avulla on määritettävä, mikä sarake on piilotettava. Piilotettavan sarakkeen määrittämiseksi meidän on käytettävä RANGE-objektia.

Alue ("A: A")

Sitten meidän on käytettävä ominaisuutta "Koko sarake".

Alue ("A: A"). Koko sarake

Meidän on käytettävä koko sarakeominaisuudessa piilotettua ominaisuutta.

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

Sitten meidän on vihdoin asetettava Piilotettu-ominaisuudeksi TOSI.

Alue ("A: A"). EntireColumn.Hidden = TOSI 

Tämä piilottaa sarakkeen A.

Kuinka piilottaa sarakkeet VBA: ssa?

Voimme piilottaa sarakkeet useilla tavoilla. Voimme piilottaa sarakkeen käyttämällä Range-objektia käyttämällä CELLS-ominaisuutta. Käytetyn menetelmän perusteella meidän on rakennettava VBA-koodimme.

Voit ladata tämän VBA Hide Columns Excel -mallin täältä - VBA Hide Columns Excel -malli

Esimerkki # 1 - Piilota Range Object -toiminnon avulla

Jos haluat piilottaa tietyn sarakkeen, määritä sarake RANGE-objektin sisällä. Katso alla olevat tiedot.

Piilotamme nyt koko sarakkeen A seuraavalla koodilla.

Koodi:

 Alialue_Piilota () Alue ("A: A"). EntireColumn.Hidden = Todellinen loppuosa 

Joten kun suoritamme koodin, saamme seuraavan tuloksen.

Esimerkki # 2 - Piilota käyttämällä Sarakkeet-ominaisuutta

Jos haluat piilottaa sarakkeen Sarakkeet-ominaisuudella, alla oleva koodi on sinulle.

Koodi:

 Sub Range_Hide () -sarakkeet ("B"). Hidden = True End Sub 

Tämä piilottaa sarakkeen B. Tässä sinun täytyy ajatella missä Koko sarake -ominaisuus on. Kun käytät Sarakkeet-ominaisuutta, Koko sarake -ominaisuutta ei tarvitse käyttää.

Voimme silti käyttää Koko sarake -ominaisuutta, mutta sitä ei välttämättä vaadita. Ja saman koodi on annettu alla.

Koodi:

 Alisarakkeet_Piilota () Sarakkeet ("B"). EntireColumn.Hidden = Todellinen loppuosa 

Tämän pitäisi myös toimia hyvin.

Voimme käyttää myös sarakkeen numeroa aakkosellisen viitteen sijaan. Ja saman koodi on annettu alla.

Koodi:

 Alisarakkeet_Piilota () Sarakkeet (4) .EntireColumn.Hidden = Todellinen loppuosa 

Tämä piilottaa sarakkeen D.

Esimerkki # 3 - Piilota useita sarakkeita

Voimme piilottaa myös useita sarakkeita kerrallaan. Tätä varten meidän on mainittava ensimmäinen ja viimeinen sarake, jotta sarakkeen välissä myös piilotetaan. Käytä samoja tietoja kuin esimerkki 1 seuraavalla koodilla piilottaaksesi useita sarakkeita.

Koodi:

 Alisarakkeet_Piilota () -alue ("A: C"). EntireColumn.Hidden = Todellinen loppuosa 

Tämä piilottaa sarakkeet A - C.

Voimme käyttää myös seuraavaa koodia piilottaaksesi useita sarakkeita Excel VBA: ssa.

Koodi:

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

Yllä olevat menetelmät piilottavat kolme ensimmäistä saraketta eli A, B ja C.

Esimerkki # 4 - Piilota sarakkeet yhdellä solulla

Voimme myös piilottaa sarakkeen yhden soluviitteen perusteella. Sarakkeen piilottamiseksi meidän ei tarvitse antaa täydellistä sarakeviitettä. Vain yhden soluviitteen avulla meidän pitäisi pystyä piilottamaan sarake.

Koodi:

 Sub Single_Hide () -alue ("A5"). EntireColumn.Hidden = Todellinen loppuosa 

Tämä piilottaa koko sarakkeen A.

Esimerkki # 5 - Piilota kaikki vaihtoehtoiset sarakkeet

Oletetaan, että sinulla on tietoja, kuten alla olevassa kuvassa.

Meidän täytyy piilottaa kaikki vaihtoehtoiset sarakkeet, jotka ovat tyhjiä. Tätä varten meidän on käytettävä silmukoita, alla oleva koodi tekee työn puolestamme.

Koodi:

 Sub AlternativeColumn_Hide () Dim k kokonaislukuna k = 1 - 7 solulle (1, k + 1) .EntireColumn.Hidden = True k = k + 1 Seuraava k End Sub 

Tämä piilottaa kaikki vaihtoehtoiset sarakkeet.

Esimerkki # 6 - Piilota jokainen tyhjä sarake

Edellisessä esimerkissä kaikki muut vaihtoehtoiset sarakkeet olivat tyhjiä, olemme piilottaneet helposti. Mutta katso alla olevia tietoja.

Tässä tyhjien sarakkeiden kuvio ei ole vakio. Näissä tapauksissa alla oleva koodi piilottaa kaikki tyhjät sarakkeet, ei ole väliä mikä malli on.

Koodi:

 Alisarakkeessa_Piilota1 () Dim k kokonaislukuna k = 1 - 11 Jos solut (1, k) .Arvo = "" Sitten sarakkeet (k) .Piilotettu = True End Jos seuraava k End 

Kun suoritat koodin, saat tuloksen seuraavasti.

Esimerkki # 7 - Piilota sarakkeet soluarvon perusteella

Nyt näemme, kuinka piilottaa sarake solun arvon perusteella. Katso esimerkki alla olevista tiedoista.

Tässä haluan piilottaa kaikki sarakkeet, jos otsikko on "Ei". Alla oleva koodi tekee sen minulle.

Koodi:

 Alisarakkeessa_Piilota_solun_arvo () Dim k kokonaislukuna k = 1 - 7 Jos solut (1, k). Arvo = "Ei", sitten sarakkeet (k). Piilotettu = True End Jos seuraava k End Sub 

Kun suoritat koodin, saat tuloksen seuraavasti.


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