VBA LEN funkcija | Kā izmantot LEN, lai programmā Excel atrastu virknes garumu?

Len funkcija ir kopīga funkcija gan darblapai, gan VBA, tā ir iebūvēta funkcija abām platformām, un sintakse, lai izmantotu šo funkciju, ir arī līdzīga, argumenti, kurus šī funkcija izmanto abās platformās, ir līdzīgi, kas ir virkne un lietojums vai šīs funkcijas izvade ir tāda pati kā atgriež virknes garumu.

VBA LEN funkcija

Funkcija VBA LEN atgriež “virknes garumu”, ti, atgriež, cik rakstzīmju ir piegādātajā vērtībā. No visām VBA virkņu funkcijām “LEN” ir visvairāk nepietiekami izmantota funkcija. Esmu redzējis, ka funkcija “VBA LEN” tiek izmantota kā atbalsta funkcija citām virkņu funkcijām, piemēram, VBA MID funkcijām un VBA RIGHT funkcijai.

Kā atrast virknes vai vērtības garumu?

Piemēram, ja jūs sakāt: “Sveiki puiši, labrīt !!!” un jūs, ja vēlaties atrast tajā rakstzīmju skaitu, kā jūs to atradīsit? Šajā rakstā mēs parādīsim funkciju “VBA LEN”.

VBA LEN funkcijas formula

LEN funkcijai ir tikai viena sintakse, ti, izteiksme.

Izteiksme ir nekas cits kā vērtība, kuru mēs cenšamies pārbaudīt.

Piemēram, Lens (“Labs”) atgriezīs vērtību 4.

Piemēri

Tālāk ir sniegti VBA virknes funkcijas garuma piemēri.

1. piemērs

VBA virknes funkcijas garums ir ļoti vienkāršs. Piemēram, apskatiet zemāk redzamo VBA kodu.

Kods:

 Sub LEN_Example () Dim Total_Length As String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub 

Iepriekš minētajā koda mainīgajā lielums ir “Total_Length”.

Dim Total_Length kā ​​virkne

Šim mainīgajam mēs esam piešķīruši vērtību, izmantojot funkciju VBA LEN.

Total_Length = Len ("Excel VBA")

Funkcijai LEN mēs esam piešķīruši vērtību “Excel VBA”.

Total_Length = Len ("Excel VBA")

Tālāk mēs parādām rezultātu VBA ziņojumu lodziņā.

MsgBox Total_Length

Kad es palaidu šo kodu, izmantojot F5 taustiņu vai manuāli, mēs iegūsim 9, jo atstarpe ir arī raksturs.

VBA LEN kā atbalsta funkcija

1. piemērs

LEN funkcijas mērķis galvenokārt tiek izmantots kopā ar citām funkcijām. Esmu izmantojis šo funkciju ar RIGHT & Instr funkcijām.

Piemēram, aplūkojiet zemāk redzamos datu paraugus.

No iepriekšminētajiem datiem mums datums jāizņem atsevišķi un piezīmes atsevišķi. Nokopējiet iepriekš minētos datus savā Excel lapā un ielīmējiet šūnā A1.

Lai iegūtu šos elementus, mums jāizmanto funkcija LEN ar citām virkņu funkcijām. Zemāk redzamais kods padarīs darbu mūsu vietā.

Kods:

Sub LEN_Example1 () Dim OurValue As String Dim k As Long For k = 2 To 6 'Šajā gadījumā mani dati sākās no otrās šūnas un beidzas 6. vietā. "Pamatojoties uz jūsu datiem, mainiet skaitļus OurValue = ActiveSheet.Cells (k, 1) .Value" Tas iegūs pirmās 10 rakstzīmes, ti, datuma daļu ActiveSheet.Cells (k, 2). Vērtība = pa kreisi (Trim (OurValue), 10) "Tādējādi tiks izvilkta piezīmju daļa ActiveSheet.Cells (k, 3). Vērtība = Vidēja (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Next End Sub

Palaižot šo kodu manuāli vai caur F5 taustiņu, mēs iegūsim rezultātu, piemēram, zemāk.

2. piemērs

Tagad es jums parādīšu, kā izmantot VBA virknes garumu kā atbalsta funkciju, lai izvilktu pilna vārda uzvārdu ar funkciju RIGHT & Instr.

Demonstrācijai aplūkojiet zemāk redzamos datus.

No iepriekš minētā saraksta mums jāizņem uzvārds no pilna vārda. Zemāk esošais kods iegūs uzvārdu. LEN šeit tiek izmantota kā atbalsta funkcija.

Kods:

 Apakšējā LEN_Example2 () Dim FullName kā virkne Dim k As Long Par k = 2 līdz 8 FullName = ActiveSheet.Cells (k, 1). Vērtība 'Tas izvilks uzvārdu ActiveSheet.Cells (k, 2). Value = Right (FullName) , Len (Pilns nosaukums) - InStr (1, Pilns nosaukums, "")) '' LEN atrod pilnu rakstzīmju skaitu. Instr atrod atstarpes raksturs. 

Palaidiet kodu, izmantojot F5 taustiņu, vai arī jūs varat palaist manuāli un redzēt rezultātu.

Šo Excel VBA virknes garumu varat lejupielādēt šeit - VBA LEN funkciju veidne


$config[zx-auto] not found$config[zx-overlay] not found