Hirdetés
- Samsung Galaxy A55 - új év, régi stratégia
- Samsung Galaxy Watch6 Classic - tekerd!
- Xiaomi Watch 2 Pro - oké, Google, itt vagyunk mi is
- Redmi Note 13 4G
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Xiaomi 14T - nem baj, hogy nem Pro
- OneSport OT07 - szevasztok, hollandok!
- iPhone topik
- MWC 2025: A kicsi és a kamerás - megjött a Xiaomi 15 és az Ultra
- Honor Magic7 Pro - kifinomult, költséges képalkotás
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Mutt
senior tag
válasz
andreas49 #48996 üzenetére
Szia,
Tedd be a fájlba a lenti UDF-et, majd használd így:
Function TextPart(InputText, Optional Separator As String = " ", Optional PartStart As Long, Optional PartEnd As Long)
'Separator ha nincs megadva akkor szóközként értelmezzük
Dim arraySplit
Dim vFelsoMeret As Long
Dim i As Long
Dim txtResult As String
'szétszedjük a szöveget az elválasztójel alapján
arraySplit = Split(InputText, Separator)
'megnézzük hogy hány részre szedhető
vFelsoMeret = UBound(arraySplit)
If PartEnd = 0 Then PartEnd = PartStart
'ha az utolsó utáni darabot kérik, akkor is az utolsót adjuk
If PartEnd >= vFelsoMeret + 1 Then PartEnd = vFelsoMeret + 1
'ha a legelső darab előtti kell, akkor is az elsőt adjuk vissza
If PartStart <= 0 Then PartStart = 0
'megadjuk a kért részt
If PartEnd > PartStart Then
txtResult = ""
For i = PartStart To PartEnd - 1
txtResult = txtResult & arraySplit(i - 1) & Separator
Next i
TextPart = txtResult & arraySplit(PartEnd - 1)
Else
TextPart = arraySplit(PartStart - 1)
End If
End Functionüdv
Ps. Microsoft365-ben van már szövegdaraboló függvény is.
Új hozzászólás Aktív témák
- Ukrajnai háború
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: MárkaLánc
- nVidia GeForce GTX 1070 / 1070 Ti / 1080 (GP104)
- Békéscsaba és környéke adok-veszek-beszélgetek
- ASUS routerek
- Meggyi001: Vegán? Nem vegán?
- Samsung Galaxy A55 - új év, régi stratégia
- További aktív témák...
- Eszpresszóképes kávéfőző 15 bar nyomással
- Samsung Galaxy J4+ 32GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! Samsung Galaxy A12/Samsung Galaxy A22/Samsung Galaxy A32/Samsung Galaxy A52
- Honor Magic5 Lite 128GB, Kártyafüggetlen, 1 Év Garanciával
- Csere-Beszámítás! RTX Számítógép játékra! I5 9400/ RTX 2060 / 32GB DDR4 / 500GB SSD
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest