Cümle içersindeki kelimelerin ilk harfini versin

[xlsx]

Cümlenin içersindeki kelimelerin ilk harfini ver

Selam Arkadaşlar
A1 hücresine yazılan bir cümlenin kelimelerinin ilk harfini B1 hücresine hangi formül ile yazdırabiliriz.
Örn
A1de şu yazsın:
Konunun Ne Olduğuna Önem Vermeden Kullanılacak.
B1 hücresi sonucu: KNOÖVK olmalı.

cümlelerin sonunda ,."?! benzeri noktalama işaretleri bulunuyorsa bunları dikkate almadan sadece harfleri tek bir hücrede görebilir miyiz.
Tşk.

 

[xlsx]

Selam Arkadaşlar
A1 hücresine yazılan bir cümlenin kelimelerinin ilk harfini B1 hücresine hangi formül ile yazdırabiliriz.
Örn
A1de şu yazsın:
Konunun Ne Olduğuna Önem Vermeden Kullanılacak.
B1 hücresi sonucu: KNOÖVK olmalı.

cümlelerin sonunda ,."?! benzeri noktalama işaretleri bulunuyorsa bunları dikkate almadan sadece harfleri tek bir hücrede görebilir miyiz.
Tşk.
__________________

 

[Recep İpek]

Cümlelerdeki bütün kelimeler büyük harfle mi başlıyor?

 

[ileriexcel]

=+parÇaal(a1;1;1)&parÇaal(a1;9;1)&parÇaal(a1;12;1)&parÇaal(a1;21;1)

 

[xlsx]

=+parÇaal(a1;1;1)&parÇaal(a1;9;1)&parÇaal(a1;12;1)&parÇaal(a1;21;1)

selam
bu örnek sadece benim verdiğim örnek cümlede başarılı oldu.a
ama a1'den aşağıya doğru sütun boyunca farklı cümle gruplarında sonuç başarısız oldu

 

[Ali]

Aşağıdaki formülü deneyiniz.

=SOLDAN(A2;1)&(PARÇAAL(A2&" ";BUL(" ";A2&" ")+1;1))&(PARÇAAL(A2&" ";1+BUL("#"; YERİNEKOY(A2&" ";" ";"#";2));1))&(PARÇAAL(A2&" ";1+BUL("#"; YERİNEKOY(A2&" ";" ";"#";3));1))&(PARÇAAL(A2&" ";1+BUL("#"; YERİNEKOY(A2&" ";" ";"#";4));1))&(PARÇAAL(A2&" ";1+BUL("#"; YERİNEKOY(A2&" ";" ";"#";5));1))

 

[xlsx]

kelimeler

Cümlelerdeki bütün kelimeler büyük harfle mi başlıyor?

slm
kelimeler değişken büyüklükte. bazıları büyük bazıları küçük harfle başlıyor.

 

[xlsx]

Aşağıdaki formülü deneyiniz.

=SOLDAN(A2;1)&(PARÇAAL(A2&" ";BUL(" ";A2&" ")+1;1))&(PARÇAAL(A2&" ";1+BUL("#"; YERİNEKOY(A2&" ";" ";"#";2));1))&(PARÇAAL(A2&" ";1+BUL("#"; YERİNEKOY(A2&" ";" ";"#";3));1))&(PARÇAAL(A2&" ";1+BUL("#"; YERİNEKOY(A2&" ";" ";"#";4));1))&(PARÇAAL(A2&" ";1+BUL("#"; YERİNEKOY(A2&" ";" ";"#";5));1))

selam a2 hücresinde yazan cümle aşağıdaki gibi oldugunda hatalı sonuç veriyor.
su bazlı ürün kodu.ilk giriş

Sonuç ise:sbükg oluyor.noktayı vermemesi güzel ama i harfi kayboldu.

 

[xlsx]

ek bilgi

selam arkadaşlar
A sütununda yazı olan cümleler farklı karakter sayısına sahip yani kimisi uzun kimisi kısa ve bazıları aynı hücrede nokta virgül gibi işaretlemelerden de oluşabiliyor.
bir cümle 10 tane de kelimeden oluşabilir 2 tane de.kelime gruplarının sayısı da değişken

 

