Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 29-01-2018, 18:23   #1
modoste
Altın Üye
 
Giriş: 31/05/2008
Şehir: TRABZON
Mesaj: 2,692
Excel Vers. ve Dili:
2010
Varsayılan cümle-kelime-hece

merhabalar sayın hocalarım
A1 hücresinde bir cümle olacak
bu cümledeki önce kelimeleri ayıracak sonra her kelimedeki hecelemeyi ayıracak bir formülasyon bir çalışma yapılabilir mi
modoste Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-01-2018, 18:57   #2
İdris SERDAR
Moderatör
 
İdris SERDAR kullanıcısının avatarı
 
Giriş: 21/10/2005
Şehir: Ankara
Mesaj: 14,810
Excel Vers. ve Dili:
Excel, 2016 - İngilizce
Varsayılan

.

Hece olacağını pek sanmıyorum.

Kelime için bakınız.

http://www.excelgurusu.com/hucreye-y...ler-yazdirmak/


.
__________________
Çalışmalarımı görmek için:

http://www.excelgurusu.com/

İdris SERDAR
İdris SERDAR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-01-2018, 19:34   #3
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,395
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Sayın SERDAR'ın verdiği çözümden farklı ise alternatif olsun. Hazırlamıştım göndereyim bari.

Hece olayı ile ilgili olarak aşağıdaki konu sayfasındaki açıklamaları gözden geçiriniz. Hece olayı ile ilgili olarak ben de Sayın SERDAR'a katılıyorum.

Heceleme

Cümlenin A1 hücresinde olduğu varsayılmıştır.
Formülü B1 hücresine uygulayın ve BOŞ sonuç elde edinceye kadar sağa doğru kopyalayın.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=EĞER(SÜTUN(A1)>UZUNLUK(KIRP($A1))-UZUNLUK(YERİNEKOY(KIRP($A1);" ";""))+1;"";PARÇAAL(KIRP($A1)&" ";EĞER(SÜTUN(A1)=1;1;BUL("|";YERİNEKOY(KIRP($A1);" ";"|";EĞER(SÜTUN(A1)=1;"";SÜTUN(A1)-1)))+1);BUL("|";YERİNEKOY(KIRP($A1)&" ";" ";"|";SÜTUN(A1)))-EĞER(SÜTUN(A1)=1;1;BUL("|";YERİNEKOY(KIRP($A1)&" ";" ";"|";EĞER(SÜTUN(A1)=1;"";SÜTUN(A1)-1)))+1)))
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosyaupload.com gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-01-2018, 20:39   #4
modoste
Altın Üye
 
Giriş: 31/05/2008
Şehir: TRABZON
Mesaj: 2,692
Excel Vers. ve Dili:
2010
Varsayılan

cevaplarınız için teşekkür ederim
heceleme ile ilgili inşallah bir çalışması olan vardır
modoste Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-01-2018, 21:22   #5
klop01
Altın Üye
 
klop01 kullanıcısının avatarı
 
Giriş: 19/12/2016
Şehir: Düzce
Mesaj: 280
Excel Vers. ve Dili:
2016 Türkçe 32 Bit Pro
Varsayılan

İyi Geceler,

Konuyu okuyunca ilgimi çekti. Yapılabilirse her zaman ve her yerde ihtiyaç duyulabilecek bir çalışma olabilir.

Türk Dil Kurumunun Genel Ağ'daki sayfasında bulunan güncel Yazım Kılavuzu'ndan heceleme ile ilgili kuralları aşağıda yazdım.

Toplam 5 maddeye göre heceleme yapılmaktadır. Kurallara bakıldığında bana excel ortamında heceleme yapılabilirmiş gibi geldi.

Çalışma -ki bu oldukça faydalı olacaktır- yapmak isteyen uzmanlara kılavuz olması açısından ilgili kurallar şöyle:




1. Türkçede kelime içinde iki ünlü arasındaki ünsüz, kendinden sonraki ünlüyle hece kurar: a-ra-ba, bi-çi-mi-ne, in-sa-nın, ka-ra-ca vb.

2. Kelime içinde yan yana gelen iki ünsüzden ilki kendinden önceki ünlüyle, ikincisi kendinden sonraki ünlüyle hece kurar: al-dı, bir-lik, sev-mek vb.

