Keresés

Hirdetés

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

  • Delila_1

    Topikgazda

    válasz akyyy #14621 üzenetére

    Írtam két függvényt rá.

    1. Vegyük, hogy a szöveged az A1 cellában van. A C1-ben az =JobbVege(A1) függvény adja az eredményt.

    Function JobbVege(szoveg As Range) As String
    Dim b%
    For b% = Len(szoveg) To 1 Step -1
    If Mid(szoveg, b%, 1) = "-" Then
    JobbVege = Right(szoveg, Len(szoveg) - b%)
    Exit Function
    End If
    Next
    End Function

    2. Nem írtad, de lehet, hogy a szöveg bal oldalát is ki kell íratnod. A B1-ben az =BalEleje(A1;C1) függvény megteszi ezt.

    Function BalEleje(teljes As Range, jobb As Range) As String
    BalEleje = Left(teljes, Len(teljes) - Len(jobb) - 1)
    End Function

    Bár az utóbbit az Excel saját függvényeivel is beírhatod.
    =BAL(A1;HOSSZ(A1)-HOSSZ(C1)-1)

    [ Szerkesztve ]

    Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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