VBA Dize İşleme İşlevleri ve Operaları

VBA Dizesi Operaları

Dize verileri sayılardan, karakterlerden ve sembollerden oluşan verileri tutmak için kullanılır. “Temmuz-2015” dize verilerinin bir örneğidir. Şunlardan oluşur:

• Karakterler (Temmuz)
• Sembol (-)
• Numbers (2015)

String operatörleri string verilerini işlemek için kullanılır. Örneğin Temmuz-2015 değerini ayın ve yılın ilk 3 harfinden “Temmuz-2015” gibi birleştirebilirsiniz.

Aşağıdaki tabloda birleştirme VBA dize operatörü gösterilmektedir.

Örnek Kaynak Code

MsgBox "John " & "Doe", vbOKOnly, "Concatenate Operator"

Yukarıdaki kodun yürütülmesi aşağıdaki sonucu üretir

Ampersand, metinleri birleştirmek için kullanılan tek sembol değildir ve sayılar söz konusu olduğunda ikisi arasındaki fark önem kazanır.

Dize Birleştirme İşleminde & ve + İşaretleri Arasındaki Fark

VBA, iki metin değeri arasında hem ampersand (&) hem de artı işaretini kabul eder, bu nedenle yeni başlayanlar genellikle bunları birbirinin yerine kullanılabilir olarak görürler. Ancak, işlenenlerden biri sayı veya boş değer olduğunda farklı davranırlar ve yalnızca biri güvenlidir.

💡 İpucu: Her zaman birleştirme işlemleri için ampersand (&) işaretini kullanın ve artı işaretini (+) diğer işlemler için saklayın. Aritmetik işlemlerAmpersand işaretinin başına ve sonuna bir boşluk koyun, çünkü Total& ifadesi VBA tarafından Long türünde bir bildirim karakteri olarak okunur.

VBA Dize İşleme İşlevleri

VBA Dize Manipülasyonu önemli bir unsurdur Makro programlama için Excel VBA ve dize işlemleri. Excel, aşağıdakiler gibi çeşitli VBA Dize İşleme işlevleri sağlar:

• Sol: şu amaçla kullanılır:tracDizinin sol tarafındaki t karakter
• Sağ: şu amaçla kullanılır:tracdizenin sağ tarafındaki t karakteri
• Orta: şu amaçla kullanılır:tracbir dizenin ortasından alınan bir alt dize
• Len: Bir dizenin uzunluğunu bulmak için kullanılır
• InStr: Bir dizedeki bir alt dizenin konumunu bulmak için kullanılır
• Süs: işareti, bir dizenin her iki ucundaki boşlukları kaldırmak için kullanılır.
• değiştirmek: işareti, bir alt dizenin her geçişini başka bir alt dizeyle değiştirmek için kullanılır.
• UCase / LCase: Bir metni büyük harfe veya küçük harfe dönüştürmek için kullanılır.

Aşağıdaki tabloda her fonksiyonun sözdizimi ve örnek bir uygulaması gösterilmektedir, böylece kalıbı doğrudan bir makroya kopyalayabilirsiniz.

Aşağıdaki makro, bir tarih etiketini parçalarından yeniden oluşturmak için bu işlevlerin birkaçını bir araya getirir.

Sub StringFunctionsDemo()
    Dim Source As String
    Dim MonthPart As String
    Dim YearPart As String

    Source = "July-2015"

    ' Take the first three characters
    MonthPart = Left(Source, 3)
    ' Take the last four characters
    YearPart = Right(Source, 4)

    MsgBox MonthPart & "-" & YearPart, vbOKOnly, "String Functions"
End Sub

Makroyu çalıştırdığınızda "Temmuz 2015" görüntülenir. Her fonksiyon yeni bir değer döndürür ve orijinal dizeyi değiştirmez; bu nedenle sonuçlar tek bir ifadede güvenli bir şekilde birleştirilebilir.

Bu fonksiyonların hepsi aynı anda tek bir dize üzerinde çalışır. Tek bir değer tüm bir listeyi içerdiğinde, diğer iki fonksiyon bunu daha iyi ele alır.

