Bir dize tersine çevirecek herhangi bir Excel işlevi?


Yanıtlar:


9

Benim bildiğim yerleşik bir işlev yok, ancak kendi özel işlevinizi oluşturabilirsiniz.

İlk önce - yeni bir modül oluşturun:

  1. VBA’ya girin (Alt + F11 tuşlarına basın)
  2. Yeni bir modül yerleştirin (Ekle> Modül)

İkinci - aşağıdaki işlevi yeni modülünüze yapıştırın ( Referans ):

Function Reverse(Text As String) As String
    Dim i As Integer
    Dim StrNew As String
    Dim strOld As String
    strOld = Trim(Text)
    For i = 1 To Len(strOld)
      StrNew = Mid(strOld, i, 1) & StrNew
    Next i
    Reverse = StrNew
End Function

Şimdi , elektronik tablonuzdaki Ters fonksiyonunu kullanabilmelisiniz


61

Geçerli kabul cevabı , bir dize tersine çevirmek için kötü bir yoldur özellikle VBA yerleşik bir, olduğunda (aynı hareket ancak daha hızlı bir LOT çalışmalıdır) yerine aşağıdaki kodu kullanın:

Function Reverse(str As String) As String
    Reverse = StrReverse(Trim(str))
End Function

@ n00b - "modül nasıl oluşturulur" sorusu yoktu. :) Bu çözüm çok daha verimli / daha hızlı / daha kolay, ancak neden TRIMilave edildiğinden emin değilim , çünkü soruda fazladan boşluk bulunmadı. "Büyük" veri kümeleri TRIMiçin ihtiyacınız yoksa kaldırın .
ashleedawg
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.