Excel VBA Slēpt kolonnas
Slēpšanās ir vienkārša lieta, taču šeit ir jāsaprot jēdziens. Lai paslēptu kolonnu, izmantojot VBA, mums jānosaka, kura kolonna mums jāslēpj. Lai norādītu slepeno sleju, 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ē mūsu VBA kods.
1. piemērs - paslēpt, izmantojot diapazona objektu
Ja vēlaties paslēpt konkrētu 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 () Range ("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 Columns, zemāk redzamais 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. Kad izmantojat 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šs kolonnas_Slēpt () Kolonnas ("B"). EntireColumn.Hidden = Patiesas beigu apakšsadaļa
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. 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, kaut kas līdzīgs zemāk redzamajam attēlam.
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
Tagad mēs redzēsim, kā paslēpt kolonnas, pamatojoties uz šūnu vērtību. Piemēram, apskatiet tālāk minētos datus.
Šeit es gribu paslēpt visas kolonnas, ja virsraksts ir “Nē”. Zemāk esošais 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.
