photosdematures.com

Excel VBA XLUP

Ang isang bagay na kailangan mong tandaan habang nagsusulat ng VBA code ay kung ano ang ginagawa mo sa regular na worksheet at maaari mo ring kopyahin ang parehong bagay sa VBA din. Ang isang tulad ng keyword sa VBA coding ay "XLUP", sa artikulong ito ipapakita namin sa iyo kung ano ang keyword na ito sa VBA coding at kung paano ito gamitin sa coding.

Paano Gumamit ng VBA XLUP sa Coding?

Ang mga sumusunod ay ang mga halimbawa ng excel VBA XLUP.

Maaari mong i-download ang VBA XLUP Excel Template na ito dito - VBA XLUP Excel Template

Halimbawa # 1 - ilipat ang mga cell sa tinanggal na posisyon ng mga cell

Halimbawa, tingnan ang senaryo ng data sa ibaba, kung saan kailangan mong tanggalin ang data ng mga may kulay na mga cell at higit pa sa data ng mga hilera sa ibaba sa data sa itaas.

Ang isang paraan ng pagtanggal nito sa worksheet ay ang piliin ang mga cell na kung saan maaari naming simpleng tanggalin ang buong hilera mismo. Ngunit narito ang mga sitwasyon na medyo nakakalito dahil mayroon akong mga may kulay na mga cell sa Talahanayan 1 kapag tinanggal namin ang buong hilera kahit na ang mga hilera ng Talaan 2 ay natanggal din, ngunit hindi namin nais na mangyari sa halip ay kailangan lamang naming tanggalin ang mga may kulay na hilera at sa ibaba ng mga cell ay dapat lumipat pataas ang posisyon ng mga natanggal na cell.

Una, piliin ang mga may kulay na mga cell at pindutin Ctrl + Minus Symbol (-) upang buksan ang pagpipiliang "Tanggalin".

Shortcut Key upang Buksan ang Opsyon na "Tanggalin"

Sa window ng mga pagpipilian na "tanggalin", mayroon kaming apat na pagpipilian, maaari naming piliin ang aksyon ayon sa aming kinakailangan. Dahil kailangan nating ilipat ang aming mga cell para sa mga natanggal na cell positon, piliin ang "Shift Cell Up".

Magkakaroon kami ng hindi nababago na hilera ng Talaan 2.

Ang aksyon na ito sa VBA ay nangangailangan ng paggamit ng "XLUP" na pag-aari upang magsagawa ng isang katulad na hanay ng mga aksyon sa VBA. Pumunta ngayon sa window ng VBA editor at simulan ang iyong macro name.

Code:

 Sub XLUP_Example () Tapusin ang Sub 

Unang ibigay ang cell RANGE upang maisama sa operasyong ito. Sa aksyon na ito, ang mga unang cell na tatanggalin at ilipat ang pataas ay "A5: B5" cells.

Code:

 Sub XLUP_Example () Saklaw ("A5: B5") End Sub 

Para sa saklaw na ito ng mga cell piliin ang pamamaraan na "Tanggalin".

Code:

 Sub XLUP_Example () Saklaw ("A5: B5"). Tanggalin ang End Sub 

Tulad ng nakikita mo para sa pamamaraang "Tanggalin", mayroon kaming isang opsyonal na argumento bilang [Shift], para sa argument na ito kailangan naming ipasok ang argument bilang "XLUP".

Code:

 Sub XLUP_Example () Saklaw ("A5: B5"). Tanggalin ang shift: = xlUp End Sub 

Ngayon ay maaari mong patakbuhin ang code na ito nang manu-mano o sa pamamagitan ng shortcut excel key F5, upang makita ang resulta.

Tulad ng nakikita mo sa Talahanayan 1, mayroon kaming hilera numero 6 na inilipat hanggang sa ika-5 hilera at sa kabilang banda, ang 2 hilera (kulay) ay hindi nabago, kaya sa pamamagitan ng paggamit ng pagpipiliang "VBA XLUP" magagawa natin ang operasyong ito.

Halimbawa # 2 - Hanapin ang Huling Ginamit na Hilera sa pamamagitan ng paggamit ng XLUP

Pag-isipan ang isang sitwasyon kung nasaan ka sa A20th cell (tingnan ang larawan sa ibaba) at ang iyong huling ginamit na cell ay A14.

Ngayon kung nais mong piliin ang huling ginamit na cell (A14). paano mo gagawin sa pamamagitan ng paggamit ng isang shortcut key ???

Gagamitin namin Ctrl + Up Arrow susi upang lumipat sa huling ginamit na cell mula sa kasalukuyang posisyon.

Shortcut Key upang Lumipat sa Huling ginamit na Cell

Kaya, mula sa kasalukuyang cell, napili ng Ctrl + Up arrow ang huling ginamit na cell. Katulad nito, sa VBA coding na ginagamit namin TAPOS (XLUP) upang gumanap ng pareho.

Bumalik ngayon sa VBA coding window.

