VBA Skrij stolpce - Kako skriti stolpce z uporabo kode VBA?

Excel VBA Skrij stolpce

Skrivanje je preprosta stvar, vendar morate tukaj razumeti koncept. Če želite skriti stolpec z uporabo VBA, moramo določiti, kateri stolpec moramo skriti. Če želite določiti stolpec, ki ga želite skriti, moramo uporabiti objekt RANGE.

Območje ("A: A")

Nato moramo uporabiti lastnost »Celoten stolpec«.

Obseg ("A: A"). Celoten stolpec

V celotni lastnosti stolpca moramo uporabiti lastnost »skrito«.

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

Nato moramo lastnost Hidden končno nastaviti na TRUE.

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

To bo skril stolpec A.

Kako skriti stolpce v VBA?

Stolpce lahko skrijemo na več načinov. Stolpec lahko skrijemo z uporabo predmeta Range z uporabo lastnosti CELLS. Na podlagi metode, ki jo uporabljamo, moramo sestaviti kodo VBA.

Primer # 1 - Skrij z uporabo predmeta obsega

Če želite skriti določen stolpec, določite stolpec znotraj predmeta RANGE. Oglejte si spodnje podatke.

Zdaj bomo s pomočjo naslednje kode skrili celoten stolpec A.

Koda:

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

Torej, ko zaženemo kodo, bomo dobili naslednji rezultat.

2. primer - Skrij z uporabo lastnosti stolpcev

Če želite skriti stolpec z lastnostjo Stolpci, potem je spodnja koda za vas.

Koda:

Sub Range_Hide () Stolpci ("B"). Skrite = True End Sub

S tem bo skrit stolpec B. Tu verjetno mislite, kje je lastnost Celoten stolpec. Ko uporabljate lastnost Stolpci, ni treba uporabljati lastnosti Cel stolpec.

Lastnost Celoten stolpec lahko še vedno uporabljamo, vendar ni nujno potrebna. In koda za isto je navedena spodaj.

Koda:

Sub Columns_Hide () Stolpci ("B"). EntireColumn.Hidden = True End Sub

Tudi to bi moralo dobro delovati.

Namesto abecedne reference lahko uporabimo tudi številko stolpca. In koda za isto je navedena spodaj.

Koda:

Sub Columns_Hide () Columns (4) .EntireColumn.Hidden = True End Sub

To bo skrilo stolpec D.

Primer # 3 - Skrij več stolpcev

Hkrati lahko skrijemo tudi več stolpcev. Omeniti moramo prvi in ​​zadnji stolpec, tako da bodo med stolpci tudi skriti. Za iste podatke kot primer # 1 uporabite naslednjo kodo, da skrijete več stolpcev.

Koda:

Sub Columns_Hide () Obseg ("A: C"). EntireColumn.Hidden = True End Sub

S tem bodo skriti stolpci od A do C.

Naslednjo kodo lahko uporabimo tudi za skrivanje več stolpcev v Excelu VBA.

Koda:

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

Zgornje metode skrijejo prve tri stolpce, tj. A, B in C.

Primer # 4 - Skrij stolpce z eno celico

Stolpec lahko skrijemo tudi na podlagi referenc ene celice. Za skrivanje stolpca nam ni treba dati celotne reference stolpca. Z enim samim sklicem na celico bi morali imeti možnost, da skrijemo stolpec.

Koda:

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

Tako bo skrit celoten stolpec A.

Primer # 5 - Skrij vse nadomestne stolpce

Predpostavimo, da imate podatke, na primer spodnjo sliko.

We need to hide every alternative column, which is blank. We need to use loops; the below code will do the job for us.

Code:

Sub AlternativeColumn_Hide() Dim k As Integer For k = 1 To 7 Cells(1, k + 1).EntireColumn.Hidden = True k = k + 1 Next k End Sub

This will hide every alternate column.

Example #6 - Hide Every Empty Column

In the previous example, every other alternative column was blank; we have hidden easily. But look at the below data.

Here empty columns pattern is not standard. In these cases, the below code will hide all the empty columns. It doesn’t matter what the pattern is.

Code:

Sub Column_Hide1() Dim k As Integer For k = 1 To 11 If Cells(1, k).Value = "" Then Columns(k).Hidden = True End If Next k End Sub

When you run the code, you will get the result as follows.

Example #7 - Hide Columns Based On Cell Value

Zdaj bomo videli, kako skriti stolpce na podlagi vrednosti celice. Na primer, poglejte spodnje podatke.

Tu želim skriti vse stolpce, če je naslov "Ne". Spodnja koda bo to storila zame.

Koda:

Sub Column_Hide_Cell_Value () Dim k kot celo število Za k = 1 do 7 If Cells (1, k) .Value = "Ne" Potem stolpci (k) .Hidden = True End Če Next k End Sub

Ko zaženete kodo, boste dobili rezultat, kot sledi.

Zanimive Članki...