cümledeki kelimelerin ilk harflerini yazma

Katılım
25 Ocak 2006
Mesajlar
502
Beğeniler
4
Excel Vers. ve Dili
2019 tr
#1
cümledeki kelimelerin ilk harflerini yazmak için bir fonksiyon oluşturulabilir mi? "ali topu tut" cümlesinin sonucu ATT olacak şekilde.
 

Ali

Özel Üye
Katılım
21 Temmuz 2005
Mesajlar
7,517
Beğeniler
46
Excel Vers. ve Dili
İş:Excel 2013-Türkçe
Ev:Excel 2010-Türkçe
#2
Kod:
Function İlkharfler(text) As String
mystring = Left(text, 1)
For i = 2 To Len(text) - 1
If Mid(text, i, 1) = " " Then
    mystring = mystring & Mid(text, i + 1, 1)
End If
Next i
İlkharfler = WorksheetFunction.Substitute(UCase(mystring), " ", "")
End Function
Function UCASETR(ByVal metin As String)
UCASETR = UCase(Replace(Replace(metin, "ı", "I"), "i", "İ"))
End Function
=İlkharfler(UCASETR(A1))
 
Son düzenleme:
Katılım
25 Ocak 2006
Mesajlar
502
Beğeniler
4
Excel Vers. ve Dili
2019 tr
#3
eline sağlık. araya "-" koymak için ne yapabiliriz. hep sonradan çalışıyor kafamız ama. kusura bakmazsın umarım. teşekkürler.
 
Katılım
9 Mart 2005
Mesajlar
2,555
Beğeniler
130
Excel Vers. ve Dili
Excel 2003-tr
#4
Alternatif;
Kod:
Function ilkharfler(text) As String
    For Each e In Split(WorksheetFunction.Proper(text), " ")
        ilkharfler = ilkharfler + "-" + Mid(e, 1, 1)
    Next e
    ilkharfler = Mid(ilkharfler, 2)
End Function
 

Ali

Özel Üye
Katılım
21 Temmuz 2005
Mesajlar
7,517
Beğeniler
46
Excel Vers. ve Dili
İş:Excel 2013-Türkçe
Ev:Excel 2010-Türkçe
#5
Kod:
Function İlkharfler(text) As String
mystring = Left(text, 1)
For i = 2 To Len(text) - 1
If Mid(text, i, 1) = " " Then
    mystring = mystring & "-" & Mid(text, i + 1, 1)
End If
Next i
İlkharfler = WorksheetFunction.Substitute(UCase(mystring), " ", "")
End Function
Function UCASETR(ByVal metin As String)
UCASETR = UCase(Replace(Replace(metin, "ı", "I"), "i", "İ"))
End Function
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
24,399
Beğeniler
329
Excel Vers. ve Dili
OFFICE 2019 PRO TR
#7
Alternatif;

5 kelimeye kadar aşağıdaki dizi formülünü kullanabilirsiniz.

DİZİ formüldür.

Kod:
=BÜYÜKHARF(SOLDAN(A1;1)&EĞERHATA("-"&PARÇAAL(A1;KÜÇÜK(EĞER(PARÇAAL(A1;SATIR($1:$1024);1)=" ";SATIR($1:$1024)+1);1);1);"")&EĞERHATA("-"&PARÇAAL(A1;KÜÇÜK(EĞER(PARÇAAL(A1;SATIR($1:$1024);1)=" ";SATIR($1:$1024)+1);2);1);"")&EĞERHATA("-"&PARÇAAL(A1;KÜÇÜK(EĞER(PARÇAAL(A1;SATIR($1:$1024);1)=" ";SATIR($1:$1024)+1);3);1);"")&EĞERHATA("-"&PARÇAAL(A1;KÜÇÜK(EĞER(PARÇAAL(A1;SATIR($1:$1024);1)=" ";SATIR($1:$1024)+1);4);1);"")&EĞERHATA("-"&PARÇAAL(A1;KÜÇÜK(EĞER(PARÇAAL(A1;SATIR($1:$1024);1)=" ";SATIR($1:$1024)+1);5);1);""))
 
Katılım
25 Ocak 2006
Mesajlar
502
Beğeniler
4
Excel Vers. ve Dili
2019 tr
#8
Alternatif;

5 kelimeye kadar aşağıdaki dizi formülünü kullanabilirsiniz.

DİZİ formüldür.

Kod:
=BÜYÜKHARF(SOLDAN(A1;1)&EĞERHATA("-"&PARÇAAL(A1;KÜÇÜK(EĞER(PARÇAAL(A1;SATIR($1:$1024);1)=" ";SATIR($1:$1024)+1);1);1);"")&EĞERHATA("-"&PARÇAAL(A1;KÜÇÜK(EĞER(PARÇAAL(A1;SATIR($1:$1024);1)=" ";SATIR($1:$1024)+1);2);1);"")&EĞERHATA("-"&PARÇAAL(A1;KÜÇÜK(EĞER(PARÇAAL(A1;SATIR($1:$1024);1)=" ";SATIR($1:$1024)+1);3);1);"")&EĞERHATA("-"&PARÇAAL(A1;KÜÇÜK(EĞER(PARÇAAL(A1;SATIR($1:$1024);1)=" ";SATIR($1:$1024)+1);4);1);"")&EĞERHATA("-"&PARÇAAL(A1;KÜÇÜK(EĞER(PARÇAAL(A1;SATIR($1:$1024);1)=" ";SATIR($1:$1024)+1);5);1);""))
teşekkürler. herkes müthiş gerçekten.
 
Üst