Keresés

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

  • 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.

  • Delila_1

    veterán

    válasz atillaahun #17532 üzenetére

    Az első kérdésre:
    Az A oszlopban vannak a nevek.
    B1 ->
    =HA(BAL(A1;2)="dr";JOBB(A1;HOSSZ(A1)-4);HA(BAL(A1;4)="prof";JOBB(A1;HOSSZ(A1)-6);A1))

    C1 ->
    =HA(BAL(A1;2)="dr";B1&" dr.";HA(BAL(A1;4)="prof";B1&" prof.";B1))

    A másodikat próbáld meg a Szövegből oszlopok funkcióval megoldani, ahol határolójelnek a szóközt adod meg. Nem lesz tökéletes, mert pl. az utca neve több szóból is állhat.

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