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

• #17545 Mutt senior tag atillaahun #17532

  Új Válasz 2013-04-02 22:39:17 #17545

  Ú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 atillaahun #17532 üzenetére

  Hello,

  Üdv, szükségem lenne valami nyerő ötletre hogy rakok sorba Dr.-okat, Prof. Dr.-okat, meg sima nevű embereket, egy kb. 500-as táblába, úgy hogy a rendezési elv ugye mindenkinek a normál vezetékneve, címzések nélkül.

  A szűk keresztmetszet itt, hogy hogyan tudod eltávolítani a nevekből a titulusokat.
  Excelben sok szöveg függvény van, a HELYETTE például ezt csinálja, de egyszerre csak 1 cserét csinál meg.
  Ezért készítettem egy UDF-et amely egyszerre több cserél csinál csak sorold fel vhova azokat amiket le kell cserélni.

  Itt a kód:
  Function HelyetteTobb(Eredeti, rngKereses As Range)
  Dim szoveg_regi As Range
  Dim szoveg
  
  HelyetteTobb = "N/A"
  szoveg = Eredeti
  
  For Each szoveg_regi In rngKereses
  szoveg = Replace(szoveg, CStr(szoveg_regi.Value), "", compare:=vbTextCompare)
  Next szoveg_regi
  
  HelyetteTobb = Trim(szoveg)
  End Function

  Lépések:
  1. A fenti függvényt használva megkapod a sima neveket.
  2. DARABTELI függvénnyel meghatározod hogy a név ABC-sorrend szerint hanyadik helyre kerül.
  3. Az elöző függvény eredményét felhasználva ABC-sorrendbe kiíratod a listát. Itt sok megoldás lehet, pl. ELTOLÁS, INDEX, FKERES.

  

  üdv.

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