3. Kelime içinde yan yana gelen üç ünsüz harften ilk ikisi kendinden önceki ünlüyle, üçüncüsü kendinden sonraki ünlüyle hece kurar: alt-lık, Türk-çe, kork-mak vb.

4. Batı kökenli kelimeler, Türkçenin hece yapısına göre hecelere ayrılır: band-rol, kont-rol, port-re, prog-ram, sant-ral, sürp-riz, tund-ra, volf-ram vb.

5. İlk heceden sonraki heceler ünsüzle başlar. Bitişik yazılan kelimelerde de bu kurala uyulur: ba-şöğ-ret-men, il-ko-kul, Ka-ra-os-ma-noğ-lu vb.

Yazım kuralları(heceleme) konusunda bilgi düzeyinde destek verebilirim.

TDK: http://www.tdk.gov.tr/index.php?opti...lar&Itemid=132
klop01 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-01-2018, 18:35   #6
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,279
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Selamlar,
Makro ile yapılabilir diye düşünüyorum. Makro düşünür müsünüz?
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 30-01-2018, 19:55   #7
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,279
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Fikir vermesi açısından makro ile bir çalışma yaptım. Denediğim kelimelerde hecelemeyi doğru sonuçlandırdı.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub heceleme()
harf = "aâeıiîoöuûüAÂEIİÎOÖUÛÜ"
deg = [a1]
If Len(deg) = 1 Then
MsgBox deg
Exit Sub
End If
For x = Len(deg) To 1 Step -1
t = t + 1 'geçilen harf sayısı
If x <> Len(deg) Then
say = InStr(harf, Mid(deg, x, 1))
unlusay = InStr(harf, Mid(deg, x + 1, 1))
If x = 2 And say = 0 Then
    If InStr(harf, Mid(deg, x - 1, 1)) = 0 Then
        hece = hece & "-" & StrReverse(Mid(deg, x - 1, t + 1))
        Exit For
    End If
End If
If unlusay > 0 Or x = 1 Then
If say > 0 And x <> 1 Then
hece = hece & "-" & StrReverse(Mid(deg, x + 1, t - 1))
t = 1
Else
hece = hece & "-" & StrReverse(Mid(deg, x, t))
t = 0
End If
End If
End If
Next
MsgBox Mid(StrReverse(hece), 1, Len(hece) - 1)
End Sub
Eklenmiş Dosyalar
Dosya Türü: xlsm heceleme.xlsm (19.4 KB, 9 Görüntülenme)
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 30-01-2018, 21:10   #8
klop01
Altın Üye
 
klop01 kullanıcısının avatarı
 
Giriş: 19/12/2016
Şehir: Düzce
Mesaj: 280
Excel Vers. ve Dili:
2016 Türkçe 32 Bit Pro
Varsayılan

Sayın leumruk,
Çalışmanız için teşekkürler.
İki konu dikkatimi çekti:
1. Heceleme yapılınca sonucu bir hücreye yazsa daha iyi olur.
2. Uzun ünlülerde sonuç vermiyor.
duyûn, irfân, âlâ vb.
klop01 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-01-2018, 21:51   #9
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,279
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Alıntı:
klop01 tarafından gönderildi Mesajı Görüntüle
Sayın leumruk,
Çalışmanız için teşekkürler.
İki konu dikkatimi çekti:
1. Heceleme yapılınca sonucu bir hücreye yazsa daha iyi olur.
2. Uzun ünlülerde sonuç vermiyor.
duyûn, irfân, âlâ vb.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
3. 2 Ünlü yan yana geldiğinde sonuç vermiyordu.
Kodları bu 2 hata giderilmiş şekilde güncelledim.
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimiçi   Alıntı Yaparak Cevapla
Eski 30-01-2018, 22:13   #10
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,644
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Mustafa Bey;

Elinize sağlık, ilginç bir çalışma olmuş. Ben yaptığım birkaç denemede, sesli harfle başlayan "araba", "evli" gibi kelimelerde sıkıntı olduğunu gördüm. Bir de; "kalemtraş" kelimesinde beklenen sonucu vermedi. Belki kelimenin türetilmiş olması özelliğindendir bilemiyorum.

Elinize sağlık,

.
__________________
Kod anlatılmaz,yazılır !

(Özel sorularınız için sa4truss@gmail.com)
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 11:06


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden