Slėpti stulpelius - Kaip paslėpti stulpelius naudojant VBA kodą?

„Excel VBA“ slėpti stulpelius

Slėpimas yra paprastas dalykas, tačiau čia reikia suprasti sąvoką. Norėdami paslėpti stulpelį naudodami VBA, turime nustatyti, kurį stulpelį turime slėpti. Norėdami nurodyti slėpiamą stulpelį, turime naudoti objektą RANGE.

Diapazonas ("A: A")

Tada turime naudoti ypatybę „Visas stulpelis“.

Diapazonas ("A: A"). Visas stulpelis

Visoje stulpelio ypatybėje turime naudoti ypatybę „Paslėpta“.

Diapazonas („A: A“). „EntireColumn“. Paslėpta

Tada pagaliau turime nustatyti paslėptą nuosavybę į TIKRA.

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

Tai paslėps A stulpelį.

Kaip paslėpti stulpelius VBA?

Stulpelius galime paslėpti keliais būdais. Stulpelį galime paslėpti naudodami objektą „Range“, naudodami nuosavybę CELLS. Pagal naudojamą metodą turime sukonstruoti savo VBA kodą.

1 pavyzdys - slėpti naudojant „Range Object“

Jei norite paslėpti tam tikrą stulpelį, nurodykite stulpelį objekto RANGE viduje. Pažvelkite į žemiau pateiktus duomenis.

Dabar paslėpsime visą stulpelį A naudodami šį kodą.

Kodas:

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

Taigi, paleidę kodą, gausime tokį rezultatą.

2 pavyzdys - slėpti naudojant stulpelių ypatybę

Jei norite paslėpti stulpelį naudodami savybę „Stulpeliai“, žemiau pateiktas kodas skirtas jums.

Kodas:

Sub Range_Hide () stulpeliai ("B"). Paslėpta = True End Sub

Tai paslėps stulpelį B. Čia jūs turėtumėte galvoti, kur yra viso stulpelio ypatybė. Kai naudojate ypatybę Stulpeliai, nebūtina naudoti ypatybės Visas stulpelis.

Mes vis tiek galime naudoti ypatybę Visas stulpelis, bet nebūtinai reikalingas. To paties kodas pateiktas žemiau.

Kodas:

Antriniai stulpeliai_Slėpti () stulpeliai („B“). „EntireColumn.Hidden“ = „True End Sub“

Tai taip pat turėtų veikti gerai.

Vietoj abėcėlės nuorodos galime naudoti ir stulpelio numerį. To paties kodas pateiktas žemiau.

Kodas:

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

Tai paslėps D stulpelį.

3 pavyzdys - slėpti kelis stulpelius

Vienu metu galime paslėpti ir kelis stulpelius. Turime paminėti pirmąjį ir paskutinį stulpelius, kad tarp stulpelių taip pat būtų paslėpta. Jei norite paslėpti kelis stulpelius, naudokite tuos pačius duomenis kaip pavyzdys Nr. 1.

Kodas:

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

This will hide column A to C.

We can use the following code as well to hide multiple columns in Excel VBA.

Code:

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

The above methods will hide the first three columns i.e., A, B, and C.

Example #4 - Hide Columns with Single Cell

We can also hide a column based on a single cell reference. We don’t need to give the full column reference to hide the column. With just a single cell reference, we should be able to hide a column.

Code:

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

This will hide the entire column A.

Example #5 - Hide Every Alternative Column

Assume you have data, something like the below image.

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

Dabar pamatysime, kaip paslėpti stulpelius pagal langelio vertę. Pavyzdžiui, pažiūrėkite į toliau pateiktus duomenis.

Čia noriu paslėpti visus stulpelius, jei antraštė yra „Ne“. Žemiau pateiktas kodas tai padarys man.

Kodas:

Antrinis stulpelis_Slėpti_ląstelių_Vertė () Dim k kaip sveikoji vertė k = 1–7, jei langeliai (1, k). Vertė = „Ne“, tada stulpeliai (k). Paslėpta = Tikra pabaiga, jei kitas k pabaiga Sub

Paleidus kodą, rezultatą gausite taip.