Excel veya Word Ortamındaki Bir Metni Heceleme

Katılım
29 Haziran 2018
Mesajlar
297
Excel Vers. ve Dili
2016 TÜRKÇE
Arkadaşlar Merhaba, İlkokul 1. sınıfı okutan arkadaşlarım bana sordular, bilemediğim için ben de size sorayım dedim.
Benden istedikleri şey öğrenciye heceleri belirten metinler hazırlamak. Okutulan kitaplarda bu matbaada hazırlanmış. Ama verdikleri ödevlerde halihazırda bunu manuel olarak tek tek yapıyorlar.
1- Metinleri yazarken her hecenin arasına bir boşluk, kelimelerin arasına ise 2 veya 3 boşluk koyuyorlar. Veya;
2- Heceler arsında boşluk bırakmadan aynı sayfadaki heceleri 2 farklı renge boyuyorlar. Çok zaman aldığından genelde birini siyah bırakıp diğerini kırmızı sarı vb. boyuyorlar. Veya;
3- 1. heceyi normal, diğerini kalın(bold) yapıyorlar.
Şimdi bunu yapan bir çalışma veya program bilen var mı acaba? Teşekkürler.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Lemruk'un kodlarını size uygun şekilde uyarladım.
Kodları bir modüle kopyalayın.

Excel sayfasında bir fonksiyon gibi ullanabilirsiniz.

Örnek =hecele(A1)
yada =hecele("deneme")

Kod:
Function hecele(Deger As String)
harf = "aâeıiîoöuûüAÂEIİÎOÖUÛÜ"
deg = Deger
If Len(deg) = 1 Then
hecele = Deger
Exit Function
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
hecele = Mid(StrReverse(hece), 1, Len(hece) - 1)
End Function
 
Katılım
29 Haziran 2018
Mesajlar
297
Excel Vers. ve Dili
2016 TÜRKÇE
Sayın Üstadlarım. İlgi ve alakanıza çok teşekkür ediyorum. Sayenizde Sayın Lemruk Üstadın çok güzel ve tam istediğim gibi bir çalışmasını edinmiş oldum. Rabbim bu güzel çalışmanın her kullanıldığında yapılacak hayır dualarla Sayın Lemruk ve vesile olan sizlere bol bol ecirler (sevaplar) ihsan eder inşallah. Bu dosya Sayın Lemruk'un izniyle eğitim ile alakalı forumlarda paylaşılırsa bir çok kişi istifade eder kanısındayım.
Sayın dalgalikur. Sizin önerdiğiniz kodları da alternatif olarak kullanacağım. Saygılarımla.
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,469
Excel Vers. ve Dili
Office 2010 & 2013 tr
Sn. Vurkan,
İyi dilekleriniz için teşekkür ederim.
Programı yapma aşamasında kızım 1. sınıfa gidiyordu, dolayısıyla kitaplarındaki hecelemeler dikkatimi çekmişti. Üzerine bir de bu yönde soru gelince böyle bir çalışma yaptım. Arkadaşlarımızın da önerileriyle son şeklini aldı.
Artık bu program kamuya bağışlanmıştır. Kaynağı belirtmek koşuluyla istediğiniz yerde paylaşabilirsiniz.
 
Katılım
29 Haziran 2018
Mesajlar
297
Excel Vers. ve Dili
2016 TÜRKÇE
Teşekkür ediyorum. Emekleriniz boşa gitmeyecektir inşallah. Saygılar sunuyorum.
 
Üst