VBA ile Bir Metin Dizesini Tersine Çevirin
Aşağıdaki VBA Rutini, kullanıcının bir dize girmesine izin verir ve daha sonra aynı dizeyle geriye doğru sunulur. Örneğin, "Pazartesi", "yadnoM" olur:
123456789101112131415161718192021222324252627282930313233343536 | Seçenek AçıkÖzel Alt KomutDüğmesi1_Click()'Değişkenleri TanımlayınDize Olarak Original_String DimTers_String'i Dize Olarak KarartDize Olarak Next_Char DimTamsayı Olarak Dim UzunluğuTamsayı Olarak Dim Pos'Orijinal Dizeyi AlınOriginal_String = InputBox("Lütfen orijinal diziyi giriniz: ")'Dizenin gözden geçirilmiş uzunluğunu bulunUzunluk = Len(Original_String)'Ters diziyi ayarlaReversed_String = ""'Karakter bazında dizede ilerleme'Son karakterden başlamak ve ilk karaktere doğru gitmekPos için = 1 Adıma Uzunluk -1Next_Char = Orta(Orijinal_Dize, Konum, 1)Reversed_String = Reversed_String & Next_CharSonraki KonumMsgBox "Tersine çevrilmiş dize " & Reversed_StringAlt Bitiş |
Kodun ana özellikleri şunlardır: -
• Kodu etkinleştirmek için bir komut düğmesine ihtiyaç duyar - tıklama olayında
• Aşağıdaki değişkenler ayarlanır:-
o Orijinal_Dize - tersine çevrilecek orijinal dize ("Pazartesi")
o Ters_Dize - ters çevrilmiş dize ("yadnoM")
o Next_Char - dizede tersine çevrilecek bir sonraki karakter
o Uzunluk - dizenin uzunluğu
o Pos - dizideki geçerli konum
• Dizeyi yakalamak için bir InputBox. Bu, “Original String” değişkeninde saklanır.
• Dizinin Uzunluğu, LEN işlevi kullanılarak hesaplanır ve Uzunluk değişkeninde saklanır.
• Bir FOR… NEXT döngüsü, son karakterden başlayan ve her seferinde bir karakter geriye doğru çalışan dizeden geçecek şekilde ayarlanmıştır.
• Orijinal dizedeki (geriye doğru çalışan) sonraki karakter daha sonra ters çevrilmiş dizeye eklenir
• Bu döngü, dizenin tüm uzunluğunu geçene kadar yinelenir
• Tersine çevrilmiş dize bir MsgBox'ta görüntülenir.
Excel dosyasını buradan indirin