Pag-andar ng VBA LEN

Ang Len function ay isang karaniwang pag-andar para sa parehong worksheet at VBA, ito ay isang built-in na function para sa pareho ng mga platform at ang syntax na gagamitin ang pagpapaandar na ito ay magkatulad din, ang mga argumento na ginagawa ng pagpapaandar na ito sa parehong mga platform ay magkatulad na kung saan ay isang string at ang paggamit o ang output para sa pagpapaandar na ito ay pareho sa pagbalik nito sa haba ng isang string.

Ibinabalik ng pagpapaandar ng VBA LEN ang "haba ng string" ibig sabihin, ibinabalik nito kung gaano karaming mga character ang naroroon sa ibinigay na halaga. Sa lahat ng mga pag-andar ng string sa VBA, ang "LEN" ay ang pinaka-hindi ginagamit na pag-andar. Nakita ko ang pagpapaandar na "VBA LEN" na ginamit bilang function ng suporta para sa iba pang mga function ng string tulad ng VBA MID Function at VBA RIGHT function.

Paano mo mahahanap ang haba ng string o halaga?

Halimbawa, kung ikaw ang pangungusap "Hello Guys, Good Morning !!!" at ikaw kung nais mong hanapin ang bilang ng mga character dito paano mo ito mahahanap? Sa artikulong ito, ipapakita namin sa iyo ang pagpapaandar na "VBA LEN".

Formula ng VBA LEN Function

Ang pag-andar ng LEN ay may isang syntax lamang ibig sabihin Expression.

Isang expression ay walang anuman kundi ang halagang sinusubukan nating subukan.

Halimbawa, babalik si Len ("Mabuti") 4.

Mga halimbawa

Nasa ibaba ang mga halimbawa ng VBA Length of String Function.

Halimbawa # 1

Ang haba ng isang function na VBA String ay napaka-simpleng gamitin. Halimbawa, tingnan ang nasa ibaba VBA code.

Code:

 Sub LEN_Example () Dim na Kabuuan ng_Length Bilang String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub

Sa variable sa itaas ng code ay "Kabuuang_Length".

Madilim Kabuuan_Length Bilang String

Para sa variable na ito, itinalaga namin ang halaga sa pamamagitan ng pagpapaandar ng VBA LEN.

Total_Length = Len ("Excel VBA")

Para sa pagpapaandar ng LEN, itinalaga namin ang halaga bilang "Excel VBA".

Total_Length = Len ("Excel VBA")

Susunod, ipinapakita namin ang resulta sa kahon ng mensahe ng VBA.

Kabuuan ng MsgBox_Length

Kapag pinatakbo ko ang code na ito gamit ang F5 key o mano-mano, makakakuha kami ng 9 bilang isang resulta dahil ang puwang ay isang character din.

Ang VBA LEN bilang Support Function

Halimbawa # 1

Ang layunin ng pag-andar ng LEN na halos ginagamit sa iba pang mga pagpapaandar. Ginamit ko ang pagpapaandar na ito sa mga pag-andar ng KARAPATAN at Instr.

Halimbawa, tingnan ang nasa ibaba na sample na data.

Mula sa nabanggit na data, kailangan naming kunin nang magkahiwalay ang Petsa at Hiwalay na Mga Komento. Kopyahin ang data sa itaas sa iyong excel sheet at i-paste sa Cell A1.

Upang makuha ang mga elementong ito, kailangan naming gamitin ang pagpapaandar ng LEN sa iba pang mga pagpapaandar ng string. Ang code sa ibaba ang gagawa ng trabaho para sa amin.

Code:

 Sub LEN_Example1 () Dim Ang amingValue Bilang String Dim k As Long Para sa k = 2 To 6 'Sa kasong ito ang aking data ay nagsimula sa pangalawang cell at nagtatapos sa ika-6. 'Batay sa iyong data baguhin ang mga numero na OurValue = ActiveSheet.Cells (k, 1) .Value' Ito ay maghahatid ng unang 10 mga character ie Petsa ng bahagi ng ActiveSheet.Cells (k, 2) .Value = Left (Trim (OurValue), 10) 'Aalisin nito ang bahagi ng mga komento sa ActiveSheet.Cells (k, 3) .Value = Mid (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Susunod na End Sub

Kapag pinatakbo namin ang code na ito nang manu-mano o sa pamamagitan ng F5 key, makukuha namin ang resulta tulad ng nasa ibaba.

Halimbawa # 2

Ngayon ay ipapakita ko sa iyo kung paano gamitin ang VBA Haba ng string bilang isang function na suporta upang makuha ang huling pangalan ng buong pangalan na may TAMA at pagpapaandar ng Instr.

Para sa demonstrasyon tingnan ang data sa ibaba.

Mula sa listahan sa itaas, kailangan nating kunin ang Huling Pangalan mula sa buong pangalan. Ang code sa ibaba ay kukuha ng apelyido. Ginamit bilang isang function ng suporta ang LEN dito.

Code:

 Sub LEN_Example2 () Dim FullName Bilang String Dim k As Long For k = 2 To 8 FullName = ActiveSheet.Cells (k, 1) .Value 'Kukuha ito ng apelyido na ActiveSheet.Cells (k, 2) .Value = Right (FullName , Len (FullName) - InStr (1, FullName, "")) 'Nahanap ni LEN ang buong bilang ng mga character' Si Instr ay nakakahanap ng space character 'LEN - Magbibigay ang Inst ng kabuuang mga character mula sa kanang Susunod na End Sub

Patakbuhin ang code gamit ang F5 key o maaari kang tumakbo nang manu-mano at makita ang resulta.

Maaari mong i-download ang haba ng String ng Excel VBA dito - Template ng Pag-andar ng VBA LEN

photosdematures.com