[Yardım]  Sadece türkçe olan kelimelerin fontlarını değiştirmek

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sadece türkçe olan kelimelerin fontlarını değiştirmek

İleti#1)  mrtyvz » 09 Tem 2019 19:04

Merhaba;
Arapça ve Türkçeyi birlikte kullandığım bir çalışmam var ayetlerin kelimelerinin açıklamalarını yanına yazıyorum. Arapça kelimelerin fontlarıyla türkçe kelimelerin fontları birnirinden farklı olmak zorunda.
Sorum şöyle: Çalışmanın içerisinde veya şeçilen hücredeki sadece türkçe olan kelimelerin fontlarını nasıl değiştirebilrim.
Teşekkürler.
örnek:
اَلَا يَظُنُّ sanmıyorlarmı اُو۬لٰٓئِكَ işte اَنَّهُمْ şüphesiz onlar مَبْعُوثُونَۙ tekrar diriltileceklerini
كُلُّ نَفْسٍ ذَٓائِقَةُ الْمَوْتِۜ
قُلْ اِنَّ صَلَات۪ي وَنُسُك۪ي وَمَحْيَايَ وَمَمَات۪ي لِلّٰهِ رَبِّ الْعَالَم۪ينَۙ
Kullanıcı avatarı
mrtyvz
Yeni Başlamış
 
Kayıt: 13 Eyl 2018 08:22
Meslek: danışman
Yaş: 38
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: Sadece türkçe olan kelimelerin fontlarını değiştirmek

İleti#2)  askmadige34 » 09 Tem 2019 20:20

Örnek dosyanız olursa yardımcı olabiliriz. Karakter bazlı bakarak fontunu değiştirilebilir. Makro ile birşeyler yapılabilir sanırım.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 39
İleti: 1715
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Sadece türkçe olan kelimelerin fontlarını değiştirmek

İleti#3)  mrtyvz » 11 Tem 2019 14:22

Örnek dosya ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
كُلُّ نَفْسٍ ذَٓائِقَةُ الْمَوْتِۜ
قُلْ اِنَّ صَلَات۪ي وَنُسُك۪ي وَمَحْيَايَ وَمَمَات۪ي لِلّٰهِ رَبِّ الْعَالَم۪ينَۙ
Kullanıcı avatarı
mrtyvz
Yeni Başlamış
 
Kayıt: 13 Eyl 2018 08:22
Meslek: danışman
Yaş: 38
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: Sadece türkçe olan kelimelerin fontlarını değiştirmek

İleti#4)  askmadige34 » 13 Tem 2019 16:18

Kusura bakmayın geç dönüş yaptım. Dosyanızı açamadım. Tekrar yükleme şansınız olursa bakayım.Aşağıdaki linkdeki konu yardımcı olabilir.
viewtopic.php?f=4&t=33563&p=243425#p243425
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 39
İleti: 1715
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Sadece türkçe olan kelimelerin fontlarını deği

İleti#5)  mrtyvz » 15 Tem 2019 13:59

askmadige34 yazdı:Kusura bakmayın geç dönüş yaptım. Dosyanızı açamadım. Tekrar yükleme şansınız olursa bakayım.Aşağıdaki linkdeki konu yardımcı olabilir.
http://excelvba.net/viewtopic.php?f=4&t ... 25#p243425

Önemli değil , evet bende dosyayı açamadım, tekrar yüklüyorum.
Sayfayı şimdi inceliyorum. İlginize teşekkürler...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
كُلُّ نَفْسٍ ذَٓائِقَةُ الْمَوْتِۜ
قُلْ اِنَّ صَلَات۪ي وَنُسُك۪ي وَمَحْيَايَ وَمَمَات۪ي لِلّٰهِ رَبِّ الْعَالَم۪ينَۙ
Kullanıcı avatarı
mrtyvz
Yeni Başlamış
 
Kayıt: 13 Eyl 2018 08:22
Meslek: danışman
Yaş: 38
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: Sadece türkçe olan kelimelerin fontlarını değiştirmek