[Ali]

Örneklerinizde değişkenlik gösteren parametrelerin tümünü içeren bir örnek dosya ekleyebilirmisiniz.

 

[Levent Menteşoğlu]

Bu işlemi yerleşik fonksiyonlarla yapmak zor ben size bir kullanıcı tanımlı fonksiyon önereyim. Bu fonksiyonu deneyin, ilave edilmesini istediğiniz bir şey olursa tekrar üzerinde çalışırız.

Function ilkharflerial(hucre As Range)
deg = Left(hucre, 1)
For a = 2 To Len(hucre)
If Mid(hucre, a, 1) = " " Then deg = deg & Mid(hucre, a + 1, 1)
Next
ilkharflerial = deg
End Function

 

[Ali]

Aynı konu iki başlık

http://www.excel.web.tr/showthread.php?t=27823

 

[Levent Menteşoğlu]

Aynı konu iki başlık

http://www.excel.web.tr/showthread.php?t=27823

Uyarınız için teşekkür ederim. İki başlık birleştirildi.

 

[Ali]

ilave edilmesini istediğiniz bir şey olursa tekrar üzerinde çalışırız.

Levent Bey, Sn falconia kelimelerin içinde ?!., gibi ifadelerde yer aldığı söylemişti

Sizin önerdiğiniz kullanıcı tanımlı fonksiyona Sn falconia gerekli ilaveleri

Function ilkharflerial(hucre As Range)
deg = Left(hucre, 1)
For a = 2 To Len(hucre)
If Mid(hucre, a, 1) = "," Then deg = deg & Mid(hucre, a + 1, 1)
If Mid(hucre, a, 1) = "?" Then deg = deg & Mid(hucre, a + 1, 1)
If Mid(hucre, a, 1) = "!" Then deg = deg & Mid(hucre, a + 1, 1)
If Mid(hucre, a, 1) = "." Then deg = deg & Mid(hucre, a + 1, 1)
If Mid(hucre, a, 1) = " " Then deg = deg & Mid(hucre, a + 1, 1)
Next
ilkharflerial = deg
End Function

gibi yapabilir sanırım.

 

[Recep İpek]

Bir alternatifde benden...

[color=blue]Hazırladığım fonksiyon hatalı sonuç verdiği için tarafımdan silinmiştir.
[/color]

 

[Ali]

Cümle içinde küçük harf ile başlarsa çalışmaz. (,.?) olursa problem olur.
Birde kullanıcı tanımlı fonksiyonlara Excel'in kendi yerleşik fonksiyonlarındaki isim verilmemesi uygundur.BUL yerine başka bir ad gibi.

 

[Recep İpek]

Uyarınız için teşekkürler.

cümlelerin sonunda ,."?! benzeri noktalama işaretleri bulunuyorsa bunları dikkate almadan Tşk.

Sanırım arkadaşımız bu işaretlerinde dahil olmasını istemiyor.

 

[Ali]

Sanırım arkadaşımız bu işaretlerinde dahil olmasını istemiyor.

Evet bu işaretler varsa bunlarıda dahil etmeyecek,Levent Bey'in eklediği kullanıcı tanımlı fonksiyonda

If Mid(hucre, a, 1) = "?" Then deg = deg & Mid(hucre, a + 1, 1)
If Mid(hucre, a, 1) = "!" Then deg = deg & Mid(hucre, a + 1, 1)

gibi bunları atlayıp ilk harfi alacak.

 

[Recep İpek]

Benim hazırladığım fonksiyonda zaten bu işaretleri dikkate almıyor.

 

[Ali]

slm
kelimeler değişken büyüklükte. bazıları büyük bazıları küçük harfle başlıyor.

Sn ripek küçükharfleride dahil edin

A1 hücrenize Recep.koşarak?geldi gibi bir ifade yazıp denerseniz çalışmayacaktır.