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

• #35579 Pakliman tag

  Új Válasz 2017-06-28 15:25:05 #35579

  Ú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

  

  Pakliman

  tag

  Sziasztok!

  Ha valakinek esetleg kellene egy ilyen:

  Public Function Darabolt(darabolandó, rész As Long, Optional elválasztó As String = " ", Optional elválasztó_egyben_használandó As Boolean = True) As String
Dim delim
Dim i As Long

If elválasztó_egyben_használandó Then
delim = elválasztó
Else
delim = Mid(elválasztó, 1, 1)
For i = 2 To Len(elválasztó)
darabolandó = Replace(darabolandó, Mid(elválasztó, i, 1), delim)
Next i
End If

On Error GoTo Hiba
Darabolt = Split(darabolandó, delim)(rész - 1)

Exit Function

Hiba:
Darabolt = ""
End Function

  Használata:

  darabolandó -> bármilyen szöveg, amiből egy részt akarunk visszakapni
  rész -> az elválasztók által határolt n-edik rész
  elválasztó -> ezt a karaktert vagy szöveget értelmezzük elválasztóként -> ha nincs megadva, akkor 1 db szóköz
  elválasztó_egyben_használandó -> lásd lentebb

  Darabolt("A darabolandó szöveg-> kukac@excel.hu",2) -> "darabolandó"
  Darabolt("A darabolandó szöveg-> kukac@excel.hu",4) -> "kukac@excel.hu"
  Darabolt("A darabolandó szöveg-> kukac@excel.hu",1,"->") -> "A darabolandó szöveg"
  Darabolt("A darabolandó szöveg-> kukac@excel.hu",2,"->") -> " kukac@excel.hu"

  Darabolt("A darabolandó szöveg-> kukac@excel.hu",1,"->",False) -> "A darabolandó szöveg"
  Darabolt("A darabolandó szöveg-> kukac@excel.hu",2,"->",False) -> ""
  Darabolt("A darabolandó szöveg-> kukac@excel.hu",3,"->",False) -> " kukac@excel.hu"

  Darabolt("A darabolandó szöveg-> kukac@excel.hu",3,"->@",False) -> " kukac"
  Darabolt("A darabolandó szöveg-> kukac@excel.hu",4,"->@",False) -> "excel.hu"

  Darabolt("A darabolandó szöveg-> kukac@excel.hu",1,"->@",True) -> "A darabolandó szöveg-> kukac@excel.hu"

  Használható VBA-ban és cellában egyaránt.

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