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

• #20428 Mutt senior tag the radish #20380

  Új Válasz 2014-02-10 20:02:12 #20428

  Ú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

  

  Mutt

  senior tag

  válasz the radish #20380 üzenetére

  Hello,

  Meg lehet azt oldani, hogy a helyette függvénnyel két, vagy több szót is kicseréljek egy menetben?

  Saját függvénnyel megoldható.

  Public Function Cserek(bemenet, ParamArray keres())
  Dim i As Long
  
  Cserek = bemenet
  For i = LBound(keres) To UBound(keres) Step 2
  Cserek = WorksheetFunction.Substitute(Cserek, keres(i), keres(i + 1))
  Next i
  
  End Function.

  Használata: =Cserek("56 alma 64 banán";"alma";"magyar";"banán";"déli")

  Termeszetesen cella hivatkozásokat is használhatsz. Ha páratlanul adod meg a szövegpárokat, akkor hibára fut!

  üdv

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