• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Cümle içersindeki kelimelerin ilk harfini versin

  • Konbuyu başlatan Konbuyu başlatan xlsx
  • Başlangıç tarihi Başlangıç tarihi
X

xlsx

Misafir
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.
 
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.
__________________
 
Cümlelerdeki bütün kelimeler büyük harfle mi başlıyor?
 
=+parÇaal(a1;1;1)&parÇaal(a1;9;1)&parÇaal(a1;12;1)&parÇaal(a1;21;1)
 
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))
 
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.
 
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
 
Örneklerinizde değişkenlik gösteren parametrelerin tümünü içeren bir örnek dosya ekleyebilirmisiniz.
 
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.

Kod:
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
 
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

Kod:
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.
 
Son düzenleme:
Bir alternatifde benden...

Kod:
[color=blue]Hazırladığım fonksiyon hatalı sonuç verdiği için tarafımdan silinmiştir.
[/color]
 
Son düzenleme:
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.
 
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.
 
Benim hazırladığım fonksiyonda zaten bu işaretleri dikkate almıyor.
 
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.
 
Geri
Üst