Vba'da bir dize nasıl tersine döndürülür (örnekle)

Bir metin dizesini tersine çevirmek için VBA’daki StrReverse işlevini kullanabilirsiniz.

Bu işlevi pratikte kullanmanın yaygın bir yolu aşağıda verilmiştir:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

Bu özel örnek, A2:A11 aralığındaki her dizeyi tersine çevirir ve sonuçları B2:B11 aralığında görüntüler.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA Kullanarak Dizeleri Tersine Çevirme

Excel’de aşağıdaki basketbol takımı adları sütununun bulunduğunu varsayalım:

Her takımın adını tersine çevirmek ve sonuçları B sütunundaki ilgili hücrede görüntülemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

B sütunu, A sütunundaki her takımın adını geriye doğru görüntüler.

Örneğin:

• Mavs, svaM’e dönüşüyor
• Spurs, SrupS oldu
• Rockets stekcoR oluyor
• Kings SGNIK oluyor

Ve benzeri.

StrReverse işlevinin sayılarla da çalıştığını unutmayın.

Örneğin, StrReverse işlevinin 1234 sayısına uygulanması 4321 değerini döndürür.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: bir dizenin başka bir dize içerip içermediği nasıl kontrol edilir
VBA: Aralıktaki satır sayısı nasıl sayılır?
VBA: COUNTIF ve COUNTIFS işlevleri nasıl yazılır?