Karakter Değiştirme

[Electro]

Mevcut kodlarda 0 yerine 1, 1 yerine 2, A yerine B gelecek şekilde (karşılıklarını tabloda belirttim.) değiştirmek istiyorum. Bir formül yardımıyla değiştirebilir miyim?

 

[Necdet]

Merhaba,

KTF (Kullanıcı Tanımlı Fonksiyon) isterseniz eğer aşağıdaki kodları kullanabilirsiniz.

Function Cevir(Deger As String)
 
    Dim i   As Integer
    Dim c   As String
    Dim s   As String
    
    For i = 1 To Len(Deger)
        c = Mid(Deger, i, 1)
        If c = "Z" Then
            s = s & Chr(48)
        ElseIf c = "9" Then
            s = s & Chr(65)
        Else
            s = s & Chr(Asc(c) + 1)
        End If
    Next i
    
    Cevir = s
    
End Function

 

[MEH979]

Kolay Gelsin;
Bende formül ile yaptım

 

[Korhan Ayhan]

Merhaba,

Bende bir kullanıcı tanımlı fonksiyon hazırladım. İncelermisiniz.

Function YENİ_KOD(Veri As Range, Tablo_Dizisi As Range, Sütun_İndis_Sayısı As Integer) As String
    Dim X As Integer, Aranan_Veri As Variant, Data As Variant
 
    Application.Volatile True
 
    If Veri = "" Then Exit Function
 
    On Error Resume Next
 
    For X = 1 To Len(Veri)
        Aranan_Veri = Mid(Veri, X, 1)
        If IsNumeric(Aranan_Veri) Then Aranan_Veri = Aranan_Veri * 1
        Data = WorksheetFunction.VLookup(Aranan_Veri, Tablo_Dizisi, Sütun_İndis_Sayısı, 0)
        YENİ_KOD = IIf(YENİ_KOD = "", Data, YENİ_KOD & Data)
    Next
End Function

Hücrede kullanım şekli;

[B][COLOR=blue]=YENİ_KOD(Aranan_Veri;Tablo_Dizisi;Sütun_İndis_Sayısı)[/COLOR][/B]

 

[Necdet]

3 Yanıt, tık yok

 

[Electro]

Bakmakta çok geciktim özür dilerim. Hepinizin ellerine sağlık. Tam istediğim gibi olmuş.