VBA vasen toiminto - Kuinka käyttää Excel VBA Left -toimintoa?

Sisällysluettelo

Excel VBA vasemmalla

Excel VBA vasemmalla

VBA Left on myös yksi laskentataulukon toiminnoista, jotka on luokiteltu tekstitoimintojen alle ja jota VBA käyttää sovelluksessa. laskentataulukon menetelmä, se palauttaa määritetyn määrän merkkejä merkkijonon vasemmasta osasta.

Osa Excel-toiminnoista on integroitu myös VBA: han. Kaikista monista tekstitoiminnoista VBA LEFT on yksi niistä toiminnoista, joita käytämme melko usein kuin muita kaavoja.

Jos tiedät excel LEFT -toiminnon, VBA LEFT -toiminto on täsmälleen sama. Se voi poimia merkit merkkijonon vasemmalta puolelta tai käyttäjän antaman arvon.

VASEN-funktion syntaksit ovat täsmälleen samat kuin taulukkofunktiossa.

Sillä on kaksi perustetta.

Merkkijono: Tämä ei ole muuta kuin arvo tai soluviite. Tästä arvosta haluamme pilkkoa merkit.
Pituus: Kuinka monta merkkiä haluat purkaa toimittamastasi merkkijonosta . Tämän pitäisi olla numeerinen arvo.

Kuinka käyttää Excel VBA Left -toimintoa?

Esimerkki 1

Oletetaan, että sinulla on sana "Sachin Tendulkar" ja haluat vain tämän sanan 6 ensimmäistä merkkiä. Näytämme kuinka poimia vasemmalta VBA-toiminnolla VASEN.

Vaihe 1: Luo makron nimi ja määritä muuttuja merkkijonoksi.

Koodi:

Sub Left_Example1 () Dim MyValue as String End Sub

Vaihe 2: Määritä nyt arvo tälle muuttujalle

Koodi:

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

Vaihe 3: Avaa VASEN-toiminto.

Koodi:

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

Vaihe 4: Ensimmäinen argumentti on kertoa mikä on merkkijono tai arvo. Arvomme tässä on "Sachin Tendulkar".

Koodi:

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

Vaihe 5: Pituus ei ole muuta kuin kuinka monta merkkiä tarvitsemme vasemmalta. Tarvitsemme 6 merkkiä.

Koodi:

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

Vaihe 6: Näytä arvo VBA MsgBoxissa.

Koodi:

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

Vaihe 7: Suorita makro F5-näppäimellä tai manuaalisesti ajon vaihtoehdon avulla saadaksesi tuloksen viestiruutuun.

Tuotos:

Sen sijaan, että näytämme tulosta viestiruudussa, voimme tallentaa tämän tuloksen yhteen Excel-laskentataulukon soluista. Meidän on vain lisättävä soluviite ja muuttuja-arvo.

Koodi:

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

Jos suoritat tämän koodin, saamme arvon solussa A1.

Esimerkki # 2 - VASEN muiden toimintojen kanssa

Edellä mainitussa tapauksessa olemme toimittaneet tarvitsemiemme merkkien pituuden suoraan vasemmasta suunnasta, mutta tämä sopii paremmin yhteen tai kahteen arvoon. Oletetaan, että alla on luettelo arvoista, jotka sinulla on Excel-taulukossasi.

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

Vaihe 6: Suorita tämä koodi manuaalisesti tai F5: n kautta, saamme etunimen.

Saimme etunimen yhdelle nimelle, mutta meillä on myös useita muita nimiä. Emme voi kirjoittaa 100 riviä koodia purettavaksi, miten sitten puretaan?

Tässä silmukoiden kauneus tulee kuvaan. Alla on silmukakoodi, joka voi poistaa kaikki ei-toivotut vaiheet ja voi tehdä työn 3 rivillä.

Koodi:

Ala vasen_esimerkki2 () Himmenä etunimi merkkijonona Hämärä kokonaislukuna i = 2 - 9 Etunimi = Vasen (solut (i, 1). Arvo, InStr (1, solut (i, 1). Arvo, "") - 1) Solut (i, 2). Arvo = Etunimi Seuraava i Lopeta ala