photosdematures.com

Tapusin ang Pag-andar sa VBA

Ang pagtatapos ay isang pahayag sa VBA na may maraming mga form sa mga aplikasyon ng VBA, ang simpleng pahayag ng End ay maaaring ilagay kahit saan sa code at awtomatiko nitong ihihinto ang pagpapatupad ng code, ang end statement ay ginagamit sa maraming mga pamamaraan tulad ng pagtatapos ng subprocedure o upang wakasan ang anumang pag-andar ng loop tulad ng End kung .

Para sa lahat, may katapusan at sa VBA hindi ito naiiba. Nakita mo siguro ang salitang ito naTapusin”Sa lahat ng mga code sa iyong VBA. Maaari tayong Magwakas sa "End Sub", "End Function", "End Kung". Karaniwan ang mga ito bilang alam natin na ang bawat Wakas ay nagpapahiwatig ng pagtatapos ng pamamaraan. Ang mga pahayag ng VBA End na ito ay hindi nangangailangan ng anumang espesyal na pagpapakilala dahil pamilyar kami dito sa aming pag-coding ng VBA.

Bukod sa nabanggit na "Wakas", mayroon kaming isang pag-aari na "Wakas" sa VBA. Sa artikulong ito, dadalhin ka namin sa ari-arian na iyon at kung paano ito magagamit sa aming pag-coding.

Tapusin ang Pag-aari sa VBA

Ang "Wakas" ay ang pag-aari na ginagamit namin sa VBA upang lumipat sa iminungkahing direksyon. Ang tipikal na halimbawa ng direksyon ay paglipat mula sa aktibong cell patungo sa huling ginamit na cell o huling cell ng pahalang na pahalang at patayo sa worksheet.

Halimbawa, isipin natin ito sa isang worksheet. Tingnan ang larawan sa ibaba.

Sa ngayon nasa A1 cell tayo.

Kung nais naming lumipat sa huling ginagamit na cell nang pahalang na ginagamit namin ang excel shortcut key Ctrl + Right Arrow, dadalhin tayo nito sa huling ginagamit na cell nang pahalang.

Katulad nito, kung nais naming lumipat sa huling ginagamit na cell pababa o patayo pinindot namin ang key ng shortcut Ctrl + Down Arrow.

Kaya upang lumipat mula kaliwa patungo sa kanan ay pinindot namin Ctrl + Left Arrow, upang ilipat mula sa ibaba hanggang sa tuktok ay pinindot namin Ctrl + Up Arrow.

Ang isang katulad na bagay ay maaaring gawin sa VBA ngunit hindi sa pamamagitan ng paggamit ng Ctrl key sa halip kailangan nating gamitin ang salita "Wakas".

Mga halimbawa ng Excel VBA End Function

Maaari mong i-download ang VBA End Excel Template dito - VBA End Excel Template

Halimbawa # 1 - Gumamit ng VBA End Property Upang Lumipat sa Worksheet

Tingnan natin kung paano gamitin ang Excel VBA End upang lumipat sa sheet. Una, kailangan nating magpasya kung aling cell ang kailangan nating ilipat. Ok, sabihin nating kailangan nating lumipat mula sa cell A1, kaya't mag-refer sa cell sa pamamagitan ng paggamit ng VBA Range object.

Code:

 Sub End_Example1 () Saklaw ("A1") End Sub 

Ilagay tuldok (.) upang makita ang listahan ng IntelliSense. Piliin ang "Tapusin" na pag-aari ng VBA mula sa listahan.

Code:

 Sub End_Example1 () Saklaw ("A1"). End End Sub 

Kapag ang napiling pag-aari napiling bukas na panaklong.

