Skip to main content

AccessTr.neT


Çoklu Bul Değiştir Dictionary Yöntemiyle

Çoklu Bul Değiştir Dictionary Yöntemiyle

#1
Sub BulDegistir1()

Set pDict = CreateObject("Scripting.Dictionary")
pDict.Add "ÅŸ", "ş"
pDict.Add "ı", "ı"
pDict.Add "Ç", "Ç"
pDict.Add "Ä°", "İ"
pDict.Add "Ş", "Ş"
pDict.Add "ü", "ü"
pDict.Add "Ö", "Ö"
pDict.Add "Ãœ", "Ü"
pDict.Add "Ğ", "Ğ"
pDict.Add "ÄŸ", "ğ"
pDict.Add "ö", "ö"
pDict.Add "ç", "ç"
'Buraya istenildiği kadar ekleme yapılabilir.

For Each p In pDict
    Columns("C:AA").Replace what:=p, replacement:=pDict.Item(p), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Next
End Sub
@benbendedeilem
Cevapla
#2
(12/03/2020, 15:26)accessman yazdı:
Sub BulDegistir1()

Set pDict = CreateObject("Scripting.Dictionary")
pDict.Add "ÅŸ", "ş"
pDict.Add "ı", "ı"
pDict.Add "Ç", "Ç"
pDict.Add "Ä°", "İ"
pDict.Add "Ş", "Ş"
pDict.Add "ü", "ü"
pDict.Add "Ö", "Ö"
pDict.Add "Ãœ", "Ü"
pDict.Add "Ğ", "Ğ"
pDict.Add "ÄŸ", "ğ"
pDict.Add "ö", "ö"
pDict.Add "ç", "ç"
'Buraya istenildiği kadar ekleme yapılabilir.

For Each p In pDict
    Columns("C:AA").Replace what:=p, replacement:=pDict.Item(p), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Next
End Sub

Bence bu yöntem formüllü hücrelerde işe yaramaz.
Cevapla
#3
Bir örnek dosya yapıp yükleyebilir misin?
Cevapla
#4
Bir Excel açın ve modül ekleyin ve ilk mesajdaki kodu olduğu gibi ekleyin modüle ve çalıştırın.

Kodlardan anladığım kadarıyla c:aa aralığındaki bozuk olanları koddaki karşılıkarı ile değiştirir.

(12/03/2020, 15:26)accessman yazdı: pDict.Add "ÅŸ", "ş"
Yani koda göre ş den öndeki bozuk karakter c:aa aralığında varsa ş olarak değiştirir diğerleride aynı şekilde değişir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task