Excel VBA Sakrij stupce
Skrivanje je jednostavna stvar, ali ovdje morate razumjeti koncept. Da bismo sakrili stupac pomoću VBA, moramo odrediti koji stupac moramo sakriti. Da bismo odredili stupac koji će biti skriven, trebamo upotrijebiti objekt RANGE.
Raspon ("A: A")
Zatim moramo koristiti svojstvo "Cijeli stupac".
Raspon ("A: A"). Cijeli stupac
U cijelom svojstvu stupca moramo koristiti svojstvo "Skriveno".
Raspon ("A: A"). Cijeli stupac. Skriven
Zatim napokon moramo postaviti svojstvo Hidden na TRUE.
Raspon ("A: A"). EntireColumn.Hidden = TRUE
Ovo će sakriti stupac A.
Kako sakriti stupce u VBA?
Stupce možemo sakriti na nekoliko načina. Stupac možemo sakriti pomoću objekta Range pomoću svojstva CELLS. Na temelju metode koju koristimo, moramo konstruirati naš VBA kod.
Primjer # 1 - Sakrij pomoću objekta dometa
Ako želite sakriti određeni stupac, navedite stupac unutar RANGE objekta. Pogledajte podatke u nastavku.
Sada ćemo sakriti cijeli stupac A koristeći sljedeći kod.
Kodirati:
Sub Range_Hide () Raspon ("A: A"). EntireColumn.Hidden = True End Sub
Dakle, kada pokrenemo kod, dobit ćemo sljedeći rezultat.
Primjer # 2 - Sakrij pomoću svojstva Stupci
Ako želite sakriti stupac pomoću svojstva Stupci, tada je donji kod za vas.
Kodirati:
Sub Range_Hide () Stupci ("B"). Skriveno = True End Sub
Ovo će sakriti stupac B. Ovdje sigurno mislite gdje se nalazi svojstvo Cijeli stupac. Kada koristite svojstvo Stupci, nije potrebno koristiti svojstvo Cijeli stupac.
I dalje možemo koristiti svojstvo Cijeli stupac, ali nije nužno potrebno. A kôd za isti naveden je u nastavku.
Kodirati:
Sub Columns_Hide () Stupci ("B"). EntireColumn.Hidden = True End Sub
Ovo bi također trebalo dobro funkcionirati.
Umjesto abecedne reference možemo koristiti i broj stupca. A kôd za isti naveden je u nastavku.
Kodirati:
Sub Columns_Hide () Columns (4) .EntireColumn.Hidden = True End Sub
Ovo će sakriti stupac D.
Primjer # 3 - Sakrij više stupaca
Istovremeno možemo sakriti i više stupaca. Moramo spomenuti prvi i zadnji stupac kako bi između stupaca također bili sakriveni. Za iste podatke kao primjer # 1, upotrijebite sljedeći kod da biste sakrili više stupaca.
Kodirati:
Podkolone_Skrij () Raspon ("A: C"). EntireColumn.Hidden = Istinski kraj
Ovo će sakriti stupce A do C.
Sljedeći kod možemo koristiti i za skrivanje više stupaca u programu Excel VBA.
Kodirati:
Sub Multi_Columns_Hide () Stupci ("A: C"). EntireColumn.Hidden = True End Sub
Gornje metode će sakriti prva tri stupca, tj. A, B i C.
Primjer # 4 - Sakrij stupce s jednom ćelijom
Također možemo sakriti stupac na temelju reference jedne ćelije. Ne moramo dati punu referencu stupca da bismo sakrili stupac. Sa samo jednom referencom na ćeliju trebali bismo moći sakriti stupac.
Kodirati:
Sub Single_Hide () Raspon ("A5"). EntireColumn.Hidden = True End Sub
Ovo će sakriti cijeli stupac A.
Primjer # 5 - Sakrij svaki alternativni stupac
Pretpostavimo da imate podatke, nešto poput donje slike.
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
Sada ćemo vidjeti kako sakriti stupce na temelju vrijednosti ćelije. Na primjer, pogledajte podatke u nastavku.
Ovdje želim sakriti sve stupce ako je naslov "Ne". Kôd u nastavku učinit će to umjesto mene.
Kodirati:
Sub Column_Hide_Cell_Value () Dim k As Integer Za k = 1 do 7 If Cells (1, k) .Value = "No" Onda Columns (k) .Hidden = True End If Next k End Sub
Kada pokrenete kôd, dobit ćete rezultat kako slijedi.
