Magpasok ng Mga Haligi ng VBA | Paano Ipasok ang Column sa Excel Worksheet sa VBA?

Karaniwan sa excel worksheet mayroon kaming dalawang magkakaibang pamamaraan upang magdagdag o magpasok ng mga haligi ng isang pagiging shortcut sa keyboard at isa pa sa pamamagitan ng paggamit ng right-click at insert na paraan ngunit sa VBA kailangan naming gumamit ng insert command at buong pahayag ng haligi upang idagdag ang anumang haligi nang magkasama, ang trick sa ito ay na kung kailangan naming magsingit ng isang solong haligi nagbibigay kami ng isang solong sanggunian ng haligi ngunit para sa maraming mga haligi ay nagbibigay kami ng maraming mga sanggunian sa haligi.

Ipasok ang Mga Haligi sa Excel gamit ang VBA

Bilang bahagi ng VBA code, maaaring kailanganin naming maglagay ng ilang mga haligi sa aming datasheet upang magkasya sa aming mga pangangailangan. Ang pagpasok ng haligi ay ang madaling pindutan ng shortcut sa worksheet sa pamamagitan ng pagpindot Ctrl + ngunit paano ang pagpasok ng isang bagong haligi sa pamamagitan ng VBA code. Sa artikulong ito sa "VBA Insert Column", ipapakita namin sa iyo ang proseso ng pagdaragdag ng mga haligi sa excel at ipapakita namin sa iyo ang iba't ibang mga halimbawa ng scenario.

Paano Magpasok ng Mga Haligi sa Excel Worksheet gamit ang VBA?

Maaari naming ipasok ang mga haligi sa VBA gamit ang mga COLUMNS na pag-aari at RANGE object. Kailangan mo kung bakit kailangan namin ng mga haligi at saklaw ng mga bagay upang magsingit ng isang bagong haligi.

Upang magsingit ng isang bagong haligi kailangan naming kilalanin kung aling mga haligi ang kailangan naming ipasok, nang hindi sinasabi pagkatapos ng aling haligi kailangan naming ipasok kung paano maunawaan ng VBA ang lohika.

Halimbawa, kung nais mong ipasok ang haligi pagkatapos ng haligi B pagkatapos ay maaari mong buuin ang code na tulad nito.

Mga Haligi ("C")

Tandaan: Ang dahilan kung bakit ginamit ko ang C upang magsingit ng isang haligi pagkatapos dahil ang napiling cell ay ililipat sa kanang bahagi.

Matapos matukoy ang mga haligi kailangan naming i-access ang pag-aari ng "Buong Column".

Mga Haligi ("C"). BuongColumn

Pagkatapos ay kailangan naming piliin ang pamamaraan na "Ipasok".

Mga Haligi ("C"). BuongColumn. Ipasok

Ipapasok nito ang haligi pagkatapos ng haligi C at ang umiiral na haligi C ay ililipat sa D.

Halimbawa # 1 - Ipasok ang Mga Haligi Gamit ang Saklaw na Bagay sa VBA

Ngayon, tingnan ang paraan ng pagpasok ng haligi gamit ang RANGE object. Para sa mga ito isaalang-alang ang data sa ibaba para sa isang halimbawa.

Ngayon nais kong ipasok ang VBA ang haligi pagkatapos ng haligi ng A, sundin ang mga hakbang sa ibaba upang mabuo ang code.

Hakbang 1: Simulan ang Sub Pamamaraan.

Hakbang 2: Buksan Saklaw bagay

