İlk ve son harfler dışında karıştırma hk.

[feridici_genc]

GÜnaydın, hayırlı sabahlar.

özet bilgi: "bir ingiliz üniversitesinde yapılan araştırmaya göre kelimelerin
harflerinin hangi sırada yazıldıkları önemli değilmiş önemli olan
birinci ve sonuncu harfin yerinde olmasıymış aradaki harflerin sırası
karışık olsada okunuyormuş çünkü kelimelerin harf harf değil bir
bÜtün olarak okuyormuşuz"

yukarıdan da anlaşılacağı gibi bir metin içinde geçen kelimelerin ilk ve son harfleri dışında kalan diğer harflerin yerini değiştirmek istiyorum. Ekte bulunan bir metnin F12 hücresine değiştirilmiş halde gelmesini amaçlamaktayım.
Yardımlarınızı rica ediyorum.

 

[feridici_genc]

iyi geceler arkadaşlar.

 

[ÖmerBey]

Noktalama işaretlerini kaldırarak aşağıdaki kodu deneyiniz.

Sub kod()
metin = Split(Range("F8"), " ")
ReDim yeni(UBound(metin))
For a = LBound(metin) To UBound(metin)
    If Len(metin(a)) < 4 Then
        yeni(a) = metin(a)
    Else
        ReDim hrf(1 To Len(metin(a)) - 2)
        For b = 1 To Len(metin(a)) - 2
            hrf(b) = Mid(metin(a), b + 1, 1)
        Next
        
        For c = UBound(hrf) To 1 Step -1
            s = Int((c * Rnd) + 1)
            değer = hrf(s)
            hrf(s) = hrf(c)
            hrf(c) = değer
        Next
        yeni(a) = Left(metin(a), 1) & Join(hrf, "") & Right(metin(a), 1)
    End If
Next
Range("F12") = Join(yeni, " ")
End Sub

Hayırlı geceler...

 

[feridici_genc]

teşekkür ederim. hayırlı geceler.