Tersine Çevir

1 2
17/01/2023, 23:48

berduş

Önerilerimle ilgili araştırma yaptınız mı?
17/01/2023, 23:59

Yandemir

o zaman split ve dizi başka yolu yok
18/01/2023, 00:15

husem

(17/01/2023, 23:48)berduş yazdı: Önerilerimle ilgili araştırma yaptınız mı?

split ile ilgili örnek birşeyler bulamadım,
olmazsa da başka bir çözüm bulacağım, gerekirse el ile yazarım,

ilgilendiğiniz için teşekkür ederim,
18/01/2023, 00:21

Yandemir

Dim myString As String
    Dim myStringSonuc As String
    Dim Dizim() As String
   
    myString = "1-2-3-4-5-6-7-8-9-10-11-12-13-14-15"
    Dizim() = Split(myString, "-")
   
    For i = UBound(Dizim) To LBound(Dizim) Step -1
        myStringSonuc = myStringSonuc & Dizim(i) & "-"
    Next i
   
    MsgBox Mid(myStringSonuc, len(myStringSonuc)-1)
18/01/2023, 01:24

husem

teşekkür ederim, kolay gelsin,
uygulamadım, çalışıyor,
1 2