Code:

 Sub ColumnInsert_Example1 () Saklaw (End Sub 

Hakbang 3: Ngayon banggitin ang haligi sa doble-quote.

Code:

 Sub ColumnInsert_Example1 () Saklaw ("B: B") End Sub 

Hakbang 4: Pumili ka na Buong Haligi pag-aari

Code:

 Sub ColumnInsert_Example1 () Saklaw ("B: B"). Ent End Sub 

Hakbang 5: Matapos piliin ang pag-aari ng Buong Column, piliin ang "Ipasok" paraan

Code:

 Sub ColumnInsert_Example1 () Saklaw ("B: B"). EntireColumn.ins End Sub 

Ngayon ganito ang hitsura ng iyong code.

Code:

 Sub ColumnInsert_Example1 () Saklaw ("B: B"). EntireColumn. Ipasok ang End Sub 

Patakbuhin ang code ilalagay nito ang bagong haligi ng B.

Halimbawa # 2 - Magsingit ng Maramihang mga Haligi

Halimbawa, kung nais mong magsingit ng dalawang bagong haligi pagkatapos ng haligi A pagkatapos ay kailangan naming banggitin ang dalawang mga address ng haligi.

Code:

 Sub ColumnInsert_Example1 () Saklaw ("B: C"). EntireColumn. Ipasok ang End Sub 

Ang code sa itaas ay maglalagay ng dalawang mga haligi pagkatapos ng haligi A.

Halimbawa # 3 - Sa Pamamaraan na "Ipasok" lamang

Maaari kaming magpasok ng isang bagong haligi sa pamamagitan ng paggamit ng "Ipasok" ang tanging pamamaraan nang hindi ina-access ang pag-aari ng Buong Column. Para dito maunawaan natin ang syntax ng pamamaraan na "insert".

Expression.Insert ([Shift], [Pinagmulan ng Kopya])

[Shift]: Kapag naipasok namin ang bagong haligi kung kailangan namin ng mga haligi upang ilipat sa kanang bahagi o upang ilipat sa downside sa kaso ng mga hilera. Dito maaari naming gamitin ang dalawang pagpipilian na "xlToRight" at "xlDownTo"

[Pinagmulan ng Kopya]: Tutukuyin nito ang format para sa bagong naipasok na haligi. Kung kailangan mo ba ng format mula sa kaliwang bahagi ng haligi o mula sa mga itaas na cell. Dito maaari naming gamitin ang dalawang pagpipilian na "xlFormatFromLeftOrAbove" at "xlFormatFromRightOrBelow".

Nasa ibaba ang halimbawa ng code para sa iyo.

 Sub ColumnInsert_Example1 () Saklaw ("B: B"). Ipasok ang Shift: = xlToRight, Copyorigin: = xlFormatFromLeftOrAbove End Sub 

Halimbawa # 4 - Magsingit ng Mga Hanay Gamit ang COLUMNS Pag-aari sa VBA

Nakita namin kung paano mag-insert ng mga haligi ng VBA gamit ang RANGE object, ngayon ay ipapakita namin na maaari naming ipasok ang mga haligi gamit ang "COLUMNS" na pag-aari.

Buksan ang COLUMNS na pag-aari.

Code:

 Sub ColumnInsert_Example2 () Mga Column (End Sub 

Maaari naming tukuyin ang haligi sa dalawang paraan dito. Ang isa ay gumagamit ng karaniwang mga sanggunian sa alpabeto at isa pa ay gumagamit ng mga numero ng haligi.

Kung nais mong ipasok ang haligi pagkatapos ng haligi A pagkatapos ang code ay magiging COLUMNS ("B"). Kung gumagamit ka ng sanggunian ayon sa bilang pagkatapos ang code ay magiging COLUMNS (2).

Code:

 Sub ColumnInsert_Example2 () Mga Column ("B"). Wakas Sub 

Ngayon ang problema para sa iyo ay lumabas dahil kapag gumagamit kami ng mga ari-arian ng COLUMNS hindi kami makaka-access sa listahan ng IntelliSense.

Code:

 Sub ColumnInsert_Example2 () Mga Column ("B"). Entir End Sub 

Dito kailangan nating tiyakin kung ano ang ating ginagawa. Kaya ito ang dahilan kung bakit ipinakita ko sa iyo ang unang bagay ng RANGE.

Code:

 Sub ColumnInsert_Example2 () Mga Column ("B: B"). EntireColumn. Ipasok ang End Sub 

Halimbawa # 5 - Magpasok ng Mga Alternatibong Haligi

Ipagpalagay na mayroon kang data tulad ng larawan sa ibaba.

Kung nais mong magsingit ng mga bagong haligi pagkatapos ng bawat kahaliling hilera, kailangan naming gumamit ng mga loop ng VBA. Sa ibaba i-code ito ang pinasadya ng code para sa iyo.

Code:

 Sub haligi 

Ipapasok nito ang haligi na tulad nito.

Halimbawa # 6 - Ipasok ang Haligi Batay sa Halaga ng Cell

Maaari din kaming magpasok ng isang haligi batay sa halaga ng cell din. Halimbawa, tingnan ang data sa ibaba.

Dito ko nais na ipasok ang haligi kung ang unang hilera na halaga ng cell ay "Taon" at ang aking data ay dapat na gusto ito pagkatapos ng pagpasok ng mga bagong haligi.

Gamitin ang code sa ibaba upang maisagawa ang gawaing ito.

Code:

 Sub haligi Tapusin Kung x = x + 1 Susunod k End Sub 

Maaari mong i-download ang VBA Insert Columns Excel dito. Insertong Template ng Excel ng Mga Haligi ng VBA