Kelimeyi Aralıklı Yazdırmak

[mor45]

Bir hüçrede Örnegin A1 hücresinde (YILLIK) yazıyor bunu başka bir hüçreye (Y I L L I K) olarak yazdırmak istiyorum yani aralıklı olarak.

 

[Necdet]

Merhaba

KTF isterseniz :

Function ARALIKLIYAZ(Deger As String)
Dim i As Integer
Dim Sonuc As String
For i = 1 To Len(Deger)
    If i = 1 Then
        Sonuc = Mid(Deger, i, 1)
    Else
        Sonuc = Sonuc + " " + Mid(Deger, i, 1)
    End If
Next i
ARALIKLIYAZ = Sonuc
End Function

 

[mustafaine1]

Necdet Bey tesekkurler ben yazdim beyne

 

[Merhum İdris SERDAR]

Bir hüçrede Örnegin A1 hücresinde (YILLIK) yazıyor bunu başka bir hüçreye (Y I L L I K) olarak yazdırmak istiyorum yani aralıklı olarak.

Bu da formülle:

=REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(A1;1;0;" ");LEN(A1)*2;0;" ");8;0;" ");7;0;" ");6;0;" ");5;0;" ");4;0;" ");3;0;" " )

REPLACE=DEĞİŞTİR

.

 

[S.Yiğit]

yurttas hocam replace değiştir olmuyor mu?:???:

 

[Orion1]

Yurttaş bey aşağıdaki formülü denedim değer hatası verdi.
=yerinekoy(yerinekoy(yerinekoy(yerinekoy(yerinekoy(yerinekoy(yerinekoy(yerinekoy(a1;1;0;" ");uzunluk(a1)*2;0;" ");8;0;" ");7;0;" ");6;0;" ");5;0;" ");4;0;" ");3;0;" ")

 

[Merhum İdris SERDAR]

yurttas hocam replace değiştir olmuyor mu?:???:

Sayın Evren,

Haklsınız. DEĞİŞTİR olacak.

.

 

[Orion1]

YURTTAŞ bey sanırım karakter sınırlaması var.A1 hücresine girilen karakter sayısı her zamn değişken olacak.Bazen 20 karakter olacak bazen 30,bazen 40 bazen 10.Bu durumda sanırım fonksiyon çalışmıyor.

 

[Merhum İdris SERDAR]

YURTTAŞ bey sanırım karakter sınırlaması var.A1 hücresine girilen karakter sayısı her zamn değişken olacak.Bazen 20 karakter olacak bazen 30,bazen 40 bazen 10.Bu durumda sanırım fonksiyon çalışmıyor.

Ben bunu 7 harfli için yazdım. Artık harf sayısı arttıkça Replace'ıda artırmak gerekir. Nerede durur. Bilmem.

Onun için fonksiyon yerine KTF daha uygun olur.

.

 

[Orion1]

Ben bunu 7 harfli için yazdım. Artık harf sayısı arttıkça Replace'ıda artırmak gerekir. Nerede durur. Bilmem.

Onun için fonksiyon yerine KTF daha uygun olur.

.

Yurttaş bey formülün dynamic olabilmesi için a1 hücresindeki verinin uzunluğunu bulması ve ne kadar gerekirse o kadar yineleme yaparak yazması gerekiyor.Yani yazdığımız formül bunu hesaplayabilmeli.
Bilmiyorum olurmu?
Olmazsa KTF ile yapılır kolayca.Ben Yerleşik fonksiyonlarla olurmu diye merak ettiydim.

 

[Merhum İdris SERDAR]

Yurttaş bey formülün dynamic olabilmesi için a1 hücresindeki verinin uzunluğunu bulması ve ne kadar gerekirse o kadar yineleme yaparak yazması gerekiyor.Yani yazdığımız formül bunu hesaplayabilmeli.
Bilmiyorum olurmu?
Olmazsa KTF ile yapılır kolayca.Ben Yerleşik fonksiyonlarla olurmu diye merak ettiydim.

Olur mu bilmem.

.

 

[Orion1]

Olur mu bilmem.

.

Boş ver hocam takma kafana .Çok lazım olursa yaparız bir KTF.