Sa window na ito, isasagawa namin ang gawain ng paghahanap ng huling ginamit na hilera sa worksheet. Lumikha ng isang bagong subprocedure sa window ng VBA.

Code:

 Sub XLUP_Example1 () Tapusin ang Sub 

Upang maiimbak ang huling ginamit na numero ng hilera. tukuyin ang variable bilang uri ng data ng LABONG VBA.

Code:

 Sub XLUP_Example1 () Malabo ang Huling_Row_Number Bilang Long End Sub 

Ngayon para sa variable na ito, itatalaga namin ang huling ginamit na numero ng hilera.

Code:

 Sub XLUP_Example1 () Malabo ang Huling_Row_Number Bilang Mahabang Huling_Row_Number = Katapusan ng Sub 

Ngayon gamitin ang RANGE object at buksan ang object na ito.

Code:

 Sub XLUP_Example1 () Malabo ang Huling_Row_Number Mahabang Huling_Row_Number = Saklaw (Tapusin ang Sub 

Ngayon banggitin ang aktibong cell (A20) para sa PAGBABAGO bagay

Code:

 Sub XLUP_Example1 () Malabo ang Huling_Row_Number Bilang Long Range ("A14"). Piliin ang Last_Row_Number = Saklaw ("A20") Tapusin ang Sub 

Ngayon buksan ang END na pag-aari para sa naibigay na saklaw na cell.

Code:

 Sub XLUP_Example1 () Malabo ang Huling_Row_Number Bilang Long Range ("A14"). Piliin ang Last_Row_Number = Range ("A20"). Tapusin (End Sub 

Tulad ng nakikita mo sa itaas, kailangan naming i-arrow ang mga key key tulad ng "xlDown", "xlToLeft", "xlToRight", "xlUp". Dahil lumilipat kami mula sa A14 cell piliin ang pagpipiliang "VBA XLUP".

Code:

 Sub XLUP_Example1 () Malabo ang Huling_Row_Number Bilang Long Range ("A14"). Piliin ang Last_Row_Number = Saklaw ("A20"). Tapusin (xlUp) Tapusin ang Sub 

Matapos lumipat mula sa A14 cell kailangan nating banggitin kung ano ang kailangan nating gawin dahil kailangan natin ang huling ginamit na numero ng hilera gagamitin ko ang ROW na pag-aari.

Code:

 Sub XLUP_Example1 () Malabo ang Huling_Row_Number Bilang Long Range ("A14"). Piliin ang Last_Row_Number = Saklaw ("A20"). Tapusin (xlUp) .Row End Sub 

Ngayon para sa kahon ng mensahe italaga ang halaga ng variable "Huling_Row_Number".

Code:

 Sub XLUP_Example1 () Malabo ang Huling_Row_Number Bilang Long Range ("A14"). Piliin ang Last_Row_Number = Saklaw ("A20"). Tapusin (xlUp) .Row MsgBox Last_Row_Number End Sub 

Maaari mo nang patakbuhin ang code na ito nang manu-mano o sa pamamagitan ng shortcut key F5, upang makita ang resulta.

Kaya't ang kahon ng mensahe na ipinapakita ang huling ginamit na numero ng hilera bilang 14, kaya ang aming huling data na ginamit na numero ng hilera ay A14 cell.

Sa kasong ito, dahil napakaliit ng data nagsimula kami mula sa A20 cell ngunit kapag malaki ang data hindi namin masasabi kung aling cell ang unang isasaalang-alang, sa mga ganitong kaso kailangan naming gumamit ng ibang pamamaraan.

Kailangan naming gumamit ng pag-aari ng CELLS, sa ibaba ay ang halimbawa ng pareho.

Code:

 Sub XLUP_Example2 () Malabo ang Huling_Row_Number Mahabang Huling_Row_Number = Mga Cell (Rows.Count, 1). Tapusin (xlUp) .Row MsgBox Last_Row_Number End Sub 

Maaari mo nang patakbuhin ang code na ito nang manu-mano o sa pamamagitan ng shortcut key F5, upang makita ang resulta.

Sa halip na isang bagay na RANGE, gumamit ako ng pag-aari ng CELLS. Hayaan mong ipaliwanag ko ito sa iyo nang detalyado.

ROW.COUNT bibilangin nito kung ilan ang mga hilera doon sa haligi 1. Ang gagawin nito ay isasaalang-alang nito ang huling cell sa worksheet sa halip na random cell address, sa nabanggit na kaso ginamit namin ang A14 bilang random cell address.

Mga Bagay na Dapat Tandaan tungkol sa VBA XLUP

• Ang XLUP ay salitang ginamit sa VBA code upang magtiklop sa pagkilos ng "Up Arrow" key sa excel.
• Ginagamit ang VBA XLUP upang ilipat mula sa mga aktibong cell patungo sa itaas na cell o huling ginamit na cell.
• Pangkalahatang ginagamit ang XLUP kasama ang END na pag-aari sa VBA.