İleti#6)  Ozan İLGÜN » 15 Tem 2019 15:06

Kod: Tümünü seç
Sub fontdeğiştir(hücre As Range)
Application.ScreenUpdating = False
Dim i As Long
Dim c As Long
For i = 1 To Len(hücre.Text)
        c = AscW(Mid(hücre.Text, i))
       
        If (c >= &H600 And c <= &H6FF) = False Then
        hücre.Characters(i, 1).Font.Name = "Arial"
             End If
    Next i
    Application.ScreenUpdating = True
  End Sub


Kullanma Yöntemi
Kod: Tümünü seç
Call fontdeğiştir(Range("D11763"))
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2734
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Sadece türkçe olan kelimelerin fontlarını deği

İleti#7)  mrtyvz » 15 Tem 2019 15:27

Ozan İLGÜN yazdı:
Kod: Tümünü seç
Sub fontdeğiştir(hücre As Range)
Application.ScreenUpdating = False
Dim i As Long
Dim c As Long
For i = 1 To Len(hücre.Text)
        c = AscW(Mid(hücre.Text, i))
       
        If (c >= &H600 And c <= &H6FF) = False Then
        hücre.Characters(i, 1).Font.Name = "Arial"
             End If
    Next i
    Application.ScreenUpdating = True
  End Sub



maalesef beceremedim. :D
makro çalışıyor ancak bir düzelme yada değişiklik olmuyor
Kullanma Yöntemi
Kod: Tümünü seç
Call fontdeğiştir(Range("D11763"))
كُلُّ نَفْسٍ ذَٓائِقَةُ الْمَوْتِۜ
قُلْ اِنَّ صَلَات۪ي وَنُسُك۪ي وَمَحْيَايَ وَمَمَات۪ي لِلّٰهِ رَبِّ الْعَالَم۪ينَۙ
Kullanıcı avatarı
mrtyvz
Yeni Başlamış
 
Kayıt: 13 Eyl 2018 08:22
Meslek: danışman
Yaş: 38
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: Sadece türkçe olan kelimelerin fontlarını değiştirmek

İleti#8)  Ozan İLGÜN » 15 Tem 2019 15:40

Bende oldu acaba donmuş olabilir mi. Tek tek girip baktınız mı.
Alternatif:
Kod: Tümünü seç
Sub fontdeğiş(hücre As Range)
Application.ScreenUpdating = False
Dim i As Long
For i = 1 To Len(hücre.Text)
       If hücre.Characters(i, 1).Text <> "?" Then hücre.Characters(i, 1).Font.Name = "Arial"
    Next i
    Application.ScreenUpdating = True
  End Sub
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2734
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Cevap: Sadece türkçe olan kelimelerin fontlarını deği

İleti#9)  mrtyvz » 15 Tem 2019 16:44

Ozan İLGÜN yazdı:Bende oldu acaba donmuş olabilir mi. Tek tek girip baktınız mı.
Alternatif:
Kod: Tümünü seç
Sub fontdeğiş(hücre As Range)
Application.ScreenUpdating = False
Dim i As Long
For i = 1 To Len(hücre.Text)
       If hücre.Characters(i, 1).Text <> "?" Then hücre.Characters(i, 1).Font.Name = "Arial"
    Next i
    Application.ScreenUpdating = True
  End Sub


Sorun nedir bilemiyorum.
Ancak sayfada değişiklik olmadığını biliyorum. :D
Sizden ricam seçili hücrede türkçe yazanların boyutunu 12 yapması;
كُلُّ نَفْسٍ ذَٓائِقَةُ الْمَوْتِۜ
قُلْ اِنَّ صَلَات۪ي وَنُسُك۪ي وَمَحْيَايَ وَمَمَات۪ي لِلّٰهِ رَبِّ الْعَالَم۪ينَۙ
Kullanıcı avatarı
mrtyvz
Yeni Başlamış
 
Kayıt: 13 Eyl 2018 08:22
Meslek: danışman
Yaş: 38
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: Sadece türkçe olan kelimelerin fontlarını değiştirmek

İleti#10)  mrtyvz » 15 Tem 2019 16:50

Açıkçası kodu anlayamadığım için üzerinde bir yorumda yapamıyorum.
Çalıştırdığınız dosyayı eklerseniz, demekki benim bilgisayarımda bir sorun var [ilginc]
كُلُّ نَفْسٍ ذَٓائِقَةُ الْمَوْتِۜ
قُلْ اِنَّ صَلَات۪ي وَنُسُك۪ي وَمَحْيَايَ وَمَمَات۪ي لِلّٰهِ رَبِّ الْعَالَم۪ينَۙ
Kullanıcı avatarı
mrtyvz
Yeni Başlamış
 
Kayıt: 13 Eyl 2018 08:22
Meslek: danışman
Yaş: 38
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: Sadece türkçe olan kelimelerin fontlarını değiştirmek

İleti#11)  mrtyvz » 16 Tem 2019 08:29

Sub her_iki_kodda_çalışıyor.()
Set tabii bu kodlar karakter boyutunu ayarlamıyor ve seçili hücreyi değilde makroda yazılan hücreyi etkiliyor.
Application Sanırım bunları çözebilirim.
msgbox "çok teşekkür ederim. "
End sub
[oley]
كُلُّ نَفْسٍ ذَٓائِقَةُ الْمَوْتِۜ
قُلْ اِنَّ صَلَات۪ي وَنُسُك۪ي وَمَحْيَايَ وَمَمَات۪ي لِلّٰهِ رَبِّ الْعَالَم۪ينَۙ
Kullanıcı avatarı
mrtyvz
Yeni Başlamış
 
Kayıt: 13 Eyl 2018 08:22
Meslek: danışman
Yaş: 38
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: Sadece türkçe olan kelimelerin fontlarını değiştirmek

İleti#12)  Ozan İLGÜN » 17 Tem 2019 23:55

Kod: Tümünü seç
Sub Vaziyet()
Dim sonuc As String
sonuc = InputBox("Konu çözüldü mü", "?")
If UCase(sonuc) = "EVET" Then
MsgBox "Konu kilitlensin"
Else
MsgBox "Bu konuyla ilgili başka bir sorum daha var."
End If
End Sub
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2734
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Sadece türkçe olan kelimelerin fontlarını değiştirmek

İleti#13)  mrtyvz » 18 Tem 2019 12:55

Bu kod tam olarak sorunu çözmüyor.
Ayrıca çok fazla donuyor, yada kilitleniyor.
Ancak kod çalıştığı için sonrasını yapabilirim gibi geliyor.
Umarım...
Konu kapatılabilir. :)
كُلُّ نَفْسٍ ذَٓائِقَةُ الْمَوْتِۜ
قُلْ اِنَّ صَلَات۪ي وَنُسُك۪ي وَمَحْيَايَ وَمَمَات۪ي لِلّٰهِ رَبِّ الْعَالَم۪ينَۙ
Kullanıcı avatarı
mrtyvz
Yeni Başlamış
 
Kayıt: 13 Eyl 2018 08:22
Meslek: danışman
Yaş: 38
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: Sadece türkçe olan kelimelerin fontlarını değiştirmek

İleti#14)  Feyzullah » 21 Tem 2019 04:53

Hücreyi seçip, makroyu çalıştırın.

Kod: Tümünü seç
Sub ExcelDestek80()
''ExcelDestek.Com
Set rex 
= CreateObject("vbscript.regexp")
    For a = 1 To Len(Selection)
    rex.Pattern = "[a-zA-Z0-9\Çç\Ğğ\İi\Iı\Öö\Şş\Üü]"
        If rex.Test(Mid(Selection, a, 1)) Then
            Selection
.Characters(a, 1).Font.Size = 12
        End If
    Next
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 592
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, OMERULLAH, salihcelik, tameyso ve 3 misafir

Bumerang - Yazarkafe