photosdematures.com

Itago ang Mga Haligi ng Excel VBA

Ang pagtago ay ang simpleng bagay ngunit kailangan mong maunawaan ang konsepto dito. Upang maitago ang haligi gamit ang VBA, kailangan naming matukoy kung aling haligi ang kailangan nating itago. Upang tukuyin ang kolum na maitago kailangan naming gamitin ang RANGE object.

Saklaw ("A: A")

Pagkatapos ay kailangan naming gamitin ang Pag-aari na "Buong Column".

Saklaw ("A: A"). BuongColumn

Sa buong pag-aari ng haligi, kailangan naming gumamit ng "Nakatagong" pag-aari.

Saklaw ("A: A"). EntireColumn. Nakatago

Pagkatapos, sa wakas, kailangan nating itakda ang Nakatagong pag-aari sa TUNAY.

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

Itatago nito ang haligi A

Paano Itago ang Mga Haligi sa VBA?

Maaari naming itago ang mga haligi sa maraming paraan. Maaari naming itago ang isang haligi sa pamamagitan ng paggamit ng isang saklaw na object, sa pamamagitan ng paggamit ng CELLS na pag-aari. Batay sa paraang ginagamit namin kailangan namin upang maitayo ang aming VBA code.

Maaari mong i-download ang VBA Itago ang Mga Halimbawang Excel Template dito - VBA Itago ang Mga Haligi ng Excel Template

Halimbawa # 1 - Itago gamit ang Saklaw na Bagay

Kung nais mong itago ang isang partikular na haligi pagkatapos ay tukuyin ang haligi sa loob ng RANGE object. Tingnan ang data sa ibaba.

Itatago namin ang buong haligi A gamit ang sumusunod na code.

Code:

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

Kaya kapag pinatakbo namin ang code makukuha namin ang sumusunod na resulta.

Halimbawa # 2 - Itago gamit ang Mga Pag-aari ng Column

Kung nais mong itago ang haligi gamit ang pag-aari ng Column pagkatapos ang code sa ibaba ay para sa iyo.

Code:

 Sub Range_Hide () Mga Haligi ("B"). Nakatago = True End Sub 

Itatago nito ang haligi B. Dito dapat mong iniisip kung nasaan ang pag-aari ng Buong Column. Kapag gumamit ka ng pag-aari ng Column hindi kinakailangan na gamitin ang pag-aari ng Buong Column.

Maaari pa rin naming magamit ang pag-aari ng Buong Column ngunit hindi kinakailangan na kinakailangan. At ang code para sa pareho ay ibinibigay sa ibaba.

Code:

 Mga Haligi ng Sub_Hide () Mga Haligi ("B"). EntireColumn.Hidden = True End Sub 

Dapat din itong gumana nang maayos.

Maaari naming gamitin din ang numero ng haligi sa halip na sanggunian sa alpabeto. At ang code para sa pareho ay ibinibigay sa ibaba.

Code:

 Mga Haligi ng Sub_Hide () Mga Haligi (4) .EntireColumn.Hidden = True End Sub 

Itatago nito ang Hanay D.

Halimbawa # 3 - Itago ang Maramihang Mga Haligi

Maaari naming itago ang maraming mga haligi sa isang oras din. Para sa mga ito, kailangan naming banggitin ang una at ang huling haligi, upang sa pagitan ng haligi ay maitago din. Para sa parehong data tulad ng halimbawa # 1 gamitin ang sumusunod na code upang itago ang maraming mga haligi.

Code:

 Mga Sub Column_Hide () Saklaw ("A: C"). EntireColumn.Hidden = True End Sub 

Itatago nito ang haligi A hanggang C.

Maaari naming gamitin din ang sumusunod na code upang maitago ang maraming mga haligi sa Excel VBA.

Code:

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

Itatago ng mga pamamaraan sa itaas ang unang tatlong mga haligi hal. A, B, at C.

Halimbawa # 4 - Itago ang Mga Haligi na may Single Cell

Maaari din naming itago ang isang haligi batay sa isang solong sanggunian ng cell. Hindi namin kailangang ibigay ang buong sanggunian ng haligi upang maitago ang haligi. Sa isang solong sanggunian lamang ng cell dapat naming itago ang isang haligi.

Code:

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

Itatago nito ang buong haligi A

Halimbawa # 5 - Itago ang bawat Alternatibong Haligi

Ipagpalagay na mayroon kang isang data tulad ng larawan sa ibaba.

Kailangan naming itago ang bawat kahalili na haligi na blangko. Upang maganap ito kailangan naming gumamit ng mga loop, sa ibaba ng code ay gagawin ang trabaho para sa amin.

Code:

 Sub AlternativeColumn_Hide () Dim k Bilang Integer Para sa k = 1 To 7 Cells (1, k + 1) .EntireColumn.Hidden = True k = k + 1 Susunod k End Sub 

Itatago nito ang bawat kahaliling haligi.

Halimbawa # 6 - Itago ang bawat Walang laman na Haligi

Sa nakaraang halimbawa ang bawat iba pang kahaliling haligi ay blangko madali kaming nakatago. Ngunit tingnan ang data sa ibaba.

Dito walang laman ang pattern ng walang laman na mga haligi. Sa mga kasong ito sa ilalim ng code ay itatago ang lahat ng walang laman na mga haligi, hindi mahalaga kung ano ang pattern.

Code:

 Sub Column_Hide1 () Dim k Bilang Integer Para sa k = 1 To 11 Kung Mga Cell (1, k). Halaga = "" Kung gayon Mga Column (k). Nakatago = True End Kung Susunod k End Sub 

Kapag pinatakbo mo ang code makakakuha ka ng resulta tulad ng sumusunod.

Halimbawa # 7 - Itago ang Mga Haligi Batay sa Halaga ng Cell

Ngayon makikita natin kung paano itago ang haligi batay sa halaga ng cell. Para sa isang halimbawa tingnan ang data sa ibaba.

Dito nais kong itago ang lahat ng mga haligi kung ang heading ay "Hindi". Gagawa ito sa ibaba ng code para sa akin.

Code:

 Sub Column_Hide_Cell_Value () Dim k Bilang Integer Para sa k = 1 hanggang 7 Kung Mga Cells (1, k) .Value = "No" Kung gayon Mga Column (k). Nakatago = True End Kung Susunod k End Sub 

Kapag pinatakbo mo ang code makakakuha ka ng resulta tulad ng sumusunod.