cümledeki kelimelerin ilk harflerini yazma

[euphrates55]

cümledeki kelimelerin ilk harflerini yazmak için bir fonksiyon oluşturulabilir mi? "ali topu tut" cümlesinin sonucu ATT olacak şekilde.

 

[Ali]

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))

 

[euphrates55]

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.

 

[veyselemre]

Alternatif;

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]

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

 

[euphrates55]

müthişsiniz. teşekkürler

 

[Korhan Ayhan]

Alternatif;

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

DİZİ formüldür.

=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);""))

 

[euphrates55]

Alternatif;

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

DİZİ formüldür.

=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.

 

[Merhum İdris SERDAR]

.

Bir de bu dosyayı inceleyin. Bu dosyada; hem yerleşik fonksiyonlarla ve hem de KTF ile örnekler var.


http://www.excelgurusu.com/bir-hucredeki-sozcuk-dizesinden-sozcuk-bas-harflerinden-olusan-kisaltma/


.