VBA vasak funktsioon - Kuidas kasutada Exceli VBA vasakfunktsiooni?

Lang L: none (table-of-contents)

Exceli VBA vasakule

Exceli VBA vasakule

VBA Left on ka üks tekstifunktsioonide alla liigitatud töölehe funktsioonidest, mida rakenduses VBA-s kasutatakse. töölehemeetod, tagastab stringi vasakust osast määratud arvu tähemärke.

Mõned Exceli funktsioonid on integreeritud ka VBA-ga. Kõigist paljudest tekstifunktsioonidest on VBA LEFT üks neist funktsioonidest, mida kasutame üsna sageli kui teisi valemeid.

Kui teate exceli LEFT funktsiooni, siis on VBA LEFT funktsioon täpselt sama. See võib eraldada märke stringi vasakust küljest või kasutaja antud väärtusest.

Funktsiooni LEFT süntaks on täpselt sama mis töölehe funktsioonis.

Sellel on kaks argumenti.

String: see pole midagi muud kui väärtus või lahtriviide. Sellest väärtusest lähtuvalt otsime märke.
Pikkus: mitu tähemärki soovite sisestatud stringist eraldada . See peaks olema arvuline väärtus.

Kuidas kasutada Exceli VBA vasakfunktsiooni?

Näide 1

Oletame, et teil on sõna „Sachin Tendulkar” ja soovite sellest sõnast ainult 6 esimest märki. Näitame, kuidas vasakult ekstraheerida, kasutades VBA funktsiooni VASAK.

1. samm: looge makro nimi ja määrake muutuja stringiks.

Kood:

Sub Left_Example1 () Dim MyValue String End Sub

2. samm: määrake nüüd sellele muutujale väärtus

Kood:

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

3. samm: avage funktsioon VASAK.

Kood:

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

4. samm: esimene argument on öelda, mis on string või väärtus. Meie väärtus on siin „Sachin Tendulkar”.

Kood:

Sub Left_Eexample1 () Dim MyValue as String MyValue = Left ("Sachin Tendulkar", End Sub

5. samm: pikkus pole midagi muud kui see, kui palju märke vajame vasakult. Vajame 6 tähemärki.

Kood:

Sub Left_Eexample1 () Dim MyValue as String MyValue = Left ("Sachin Tendulkar", 6) End Sub

6. samm: näita väärtust VBA MsgBoxis.

Kood:

Sub Left_Eexample1 () Dim MyValue as String MyValue = Left ("Sachin Tendulkar", 6) MsgBox MyValue End Sub

7. samm: käivitage makro, kasutades klahvi F5, või käsitsi käivitamisvaliku kaudu, et tulemus tulemuseks saada teatekasti.

Väljund:

Selle asemel, et tulemust kuvada teatekastis, võime selle tulemuse salvestada ühte Exceli töölehe lahtritesse. Peame lihtsalt lisama lahtriviite ja muutuja väärtuse.

Kood:

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

Nüüd, kui käivitate selle koodi, saame väärtuse lahtrisse A1.

Näide # 2 - VASAK koos teiste funktsioonidega

Eeltoodud juhul oleme vajaliku tähemärgi pikkuse otse vasakust suunast andnud, kuid see sobib rohkem ühe või kahe väärtuse jaoks. Oletame, et allpool on teie Exceli lehel olevate väärtuste loend.

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. samm: käivitage see kood käsitsi või läbi F5, saame eesnime.

Saime ühe nime eesnime, kuid meil on ka mitu muud nime. Me ei saa välja kirjutada 100 rida koodi, kuidas siis välja tõmmata?

Siin tuleb pildile silmuste ilu. Allpool on silmusekood, mis võib kõrvaldada kõik soovimatud toimingud ja saab tööd teha kolmes reas.

Kood:

Alam Vasak_näide2 () Dim eesnimi stringina Dim i täisarvuna i = 2 kuni 9 Eesnimi = vasak (lahtrid (i, 1). Väärtus, InStr (1, lahtrid (i, 1). Väärtus, "") - 1) Lahtrid (i, 2). Väärtus = FirstName Next i End Sub