photosdematures.com

Ang pagpasok ng isang hilera sa VBA ay medyo naiiba mula sa pagpasok ng isang haligi sa VBA, sa mga haligi ginamit namin ang buong pamamaraan ng haligi ngunit upang ipasok ang mga hilera ginagamit namin ang paraan ng worksheet na may insert na utos upang magsingit ng isang hilera, nagbibigay din kami ng isang sanggunian sa hilera kung saan nais naming ipasok isa pang hilera na katulad ng mga haligi.

Ipasok ang Hilera sa VBA Excel

Maaari naming maisagawa ang lahat ng lahat ng lahat ng mga pagkilos na ginagawa namin sa excel sa VBA coding. Maaari nating kopyahin, maaari nating i-paste, maaari nating tanggalin, at magagawa natin ang maraming bagay sa pamamagitan ng wika ng VBA. Ang "Inserting Row" ay isa sa gayong pamamaraan na madalas nating ginagawa sa excel. Sa artikulong ito, ipapakita namin sa iyo kung paano maisagawa ang insert na paraan ng hilera sa VBA.

Paano Ipasok ang Hilera sa Excel VBA?

Nasa ibaba ang iba't ibang mga pamamaraan ng paggamit ng VBA upang magsingit ng isang hilera sa excel.

Paraan # 1 - Paggamit ng Pamamaraan ng Pagpasok

Sa VBA upang magsingit ng isang hilera, kailangan naming gumamit ng isang katulad na pamamaraan na ginamit namin sa excel worksheet. Sa VBA kailangan naming gamitin ang saklaw na bagay upang maipasok ang hilera.

Halimbawa, tingnan ang code sa ibaba.

Code:

 Sub InsertRow_Example1 () Saklaw ("A1"). Ipasok ang End Sub 

Ang code na ito ay ilipat ang cell A1 sa B1 at ipasok ang nag-iisang cell.

Magdudulot ito ng napakaraming mga problema sa mga tuntunin ng paghawak ng data. Ililipat lamang nito ang nabanggit na cell pababa at lahat ng iba pang nauugnay na mga haligi ay mananatiling pareho.

Paraan # 2 - Paggamit ng Buong Pag-aari ng Hilera

Nangungunang hilera ng insert ay maaari talaga kaming gumamit ng maraming mga pamamaraan. Ang pamamaraan sa ibaba ay magpapasok ng buong hilera sa itaas ng napiling cell.

Hakbang 1: Nabanggit ang cell address una

Code:

 Sub InsertRow_Example2 () Saklaw ("A1"). Wakas Sub 

Hakbang 2: Sa halip na gamitin lamang ang piliin angBuong hilera”Pag-aari.

Code:

 Sub InsertRow_Example2 () Saklaw ("A1"). EntireRow. Wakas Sub 

Hakbang 3: Matapos ma-access ang buong row property ay gamitin ang paraan ng pagsingit.

Code:

 Sub InsertRow_Example2 () Saklaw ("A1"). EntireRow.Insert End Sub 

Ipapasok nito ang hilera sa itaas ng cell A1. Dahil ang A1 ang unang hilera lilipat ito sa A1 cell patungong B1.

Tulad ng maaari mo sa imahe sa itaas kailangan mong ipasok ang buong hilera, hindi ang solong cell.

Paraan # 3 - Paggamit ng Mga Numero ng Hilera

Sa halimbawa sa itaas, ginamit lamang namin ang solong-cell address at ipinasok ang hilera. Gayunpaman, maaari din naming ipasok ang mga ito sa pamamagitan ng paggamit ng mga numero ng hilera.

Ipagpalagay na nais mong magsingit ng isang hilera sa ibaba ng ika-5 hilera, kailangan muna naming banggitin ang mga numero ng hilera gamit ang RANGE object.

Code:

 Sub InsertRow_Example3 () Saklaw ("6: 6"). Wakas Sub 

Dahil nabanggit namin ang buong hilera bilang 6: 6 kailangan naming gamitin ang Buong row na pag-aari dito, maaari naming tuwid na gamitin ang pamamaraang "INSERT".

Code:

 Sub InsertRow_Example3 () Saklaw ("6: 6"). Ipasok ang End Sub 

Ipapasok din nito ang buong hilera hindi ang solong cell.

Sa kaso kung nais mong magsingit ng dalawang mga hilera sa ibaba ng ika-5 hilera kailangan naming pumili muna ng 2 mga hilera at pagkatapos ay gamitin ang pamamaraan ng INSERT.

 Sub InsertRow_Example3 () Saklaw ("6: 7"). Ipasok ang End Sub 

Ipapasok nito ang dalawang mga hilera sa ibaba ng ika-5 hilera.

Tulad nito, maaari naming ipasok ang maraming mga hilera hangga't maaari sa worksheet.

Paraan # 4 - Paggamit ng Aktibong Pag-aari ng Cell

Maaari naming gamitin ang pag-aari ng Active Cell VBA upang magsingit ng mga hilera. Ang aktibong cell ay walang anuman kundi isang kasalukuyang napiling cell.

Ipagpalagay na nasa cell B5 ka at nais mong magsingit ng isang hilera sa itaas maaari kang gumamit ng aktibong pag-aari ng cell.

 Sub InsertRow_Example4 () ActiveCell.EntireRow. Ipasok ang End Sub 

Ipapasok nito ang hilera sa itaas ng aktibong cell.

Paraan # 5 - Paggamit ng Aktibong Pag-aari ng Cell na may Offset Function

Ipagpalagay na nais mong magsingit ng isang hilera pagkatapos ng 2 mga hilera ng aktibong cell, kailangan naming gamitin ang Offset na function upang mabawi ang bilang ng mga hilera.

Ipagpalagay na nasa B5 cell ka.

Kung nais mong ipasok ang hilera pagkatapos ng ika-2 hilera mula sa aktibong cell pagkatapos ay maaari naming gamitin ang code sa ibaba.

Code:

 Sub InsertRow_Example5 () ActiveCell.Offset (2, 0) .EntireRow. Ipasok ang End Sub 

Ipapasok nito ang hilera pagkatapos ng ika-6 na hilera.

Ipasok ang Mga Kahaliling Rows

Ang pagpasok ng mga kahaliling hilera ay madalas na napag-alaman ko ng maraming beses. Para sa pagtingin sa imahe ng data sa ibaba.

Ngayon kailangan naming magsingit ng mga kahaliling hilera. Kailangan naming gumamit ng mga loop upang maipasok ang bawat kahaliling hilera.

Code:

 Sub InsertRow_Example6 () Dim K Bilang Integer Dim X Bilang Integer X = 1 Para sa K = 1 To 4 Cells (X, 1). IdireRow. Ipasok ang X = X + 2 Susunod na K End Sub 

Ipapasok nito ang mga hilera na tulad nito.

Maaari mong i-download ang VBA Insert Row Excel dito. Ipasok ng VBA na Template ng Row Excel