VBA'da Dizeleri Bölme ve Birleştirme Nasıl Yapılır?

Excel'e yapıştırılan veriler genellikle her öğe arasında ayırıcı bulunan tek bir uzun değer olarak gelir, örneğin "Pepsi, Kola, Fanta, Meyve Suyu". Bunu Mid ve InStr ile okumak yavaş ve hassastır. VBA, tam olarak bu iş için eşleştirilmiş bir fonksiyon çifti sunar.

Bölünmüş Sınırlandırılmış bir dize alır ve her öğe için bir eleman içeren, sıfır tabanlı bir dizi döndürür. Kaydol Bunun tersini yapar; bir diziyi alır ve öğeler arasında ayırıcı bulunan tek bir dize döndürür. Unutmayın ki Join işlemi iki ayrı dize üzerinde değil, bir dizi üzerinde çalışır.

Sub SplitAndJoinDemo()
    Dim Source As String
    Dim Items() As String
    Dim i As Long

    Source = "Pepsi,Coke,Fanta,Juice"

    ' Break the value into an array on every comma
    Items = Split(Source, ",")

    For i = LBound(Items) To UBound(Items)
        Sheet1.Cells(i + 1, 1).Value = Items(i)
    Next i

    ' Rebuild the list with a different separator
    MsgBox Join(Items, " | "), vbOKOnly, "Joined List"
End Sub

Döngü, her içeceği kendi çalışma sayfası satırına yazar ve ardından mesaj kutusunda Pepsi | Kola | Fanta | Meyve Suyu görüntülenir. Bu kalıbı üretim kodunda güvenilir kılan üç nokta vardır:

• Sıfır tabanlı sonuç: Split fonksiyonu, Option Base ne olursa olsun, her zaman 0'dan başlayarak numaralandırılmış bir dizi döndürür; bu nedenle döngüyü sabit bir sayı yerine LBound ve UBound ile yönlendirin.
• String() olarak tanımlayın: Sonucu dinamik bir String dizisine atayın. Önce sabit bir boyut belirtmek derleme hatasına neden olur.
• Boş giriş: Boş bir dizeyi bölmek, hiçbir öğe içermeyen bir dizi döndürür, bu nedenle Items(0)'ı okumadan önce UBound ile test edin.

Doğru fonksiyon seçilmiş olsa bile, metin kodu az sayıda tahmin edilebilir şekilde başarısız olur.

Sık Karşılaşılan VBA Dize Hataları ve Bunların Nasıl Düzeltileceği

Excel VBA'daki çoğu dize hatası, az sayıda nedenden kaynaklanır. Belirtiyi tanımak, uzun bir hata ayıklama oturumundan tasarruf sağlar.

• Birleştirmede tür uyuşmazlığı: Metin ve sayı arasına artı işareti (&) kullanılmış. Bunu, sayıyı otomatik olarak dönüştüren bir ampersand (&) işaretiyle değiştirin.
• InStr 0 değerini döndürür: Alt dize bulunamadı. InStr başarısızlık durumunda -1 yerine 0 döndürür, bu nedenle sonucu Mid'e iletmeden önce sıfırdan büyük bir değer olup olmadığını kontrol edin.
• Mid veya Left'te geçersiz prosedür çağrısı: İstenen uzunluk negatif veya başlangıç ​​pozisyonu 1'in altında. Uzunluğun asla dizeyi aşmaması için çağrıyı Len ile koruyun.
• Birbirine uyması gereken ancak uymayan karşılaştırmalar: İçe aktarılan verilerdeki sondaki boşluklar eşitliği bozar. Her iki tarafı da Trim ile sarın ve büyük/küçük harf duyarlılığı göz ardı edilmesi gerektiğinde StrComp kullanın.
• Sayıya dönüşmeyecek metin: “1,200” gibi bir değer, ayırıcı karakter nedeniyle aritmetikte başarısız olur. CLng ile dönüştürmeden önce Replace fonksiyonu ile ayırıcı karakteri kaldırın.

Yukarıdaki kodu içeren Excel'i indirin

Yukarıdaki Excel dosyasını indirin. Code

SSS