VBA Sol İşlevi - Excel VBA Sol Fonksiyonu nasıl kullanılır?

İçindekiler

Excel VBA Sol

Excel VBA Sol

VBA Left ayrıca uygulama ile birlikte VBA'da kullanılan metin fonksiyonları altında kategorize edilen çalışma sayfası fonksiyonlarından biridir. çalışma sayfası yöntemi, dizenin sol kısmından belirtilen sayıda karakteri döndürür.

Bazı excel işlevleri VBA ile de entegre edilmiştir. Birçok metin işlevi arasında VBA LEFT, diğer formüllerden çok sık kullandığımız işlevlerden biridir.

Excel LEFT işlevini biliyorsanız, VBA LEFT işlevi tamamen aynıdır. Dizenin sol tarafındaki karakterleri veya kullanıcı tarafından verilen değeri çıkarabilir.

LEFT işlevinin sözdizimi, çalışma sayfası işlevindekiyle tamamen aynıdır.

İki argümanı vardır.

Dize: Bu, değer veya hücre başvurusundan başka bir şey değil. Bu değerden karakterleri kesmeye çalışıyoruz.
Uzunluk: Sağladığınız dizeden kaç karakter çıkarmak istediğiniz . Bu sayısal bir değer olmalıdır.

Excel VBA Sol Fonksiyonu nasıl kullanılır?

Örnek 1

Farz edelim ki "Sachin Tendulkar" kelimesine sahipsin ve bu kelimeden sadece ilk 6 karakteri istiyorsun. VBA'da LEFT işlevini kullanarak soldan nasıl ayıklanacağını göstereceğiz.

Adım 1: Bir makro adı oluşturun ve değişkeni Dize olarak tanımlayın.

Kod:

Alt Left_Example1 () Dim MyValue As String End Sub

Adım 2: Şimdi bu değişkene bir değer atayın

Kod:

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

Adım 3: LEFT işlevini açın.

Kod:

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

Adım 4: İlk argüman, dizenin veya değerin ne olduğunu söylemektir. Buradaki değerimiz "Sachin Tendulkar".

Kod:

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

Adım 5: Uzunluk, soldan kaç karaktere ihtiyacımız olduğundan başka bir şey değildir. 6 karaktere ihtiyacımız var.

Kod:

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

Adım 6: VBA MsgBox'taki değeri gösterin.

Kod:

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

Adım 7: Sonucu bir mesaj kutusunda almak için makroyu F5 tuşunu kullanarak veya bir çalıştırma seçeneği aracılığıyla manuel olarak çalıştırın.

Çıktı:

Sonucu bir mesaj kutusunda göstermek yerine, bu sonucu excel çalışma sayfamızdaki hücrelerden birinde saklayabiliriz. Sadece hücre referansını ve değişken değerini eklememiz gerekiyor.

Kod:

Alt Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) Aralık ("A1"). Value = MyValue End Sub

Şimdi, bu kodu çalıştırırsanız, değeri A1 hücresinde alacağız.

Örnek 2 - Diğer İşlevlerle SOL

Yukarıdaki durumda ihtiyacımız olan karakterlerin uzunluğunu doğrudan sol yönden verdik, ancak bu bir veya iki değer için daha uygundur. Excel sayfanızda bulunan değerlerin listesinin aşağıda olduğunu varsayalım.

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

Adım 6: Bu kodu manuel olarak çalıştırın veya F5 aracılığıyla ilk adı alacağız.

Bir adın ilk adını aldık, ancak başka isimlerimiz de var. Çıkarmak için 100 satır kod yazamayız, o zaman nasıl çıkarırız?

Döngülerin güzelliği burada devreye giriyor. Aşağıda istenmeyen tüm adımları ortadan kaldırabilen ve işi 3 satırda yapabilen döngü kodu bulunmaktadır.

Kod:

Alt Left_Example2 () Dim FirstName As String Dim i As Integer For i = 2 to 9 FirstName = Left (Hücreler (i, 1) .Değer, InStr (1, Hücreler (i, 1) .Değer, "") - 1) Hücreler (i, 2) .Değer = Sonraki Ad Sonraki i End Sub