cümledeki kelimelerin ilk harflerini yazma

Katılım
25 Ocak 2006
Mesajlar
423
Beğeniler
2
Excel Vers. ve Dili
2016
#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,482
Beğeniler
37
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
423
Beğeniler
2
Excel Vers. ve Dili
2016
#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,454
Beğeniler
75
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,482
Beğeniler
37
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,087
Beğeniler
211
Excel Vers. ve Dili
OFFICE 2013-2016 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
423
Beğeniler
2
Excel Vers. ve Dili
2016
#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