Excel VBA Skjul kolonner
Skjul er en simpel ting, men du skal forstå konceptet her. For at skjule kolonnen ved hjælp af VBA skal vi bestemme, hvilken kolonne vi skal skjule. For at specificere den kolonne, der skal skjules, skal vi bruge RANGE-objektet.
Rækkevidde ("A: A")
Så er vi nødt til at bruge egenskaben "Hele kolonnen."
Område ("A: A"). EntireColumn
I hele kolonneegenskaben skal vi bruge egenskaben "Skjult".
Område ("A: A"). EntireColumn.Hidden
Så er vi endelig nødt til at indstille den skjulte ejendom til SAND.
Område ("A: A"). EntireColumn.Hidden = SAND
Dette skjuler kolonne A.
Sådan skjules kolonner i VBA?
Vi kan skjule kolonner på flere måder. Vi kan skjule en kolonne ved hjælp af et Range-objekt ved hjælp af CELLS-egenskaben. Baseret på den metode, vi bruger, er vi nødt til at konstruere vores VBA-kode.
Eksempel # 1 - Skjul ved hjælp af Range Object
Hvis du vil skjule en bestemt kolonne, skal du angive kolonnen inde i RANGE-objektet. Se på nedenstående data.
Nu skjuler vi hele kolonne A ved hjælp af følgende kode.
Kode:
Sub Range_Hide () Range ("A: A"). EntireColumn.Hidden = True End Sub
Så når vi kører koden, får vi følgende resultat.
Eksempel 2 - Skjul ved hjælp af kolonneegenskab
Hvis du vil skjule kolonnen ved hjælp af kolonneegenskaben, er nedenstående kode noget for dig.
Kode:
Underområde_Skjul () kolonner ("B") Skjult = Ægte slut-sub
Dette skjuler kolonne B. Her skal du tænke over, hvor egenskaben Hele kolonne er. Når du bruger egenskaben Kolonner, er det ikke nødvendigt at bruge egenskaben Hele kolonne.
Vi kan stadig bruge egenskaben Hele kolonne, men ikke nødvendigvis krævet. Og kode for det samme er angivet nedenfor.
Kode:
Underkolonner_Hide () Kolonner ("B"). EntireColumn.Hidden = True End Sub
Dette skal også fungere fint.
Vi kan også bruge søjlenummeret i stedet for alfabetisk reference. Og kode for det samme er angivet nedenfor.
Kode:
Underkolonner_Hide () Kolonner (4) .EntireColumn.Hidden = True End Sub
Dette skjuler kolonne D.
Eksempel # 3 - Skjul flere kolonner
Vi kan også skjule flere kolonner ad gangen. Vi skal nævne den første og den sidste kolonne, så også mellem kolonnerne bliver skjult. For de samme data som eksempel # 1 skal du bruge følgende kode til at skjule flere kolonner.
Kode:
Sub Columns_Hide () Range ("A: C"). EntireColumn.Hidden = True End Sub
Dette skjuler kolonne A til C.
Vi kan også bruge følgende kode til at skjule flere kolonner i Excel VBA.
Kode:
Under Multi_Columns_Hide () -kolonner ("A: C"). EntireColumn.Hidden = True End Sub
Ovenstående metoder skjuler de første tre kolonner, dvs. A, B og C.
Eksempel # 4 - Skjul kolonner med enkeltcelle
Vi kan også skjule en kolonne baseret på en enkelt cellehenvisning. Vi behøver ikke at give den fulde kolonnehenvisning for at skjule kolonnen. Med kun en enkelt cellehenvisning skal vi kunne skjule en kolonne.
Kode:
Sub Single_Hide () Range ("A5"). EntireColumn.Hidden = True End Sub
Dette skjuler hele kolonne A.
Eksempel # 5 - Skjul hver alternativ kolonne
Antag at du har data, noget som nedenstående billede.
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
Nu vil vi se, hvordan du skjuler kolonner baseret på celleværdien. Se f.eks. Nedenstående data.
Her vil jeg skjule alle kolonnerne, hvis overskriften er "Nej." Nedenstående kode gør det for mig.
Kode:
Underkolonne_Hide_Cell_Value () Dim k som heltal For k = 1 til 7 Hvis celler (1, k). Værdi = "Nej" Derefter kolonner (k). Skjult = Sand slutning Hvis næste k Afslut sub
Når du kører koden, får du resultatet som følger.
