VBA kreisā funkcija - Kā izmantot Excel VBA kreiso funkciju?

Satura rādītājs

Excel VBA pa kreisi

Excel VBA pa kreisi

VBA Left ir arī viena no darblapas funkcijām, kas klasificētas zem teksta funkcijām, kas tiek izmantota VBA ar lietojumprogrammu. darblapas metode, tā atgriež norādīto rakstzīmju skaitu no virknes kreisās daļas.

Dažas Excel funkcijas ir integrētas arī VBA. No visām daudzajām teksta funkcijām VBA LEFT ir viena no tām funkcijām, kuras mēs izmantojam diezgan bieži nekā citas formulas.

Ja jūs zināt excel LEFT funkciju, tad VBA LEFT funkcija ir tieši tāda pati. Tas var iegūt rakstzīmes no virknes kreisās puses vai lietotāja norādītās vērtības.

Funkcijas LEFT sintakse ir tieši tāda pati kā darblapas funkcijā.

Tam ir divi argumenti.

Virkne: tas nav nekas cits kā vērtība vai šūnas atsauce. No šīs vērtības mēs cenšamies sagriezt rakstzīmes.
Garums: cik rakstzīmju vēlaties izvilkt no piegādātās virknes . Tam vajadzētu būt skaitliskai vērtībai.

Kā izmantot Excel VBA kreiso funkciju?

1. piemērs

Pieņemsim, ka jums ir vārds “Sachin Tendulkar”, un jūs vēlaties no šī vārda tikai pirmās 6 rakstzīmes. Mēs parādīsim, kā izvilkt no kreisās puses, izmantojot VBA funkciju LEFT.

1. darbība: izveidojiet makro nosaukumu un definējiet mainīgo kā virkni.

Kods:

Sub Left_Example1 () Dim MyValue As String End Sub

2. solis: Tagad piešķiriet šim mainīgajam vērtību

Kods:

Sub Left_Example1 () Dim MyValue As String MyValue = End Sub

3. darbība: atveriet LEFT funkciju.

Kods:

Sub Left_Example1 () Dim MyValue As String MyValue = Left (End Sub

4. solis: pirmais arguments ir pateikt, kāda ir virkne vai vērtība. Mūsu vērtība šeit ir “Sachin Tendulkar”.

Kods:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", End Sub

5. solis: garums nav nekas cits kā tas, cik daudz rakstzīmju mums vajag no kreisās puses. Mums vajag 6 rakstzīmes.

Kods:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) Beigas Sub

6. darbība: parādiet vērtību VBA MsgBox.

Kods:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) MsgBox MyValue End Sub

7. darbība: palaidiet makro, izmantojot taustiņu F5, vai manuāli, izmantojot palaišanas opciju, lai rezultātu iegūtu ziņojumu lodziņā.

Izeja:

Tā vietā, lai rezultātu parādītu ziņojuma lodziņā, mēs varam saglabāt šo rezultātu vienā no mūsu Excel darblapas šūnām. Mums vienkārši jāpievieno šūnas atsauce un mainīgā vērtība.

Kods:

Sub Left_Example1 () Dim MyValue as String MyValue = Left ("Sachin Tendulkar", 6) Range ("A1"). Value = MyValue End Sub

Tagad, ja palaidīsit šo kodu, vērtību mēs iegūsim šūnā A1.

2. piemērs - LEFT ar citām funkcijām

Iepriekš minētajā gadījumā mēs tieši piegādājām vajadzīgo rakstzīmju garumu no kreisās puses, taču tas ir vairāk piemērots vienai vai divām vērtībām. Pieņemsim, ka zemāk ir saraksts ar vērtībām, kas ir jūsu Excel lapā.

In each case, first name characters are different from one to another; we cannot directly specify the number of characters we needed from each name.

This is where the beauty of other functions will come into the picture. In order to supply the number of characters dynamically, we can use the “VBA Instr” function.

In the above set of names, we need all the characters from the left until we reach space character. So Instr function can return those many characters.

Step 1: Similarly, start an excel macro name and define a variable as a string.

Code:

Sub Left_Example2() Dim FirstName As String End Sub

Step 2: Assign the value to the variable through the LEFT function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left( End Sub

Step 3: Here, we need to refer the cell to get the value from the cells. So write the code as CELLE (2,1).Value.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2,1).Value, End Sub

Step 4: The next thing is how many characters we need. After applying the LEFT function, don’t enter the length of the characters manually. Apply the Instr function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) End Sub

Step 5: Store this result in the B2 cell. So the code is CELLS (2,2).value = FirstName

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) Cells(2, 2).Value = FirstName End Sub

6. solis: palaidiet šo kodu manuāli vai caur F5, mēs iegūsim vārdu.

Mēs saņēmām vārdu vienam vārdam, bet mums ir arī vairāki citi vārdi. Mēs nevaram uzrakstīt 100 koda rindiņas, lai tās iegūtu, tad kā mēs to iegūstam?

Šeit attēlā parādās cilpu skaistums. Zemāk ir cilpas kods, kas var novērst visas nevēlamās darbības un var veikt darbu 3 rindās.

Kods:

Apakšējais kreisais_piemērs2 () Dim FirstName kā virkne Dim i kā vesels skaitlis i = 2 līdz 9 FirstName = Left (šūnas (i, 1). Vērtība, InStr (1, šūnas (i, 1). Vērtība, "") - 1) Šūnas (i, 2). Vērtība = FirstName Next i End Sub