Cara membalikkan string di vba (dengan contoh)

Anda dapat menggunakan fungsi StrReverse di VBA untuk membalikkan string teks.

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 SubReverseStrings ()
    
Dim i As Integer

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

End Sub

Contoh khusus ini membalikkan setiap string dalam rentang A2:A11 dan menampilkan hasilnya dalam rentang B2:B11 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara Membalikkan String Menggunakan VBA

Misalkan kita memiliki kolom nama tim bola basket berikut di Excel:

Misalkan kita ingin membalik nama masing-masing tim dan menampilkan hasilnya di sel yang sesuai di kolom B.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubReverseStrings ()
    
Dim i As Integer

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

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom B menampilkan setiap nama tim di kolom A secara terbalik.

Misalnya:

• Mavs menjadi svaM
• Spurs menjadi SrupS
• Roket menjadi stekcoR
• Raja menjadi sgniK

Dan seterusnya.

Perhatikan bahwa fungsi StrReverse juga berfungsi dengan angka.

Misalnya, menerapkan fungsi StrReverse ke angka 1234 akan menghasilkan 4321 .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: cara memeriksa apakah suatu string berisi string lain
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menulis fungsi COUNTIF dan COUNTIFS