Új hozzászólás Aktív témák

• #28007 Fferi50 Topikgazda attilalr2 #28000

  Új Válasz 2015-08-01 21:45:19 #28007

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz attilalr2 #28000 üzenetére

  Szia!

  Próbáld ki ezt a makrót:
  Sub cserelo(ByRef rng As Range, ByVal mit As String, ByVal mire As String)
  Dim cl As Range, xx As Integer
  If Len(mit) <> Len(mire) Then MsgBox "Nem egyforma a két szöveg!", vbInformation: Exit Sub
  For Each cl In rng.Cells
  If Not IsEmpty(cl) Then
  For xx = 1 To Len(mit)
  cl.Value = Replace(cl.Value, Mid(mit, xx, 1), Mid(mire, xx, 1))
  Next
  End If
  Next
  End Sub

  A VBA nézet immediate ablakából indíthatod, pl. így:
  cserelo Sheets("Munka1").Range("A1:C72"),"áéó","aeo" a végén enter.

  Tehát az első paraméter a tartomány címe (vba-szerint beírva), a második a cserélendő betűk, a harmadik pedig amire cserélni kell. A második és a harmadik paramétert "szinkronban" kell tartani, mert az azonos pozícióban levő betűket cseréli (tehát első betűt az elsőre, második betűt a másodikra és így tovább).

  Üdv.

Új hozzászólás Aktív témák