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

• #11207 Fehér Mancs tag pitman #11194

  Új Válasz 2011-08-31 08:39:19 #11207

  Ú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

  

  Fehér Mancs

  tag

  válasz pitman #11194 üzenetére

  Makró nélkül szerintem nem lehet megoldani, legpraktikusabb megoldás a reguláris kifejezések használata:

  Ezt először aktiválni kell a VBA-ban (Microsoft VBScript Regular Expressions 5.5 -> aktiválás leírása pl.: http://lispy.wordpress.com/2008/10/17/using-regex-functions-in-excel/ )

  Ezután pedig egyszerű makró közbeiktatásával lehet használni az excelben is függvényként:
  pl.:
  makró:
  Dim reg As New RegExp
  
  Public Function RegExpLike(Source As Range, Pattern As String, Optional IgnoreCase As Boolean = True, Optional MultiLine As Boolean = True) As Boolean
  
  reg.IgnoreCase = IgnoreCase
  reg.MultiLine = MultiLine
  reg.Pattern = Pattern
  
  RegExpLike = reg.Test(Source.Value)
  
  End Function

  Az excel függvény, ami ellenőrzi, hogy az adott cellában alfanumerikus karakter van (ékezetes betűkkel megspékelve):
  =RegExpLike(A1;"^[A-Z0-9ÁÉÍÓÖŐÚÜŰ]*$")

  Szinte bármilyen minta keresésére, cseréjére, számolgatására fel lehet használni, neten jó leírások vannak erről.

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