seychellesartprojects.org

Excel VBA Slēpt kolonnas

Slēpšanās ir vienkārša lieta, taču šeit jums ir jāsaprot jēdziens. Lai paslēptu kolonnu, izmantojot VBA, mums jānosaka, kura kolonna mums jāslēpj. Lai norādītu slēpto kolonnu, mums jāizmanto objekts RANGE.

Diapazons ("A: A")

Tad mums jāizmanto rekvizīts “Visa kolonna”.

Diapazons ("A: A"). EntireColumn

Visā kolonnas īpašumā mums jāizmanto rekvizīts “Slēpts”.

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

Tad beidzot mums ir jāiestata rekvizīts Slēpts.

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

Tas paslēps A kolonnu.

Kā paslēpt kolonnas VBA?

Kolonnas mēs varam paslēpt vairākos veidos. Kolonnu var paslēpt, izmantojot objektu Range, izmantojot rekvizītu CELLS. Pamatojoties uz izmantoto metodi, mums jākonstruē VBA kods.

Jūs varat lejupielādēt šo VBA Slēpt kolonnu Excel veidni šeit - VBA Slēpt kolonnu Excel veidni

1. piemērs - paslēpt, izmantojot diapazona objektu

Ja vēlaties paslēpt noteiktu kolonnu, norādiet kolonnu objekta RANGE iekšpusē. Apskatiet zemāk esošos datus.

Tagad mēs paslēpsim visu kolonnu A, izmantojot šādu kodu.

Kods:

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

Tātad, palaižot kodu, mēs iegūsim šādu rezultātu.

2. piemērs - paslēpt, izmantojot rekvizītu Columns

Ja vēlaties paslēpt kolonnu, izmantojot rekvizītu Kolonnas, zemāk esošais kods ir domāts jums.

Kods:

 Sub Range_Hide () kolonnas ("B"). Hidden = True End Sub 

Tas paslēps kolonnu B. Šeit jums jādomā, kur atrodas rekvizīts Visa kolonna. Izmantojot rekvizītu Kolonnas, nav nepieciešams izmantot rekvizītu Visa kolonna.

Mēs joprojām varam izmantot rekvizītu Visa kolonna, bet tas nav obligāti nepieciešams. Un kods tam pašam ir norādīts zemāk.

Kods:

 Apakškoloni_Slēpt () Kolonnas ("B"). EntireColumn.Hidden = Patiesā apakšgrupa 

Arī tam vajadzētu darboties labi.

Alfabētiskās atsauces vietā mēs varam izmantot arī kolonnas numuru. Un kods tam pašam ir norādīts zemāk.

Kods:

 Apakškoloni_Slēpt () Kolonnas (4) .EntireColumn.Hidden = Patiesā apakšgrupa 

Tas paslēps D kolonnu.

3. piemērs - paslēpt vairākas kolonnas

Mēs vienlaikus varam paslēpt arī vairākas kolonnas. Lai to izdarītu, mums jāpiemin pirmā un pēdējā kolonna, lai starp kolonnām arī tiktu paslēpta. Tiem pašiem datiem kā 1. piemērā izmantojiet šo kodu, lai paslēptu vairākas kolonnas.

Kods:

 Apakšs kolonnas_Slēpt () diapazons ("A: C"). EntireColumn.Hidden = True End Sub 

Tas paslēps slejas A līdz C.

Mēs varam izmantot arī šo kodu, lai paslēptu vairākas kolonnas programmā Excel VBA.

Kods:

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

Iepriekš minētās metodes paslēps pirmās trīs kolonnas, ti, A, B un C.

4. piemērs - paslēpt kolonnas ar vienu šūnu

Mēs varam arī paslēpt kolonnu, pamatojoties uz vienas šūnas atsauci. Lai paslēptu kolonnu, mums nav jāsniedz pilna slejas atsauce. Izmantojot tikai vienas šūnas atsauci, mums vajadzētu būt iespējai paslēpt kolonnu.

Kods:

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

Tas paslēps visu A kolonnu.

5. piemērs - paslēpt katru alternatīvo kolonnu

Pieņemsim, ka jums ir dati, kas līdzīgi šim attēlam.

Mums jāslēpj visas alternatīvās kolonnas, kas ir tukšas. Lai tas notiktu, mums jāizmanto cilpas, zemāk esošais kods darīs darbu mūsu vietā.

Kods:

 Sub AlternativeColumn_Hide () Dim k kā vesels skaitlis k = 1 līdz 7 šūnām (1, k + 1) .EntireColumn.Hidden = True k = k + 1 Nākamais k Beigas Sub 

Tas paslēps katru alternatīvo kolonnu.

6. piemērs - paslēpt katru tukšo kolonnu

Iepriekšējā piemērā visas citas alternatīvās kolonnas bija tukšas, kuras mēs esam viegli paslēpuši. Bet apskatiet zemāk minētos datus.

Šeit tukšo kolonnu paraugs nav standarts. Šādos gadījumos zem koda tiks paslēptas visas tukšās kolonnas, nav svarīgi, kāds ir modelis.

Kods:

 Apakškolona_Slēpt1 () Dim k kā veselais skaitlis vērtībai k = 1 līdz 11, ja šūnas (1, k) .Vērtība = "" Tad kolonnas (k). Paslēpts = Patiesā beigas, ja nākamās k beigas Apakšs 

Palaidot kodu, rezultāts tiks iegūts šādi.

7. piemērs - paslēpt kolonnas, pamatojoties uz šūnas vērtību

Tagad mēs redzēsim, kā paslēpt kolonnu, pamatojoties uz šūnas vērtību. Piemēru skatiet zemāk esošajos datos.

Šeit es gribu paslēpt visas kolonnas, ja virsraksts ir “Nē”. Zemāk kods to izdarīs manā vietā.

Kods:

 Apakškolona_Slēpt_Cell_Value () Dim k kā vesels skaitlis k = 1 līdz 7, ja šūnas (1, k). Vērtība = "Nē", tad kolonnas (k). Slēpts = Patiesas beigas, ja nākamās k beigas Apakšsadaļa 

Palaidot kodu, rezultāts tiks iegūts šādi.