Funkce VBA vlevo - Jak používat funkci Excel VBA Left?

Obsah

Excel VBA vlevo

Excel VBA vlevo

VBA Left je také jednou z funkcí listu kategorizovaných pod textové funkce, které se používají ve VBA s aplikací. metoda listu, vrátí zadaný počet znaků z levé části řetězce.

Některé z funkcí aplikace Excel jsou také integrovány do VBA. Ze všech mnoha textových funkcí je VBA LEFT jednou z těch funkcí, které používáme poměrně často než jiné vzorce.

Pokud víte, že funkce Excel LEFT, funkce VBA LEFT je přesně stejná. Může extrahovat znaky z levé strany řetězce nebo hodnoty dané uživatelem.

Syntaxe funkce LEFT je přesně stejná jako ve funkci listu.

Má dva argumenty.

Řetězec: Toto nic než hodnota nebo odkaz na buňku. Z této hodnoty se snažíme sekat postavy.
Délka: Kolik znaků chcete extrahovat z řetězce, který jste zadali. Měla by to být číselná hodnota.

Jak používat funkci Excel VBA Left?

Příklad č. 1

Předpokládejme, že máte slovo „Sachin Tendulkar“ a chcete od tohoto slova pouze prvních 6 znaků. Ukážeme, jak extrahovat zleva pomocí funkce LEFT ve VBA.

Krok 1: Vytvořte název makra a definujte proměnnou jako řetězec.

Kód:

Sub Left_Example1 () Dim MyValue jako řetězec End Sub

Krok 2: Nyní této proměnné přiřaďte hodnotu

Kód:

Sub Left_Example1 () Dim MyValue jako řetězec MyValue = End Sub

Krok 3: Otevřete funkci VLEVO.

Kód:

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

Krok 4: Prvním argumentem je zjistit, co je řetězec nebo hodnota. Naše hodnota je zde „Sachin Tendulkar.“

Kód:

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

Krok 5: Délka není nic jiného než to, kolik znaků potřebujeme zleva. Potřebujeme 6 znaků.

Kód:

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

Krok 6: Zobrazit hodnotu v VBA MsgBox.

Kód:

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

Krok 7: Spusťte makro pomocí klávesy F5 nebo ručně pomocí možnosti spuštění, abyste získali výsledek v okně se zprávou.

Výstup:

Namísto zobrazení výsledku v okně se zprávou můžeme tento výsledek uložit do jedné z buněk v našem excelovém listu. Musíme jen přidat odkaz na buňku a hodnotu proměnné.

Kód:

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

Nyní, pokud spustíte tento kód, dostaneme hodnotu v buňce A1.

Příklad č. 2 - VLEVO s dalšími funkcemi

Ve výše uvedeném případě jsme přímo zadali délku znaků, které potřebujeme, z levého směru, ale to je vhodnější pro jednu nebo dvě hodnoty. Předpokládejme níže, je seznam hodnot, které máte v listu aplikace Excel.

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

Krok 6: Spusťte tento kód ručně nebo pomocí klávesy F5 získáme křestní jméno.

Dostali jsme křestní jméno pro jedno jméno, ale máme i několik dalších jmen. Nemůžeme napsat 100 řádků kódu, abychom je mohli extrahovat, jak tedy extrahujeme?

To je místo, kde do obrazu vstupuje krása smyček. Níže je uveden kód smyčky, který může eliminovat všechny nežádoucí kroky a může dělat práci ve 3 řádcích.

Kód:

Sub Left_Example2 () Dim FirstName As String Dim i As Integer For i = 2 To 9 FirstName = Left (Cells (i, 1) .Value, InStr (1, Cells (i, 1) .Value, "") - 1) Buňky (i, 2) .Value = FirstName Next i End Sub