• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

cümledeki kelimelerin ilk harflerini yazma

Katılım
25 Ocak 2006
Mesajlar
323
Beğeniler
1
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,429
Beğeniler
15
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
323
Beğeniler
1
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,327
Beğeniler
27
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,429
Beğeniler
15
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
23,891
Beğeniler
146
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
323
Beğeniler
1
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