Code:

 Sub End_Example1 () Saklaw ("A1"). Tapusin (End Sub 

Sa sandaling buksan mo ang panaklong maaari naming makita ang lahat ng mga magagamit na pagpipilian na may "Katapusan" na pag-aari. Pumili "XlToRight" upang ilipat mula sa cell A1 hanggang sa huling ginamit na cell nang pahalang.

Code:

 Sub End_Example1 () Saklaw ("A1"). Tapusin (xlToRight) End Sub 

Matapos lumipat sa huling cell kailangan nating piliin kung ano ang kailangan nating gawin. Ilagay ang tuldok (.) Upang makita ang listahan ng IntelliSense.

Code:

 Sub End_Example1 () Saklaw ("A1"). Tapusin (xlToRight). Wakas Sub 

Piliin ang pamamaraang "Piliin" mula sa listahan ng IntelliSense.

Code:

 Sub End_Example1 () Saklaw ("A1"). Tapusin (xlToRight). Piliin ang End Sub 

Gagamitin ito mula sa cell A1 hanggang sa huling ginamit na cell nang pahalang.

Katulad nito, gamitin ang iba pang tatlong mga pagpipilian upang ilipat ang kanan, pakaliwa, pababa, pataas.

Upang Lumipat Kanan mula sa cell A1.

Code:

 Sub End_Example1 () Saklaw ("A1"). Tapusin (xlToRight). Piliin ang End Sub 

Upang Lumipat Pababa mula sa cell A1.

Code:

 Sub End_Example1 () Saklaw ("A1"). Wakas (xlDown). Piliin ang End Sub 

Upang Lumipat Paitaas mula sa cell A5.

Code:

 Sub End_Example1 () Saklaw ("A5"). Tapusin (xlUp). Piliin ang End Sub 

Upang Lumipat sa Kaliwa mula sa cell D1.

Code:

 Sub End_Example1 () Saklaw ("D1"). Tapusin (xlToLeft). Piliin ang End Sub 

Ang lahat ng mga code sa itaas ay ang mga halimbawang halimbawa ng paggamit ng "Wakas" na pag-aari upang lumipat sa worksheet.

Ngayon makikita namin kung paano pipiliin ang mga saklaw sa pamamagitan ng paggamit ng "Wakas" na pag-aari.

Halimbawa # 2 - Pagpili Gamit ang End Property

Kailangan naming Tapusin ang pag-aari upang piliin ang saklaw ng mga cell sa worksheet. Para sa halimbawang ito isaalang-alang ang data sa ibaba.

Piliin ang A1 hanggang sa Huling Ginamit na Cell

Upang mapili ang mga cell mula sa A1 hanggang sa huling ginamit na cell nang pahalang na unang banggitin ang cell A1 sa Range object.

Code:

 Sub End_Example2 () Saklaw ("A1", End Sub 

Para sa pangalawang argumento buksan ang isa pang object ng Saklaw at banggitin ang cell bilang A1 lamang.

Code:

 Sub End_Example2 () Saklaw ("A1", Saklaw ("A1") End Sub 

Magsara lamang ng isang bracket at maglagay ng isang tuldok upang mapili ang pag-aari ng Excel VBA End.

Code:

 Sub End_Example2 () Saklaw ("A1", Saklaw ("A1"). Tapusin (End Sub 

Piliin ngayon xlToRight at isara ang dalawang braket.

Code:

 Sub End_Example2 () Saklaw ("A1", Saklaw ("A1"). End (xlToRight)) End Sub 

Pinili ngayon ang pamamaraang "Piliin".

Code:

 Sub End_Example2 () Saklaw ("A1", Saklaw ("A1"). Tapusin (xlToRight)). Piliin ang End Sub 

Ok, tapos na tayo.

Patakbuhin ang code na ito upang makita ang epekto.

Tulad ng nakikita mo napili nito ang saklaw na A1 hanggang D1.

Katulad nito upang pumili pababa gamitin ang code sa ibaba.

Code:

 Sub End_Example2 () Saklaw ("A1", Saklaw ("A1"). Tapusin (xlDown)). Piliin ang 'Upang pumili mula kaliwa hanggang kanan End Sub 

Code:

 Sub End_Example2 () Saklaw ("A1", Saklaw ("A1"). Tapusin (xlDown)). Piliin ang 'Upang pumili mula sa itaas hanggang pababa End Sub 

Code:

 Sub End_Example2 () Saklaw ("D1", Saklaw ("D1"). Tapusin (xlToLeft)). Piliin ang 'Upang pumili mula sa kanan pakaliwa End Sub 

Code:

 Sub End_Example2 () Saklaw ("A5", Saklaw ("A5"). Tapusin (xlUp)). Piliin ang 'Upang pumili mula sa ibaba hanggang sa End Sub 

Halimbawa # 3 - Piliin ang Kanan sa Kaliwa, Kanan sa Ibaba, at Itaas

Nakita namin kung paano pumili nang pahalang at patayo. Upang mapili ang parehong patayo at pahalang kailangan naming gumamit ng dalawang "Wakas" na mga katangian. Upang mapili ang data mula sa A1 hanggang D5, kailangan naming gamitin ang code sa ibaba.

Code:

 Sub End_Example3 () Saklaw ("A1", Saklaw ("A1"). Tapusin (xlDown). Tapusin (xlToRight)). Piliin ang 'To mula sa cell A1 upang huling magamit ang cell pababa at pakanan End Sub 

Pipiliin nito ang kumpletong saklaw tulad ng nasa ibaba.

Tulad nito, maaari naming gamitin ang ari-arian ng VBA "End" Function upang pumili ng isang saklaw ng mga cell.