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

• #14622 Delila_1 veterán akyyy #14621

  Új Válasz 2012-08-14 15:58:33 #14622

  Ú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

  

  Delila_1

  veterán

  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