Len işlevi hem çalışma sayfası hem de VBA için ortak bir işlevdir, her iki platform için yerleşik bir işlevdir ve bu işlevi kullanmak için sözdizimi de benzerdir, bu işlevin her iki platformda aldığı argümanlar benzerdir, bu bir dizedir ve kullanım veya bu işlevin çıktısı, bir dizenin uzunluğunu döndürmesiyle aynıdır.
VBA LEN İşlevi
VBA LEN işlevi "dizenin uzunluğunu" döndürür, yani sağlanan değerde kaç karakter olduğunu döndürür. VBA'daki tüm dizi işlevleri arasında "UZUNLUK" en az kullanılan işlevdir. VBA MID İşlevleri ve VBA RIGHT işlevi gibi diğer dizi işlevleri için destek işlevi olarak kullanılan "VBA LEN" işlevini gördüm.
Dizenin uzunluğunu veya değerini nasıl bulursunuz?
Örneğin, "Merhaba Arkadaşlar, Günaydın !!!" ve içindeki karakter sayısını bulmak istiyorsan, onu nasıl buluyorsun? Bu yazıda size "VBA LEN" işlevini göstereceğiz.
VBA LEN Fonksiyonunun formülü
UZUNLUK işlevinin yalnızca bir sözdizimi vardır, yani İfade.
Bir ifade , test etmeye çalıştığımız değerden başka bir şey değildir.
Örneğin, Len ("İyi") 4 değerini döndürecektir.
Örnekler
Aşağıda Dize İşlevinin VBA Uzunluğu örnekleri verilmiştir.
Örnek 1
Bir VBA String işlevinin uzunluğu, kullanımı çok basittir. Örneğin, aşağıdaki VBA koduna bakın.
Kod:
Alt LEN_Example () Dim Total_Length As String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub
Yukarıdaki kod değişkeni "Total_Length" dir.
Dim Total_Length As String
Bu değişken için, değeri VBA LEN işlevi aracılığıyla atadık.
Total_Length = Len ("Excel VBA")
UZUNLUK işlevi için değeri "Excel VBA" olarak atadık.
Total_Length = Len ("Excel VBA")
Ardından, sonucu VBA mesaj kutusunda gösteriyoruz.
MsgBox Total_Length
Bu kodu F5 tuşunu kullanarak veya manuel olarak çalıştırdığımda, sonuç olarak 9 alacağız çünkü boşluk da bir karakterdir.
Destek Fonksiyonu olarak VBA LEN
Örnek 1
UZUNLUK işlevinin amacı çoğunlukla diğer işlevlerle kullanılır. Bu işlevi RIGHT & Instr işlevleriyle kullandım.
Örneğin, aşağıdaki örnek verilere bakın.
Yukarıdaki verilerden Tarihi ve Açıklamaları Ayrı Ayrı çıkarmamız gerekir. Yukarıdaki verileri excel sayfanıza kopyalayın ve Hücre A1'e yapıştırın.
Bu elemanları çıkarmak için, LEN işlevini diğer dizge işlevleriyle birlikte kullanmamız gerekir. Aşağıdaki kod işi bizim için yapacak.
Kod:
Sub LEN_Example1 () Dim OurValue As String Dim k As Long For k = 2 To 6 'Bu durumda verilerim ikinci hücreden başlayıp 6. sırada bitiyor. 'Verilerinize bağlı olarak OurValue = ActiveSheet.Cells (k, 1) sayılarını değiştirin .Value' Bu, ilk 10 karakteri çıkaracaktır, yani Tarih bölümü ActiveSheet.Cells (k, 2) .Değer = Sol (Trim (OurValue), 10) Bu, ActiveSheet.Cells (k, 3) .Value = Mid (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Next End Sub
Bu kodu manuel olarak veya F5 tuşu ile çalıştırdığımızda aşağıdaki gibi sonuç alacağız.
Örnek 2
Şimdi size RIGHT & Instr işlevi ile tam adın soyadını çıkarmak için VBA Uzunluk dizesini bir destek işlevi olarak nasıl kullanacağınızı göstereceğim.
Gösteri için aşağıdaki verilere bakın.
Yukarıdaki listeden, Soyadı tam adından çıkarmamız gerekiyor. Aşağıdaki kod soyadı çıkaracaktır. LEN, burada bir destek işlevi olarak kullanılır.
Kod:
Alt LEN_Example2 () Dim FullName As String Dim k As Long For k = 2 To 8 FullName = ActiveSheet.Cells (k, 1) .Value 'Bu, ActiveSheet.Cells (k, 2) soyadını çıkaracaktır. Değer = Sağ (Tam Ad , Len (FullName) - InStr (1, FullName, "")) 'LEN tam sayıda karakter bulur' Instr boşluk karakterini bulur 'LEN - Inst, sağ Next End Sub'dan toplam karakter verir
F5 tuşunu kullanarak kodu çalıştırın veya manuel olarak çalıştırıp sonucu görebilirsiniz.
Bu Excel VBA String of Length'i buradan indirebilirsiniz - VBA LEN Function Template
