Aşağıda bir programa bakacağız Excel VBA'sı bu yapabilir ters dizeler.
Durum:
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
1. İlk önce dört değişken tanımlıyoruz. String türünde metin adında bir değişken, ayrıca String türünde reversedText adlı bir değişken, Tamsayı türünde uzunluk olarak adlandırılan bir değişken ve Tamsayı türünde i adlı bir değişken.
Dim metin As String, reversedText As String, uzunluk As Integer, i As Integer
2. İki değişkeni başlatıyoruz. Kullanıcıdan bir metin dizesi almak için InputBox işlevini kullanırız. Bir dizenin uzunluğunu almak için Excel VBA'daki Len işlevini kullanırız.
text = InputBox("Ters çevirmek istediğiniz metni giriniz")
uzunluk = Len(metin)
3. For Next döngüsüne başlıyoruz.
için i = 0 Uzunluğa - 1
4. Şimdi basit numara geliyor. Metinden son karakteri alıp ReversedText'in önüne yerleştiriyoruz. Bir dizeden bir karakter çıkarmak için Excel VBA'daki Mid işlevini kullanabiliriz. İki diziyi birleştirmek (birleştirmek) için & operatörünü kullanırız.
ters Metin = ters Metin ve Orta(metin, (uzunluk - i), 1)
5. Döngüyü kapatmayı unutmayın.
sonraki ben
Örnek: metin = "Araba". Metnin uzunluğu 3'tür. i = 0 ila 2 için, konum uzunluğundan başlayarak metnin alt dizesini çıkarırız - i uzunluk 1 ile. Böylece, i = 0 için, Orta(metin, 3, 1) eşittir r. r'yi reversedText'in ilk konumuna yerleştiririz. i = 1 için, Orta(metin, 2, 1) a'ya eşittir. ra olan reversedText'e bir ekliyoruz. i = 2 için, Mid(text, 1, 1) eşittir C. C'yi raC olan reversedText'e ekliyoruz.
6. Son olarak, bir MsgBox kullanarak reversedText'i görüntülüyoruz.
msgbox ters Metin
7. Programı test edin.
Sonuç:
