sesli harflerin hepsini aynı anda değiştirmek

[Muhammet Okumuş]

Merhaba arkadaşlar exceldeki bir sayfadaki bütün sesli harfleri aynı anda değiştirmemiz mümkün mü?ctrl+h tuş kombinasyonu ile oluyor.ancak 8 tane sesli harf olduğu için tek tek yapmak uğraştırıyor.bunu kodla aynı anda yapmamız mümkün mü? o sayfada yer alan bütün harfleri kapsayacak.
a * ,e #, ı ♥, i ♫, o ▲, ö ►, u ▼, ü ◄

 

[N.Ziya Hiçdurmaz]

yanıt

Sub degistir()
Dim deg, ded2, i, alan
deg = Array("a", "e", "ı", "i", "o", "ö", "u", "ü")
deg2 = Array([m1], [m2], [m3], [m4], [m5], [m6], [m7], [m8])
    For i = 0 To 7
    For Each alan In Selection
        If alan.Value Like deg(i) Then
            alan.Value = deg2(i)
        End If
    Next: Next
End Sub

 

[Muhammet Okumuş]

sayın N.Ziya Hiçdurmaz ilginize teşekkür ederim.Ancak ben bir değişim göremedim

 

[Muhammet Okumuş]

acaba kodlar neden çalışmıyor?

 

[leumruk]

acaba kodlar neden çalışmıyor?

Selection tanımına dikkat edin. Kodlar sizin seçtiğiniz alanlarda çalışıyor. alan seçimi yapmamış olabilirsiniz.

 

[Muhammet Okumuş]

ben sayfa1 deki bütün sesli harflerin değişmesini istiyorum.Alan sayfa1

 

[Orion1]

Hangi fontu kullandınız?
Küçük bir örnek dosya yolayın bakalım.
Karakter ler standart ascii karakter setine uymuyor.
Bir problem var orada.

 

[Muhammet Okumuş]

ben Sn Hiçdurmaz hocamızın eklemiş olduğu dosyayı denedim.İsteğim Sayfa1 deki bütün sesli harfleri karekterlere dönüştürmek.ctrl+h uygulmasının aynı anda 8 tane işlem yapması

 

[omerceri]

Aşsğıdaki kodlar arkadaşın işini çözebilir ama "a *" sorun çıkarıyor şimdi çıkmak durumundayım yardımcı olacaklara kolaylık olabilir diye düşündüm.
Sub degistir()

deg1 = Array("a *", "e #", "ı ¦", "i d", "o ^", "ö >", "u ¡", "ü <")
deg2 = Array("A", "E", "I", "İ", "O", "Ö", "U", "Ü")
For i = 0 To 7
Cells.Replace What:=deg1(i), Replacement:=deg2(i), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End Sub

 

[Muhammet Okumuş]

a2 hücresine edirne yazdım hiçbir şey değişmedi.

 

[leumruk]

Merhaba,
Örneği deneyin:
Kod içinde karakterler tanınmıyor.(Bazıları). Bu nedenle sayfa2'ye aldım.

Sub Bul_Degistir()
Set s2 = Sheets("sayfa2")
aranan = Array("a", "e", "ı", "i", "o", "ö", "u", "ü")
yeni = Array(s2.[a1], s2.[a2], s2.[a3], s2.[a4], s2.[a5], s2.[a6], s2.[a7], s2.[a8])
For x = LBound(aranan) To UBound(aranan)
Cells.Replace What:=aranan(x), Replacement:=yeni(x), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End Sub

 

[Muhammet Okumuş]

sn leumruk dosyanızda hiç düğme yok.düğme ekledim salt okunur deyip dosyalar açılıyor

 

[leumruk]

sn leumruk dosyanızda hiç düğme yok.düğme ekledim salt okunur deyip dosyalar açılıyor

Muhtemelen kendi bilgisayarınıza indirmeden dosyayı açmış, sonrasında buton eklemişsinizdir. Butonlu bir örnekle değiştiriyorum. Yeniden deneyin.

 

[Muhammet Okumuş]

sn leumruk her zaman ki gibi harikasınız.çok teşekkür ederim...

 

[leumruk]

sn leumruk her zaman ki gibi harikasınız.çok teşekkür ederim...

Rica ederim.k::

 

[Muhammet Okumuş]

sn leumruk peki bu kodunuz sadece 8 ile sınırlı mı?sayıyı arttırabilirmiyiz?artıra bilirsek kodun nerelerini değiştirecez

 

[Muhammet Okumuş]

aslında çoğaltım karekterleri değiştiriyor. Ancak
Cells.Replace What:=aranan(x), Replacement:=yeni(x), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
kısmı sarı renkli oluyor çevirdikten sonra

 

[leumruk]

sn leumruk peki bu kodunuz sadece 8 ile sınırlı mı?sayıyı arttırabilirmiyiz?artıra bilirsek kodun nerelerini değiştirecez

Aslında kod ipucu veriyor. aranan, yeni tanımlamaları anahtar kelimelerimiz. Kırmızı ile belirttiğim alanlara ekleme yapacaksınız. Değiştirilmesini istediğiniz değerleri aranan kısmına, yeni değerleri ise yeni kısmına ekleyeceksiniz. Yalnız sıralamaya dikkat edin. Örneğin: arananın 1. sırasıyla, yeninin 1. sırası istediğimiz değerler olmalı.

Sub Bul_Degistir()
Set s2 = Sheets("sayfa2")
aranan = Array[COLOR="DarkRed"]("a", "e", "ı", "i", "o", "ö", "u", "ü")[/COLOR]
yeni = Array([COLOR="darkred"]s2.[a1], s2.[a2], s2.[a3], s2.[a4], s2.[a5], s2.[a6], s2.[a7], s2.[a8])[/COLOR]
For x = LBound(aranan) To UBound(aranan)
Cells.Replace What:=aranan(x), Replacement:=yeni(x), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End Sub

 

[leumruk]

aslında çoğaltım karekterleri değiştiriyor. Ancak
Cells.Replace What:=aranan(x), Replacement:=yeni(x), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
kısmı sarı renkli oluyor çevirdikten sonra

Kodunuzu ekleyin bakalım.

 

[Muhammet Okumuş]

tamam şimdi oldu çok teşekkür ederim.Allah razı olsun.