Sziasztok!
Ki kellene nyernem egy adott oszlop celláiból az utolsó vessző utáni részt.
Az is segítene, ha meg tudnám kerestetni az utolsó vesszőt egy cellában. Onnan már a "jobb" és a "hossz" függvény már megoldja.
Előre is köszönöm.
András
[Megoldva] Cellában az utolsó vessző utáni rész
[Megoldva] Cellában az utolsó vessző utáni rész
A hozzászólást 1 alkalommal szerkesztették, utoljára sutyika 2013. szeptember 19., csütörtök 11:27-kor.
LibreOffice 4.1 Linux Mint 13
- Zizi64
- Globális moderátorok
- Hozzászólások: 4084
- Csatlakozott: 2008. november 12., szerda 21:22
- Tartózkodási hely: Budapest
Re: cellában az utolsó vessző utáni rész
Basic makrófüggvénnyel (...írnod kell egyet...) a legcélszerűbb ezt megvalósítani. Paraméterként átadod a cella tartalmát a függvénynek, és ciklikusan végigpásztázod a stringet az utolsó vesszőig, és aztán veszed az adott pozíciótól a végéig terjedő részt, amit a függvény kimenetén visszaadsz a hívó cellának...
Ha fix (mindig ugyanolyan) számú vessző fordulhat csak elő a szövegekben, akkor cellafüggvényekkel is operálhatsz.
Például, ha lehet tudni előre, hogy pontosan 3 db vessző van (valahol) az A1 cellában található stringben, akkor használhatod a:
képletet.
Egyéb ötlet nem jut az eszembe.
Ha fix (mindig ugyanolyan) számú vessző fordulhat csak elő a szövegekben, akkor cellafüggvényekkel is operálhatsz.
Például, ha lehet tudni előre, hogy pontosan 3 db vessző van (valahol) az A1 cellában található stringben, akkor használhatod a:
Kód: Egész kijelölése
=RIGHT(A1;LEN(A1)-FIND(",";A1;FIND(",";A1;FIND(",";A1;1)+1)+1))
Egyéb ötlet nem jut az eszembe.
Sok sikert!
Kovács Tibor (W10x64Pro/W7x64P: 7.5.8;
winPenPack/PortableApps: LO3.3.1-7.6.2, AOO4.1.14
Ha megoldódott a probléma, jelöld a témaindító hozzászólásod címének szerkesztésével. Írd elé: [Megoldva].
Kovács Tibor (W10x64Pro/W7x64P: 7.5.8;
winPenPack/PortableApps: LO3.3.1-7.6.2, AOO4.1.14
Ha megoldódott a probléma, jelöld a témaindító hozzászólásod címének szerkesztésével. Írd elé: [Megoldva].
- Zizi64
- Globális moderátorok
- Hozzászólások: 4084
- Csatlakozott: 2008. november 12., szerda 21:22
- Tartózkodási hely: Budapest
Re: cellában az utolsó vessző utáni rész
Itt egy működő példa a makrófüggvényre.
Paraméterek:
Keresendo : a karakter, aminek az utolsó előfordulását keressük
Szoveg : a szöveg, amiben a Karakter utolsó előfordulását keressük.
A függvény visszatérési értéke a keresett karakter utolsó előfordulása utáni szövegrész. Ha egyetlen egyszer sem fordul elő a karakter a szövegben, akkor a visszatérési érték "", azaz üres string.
Használata (a fönti példából kiindulva, amikor is a szöveg az A1 cellában van):
Módosíthatod kódot úgy is, hogy nem egy karaktert figyel, hanem az egy karakternél hosszabb keresendő szövegrészt figyeli a hosszú szövegben.
A fenti példakód nem vizsgája, csak feltételezi, hogy EGYETLEN karaktert adsz át keresésre.
Paraméterek:
Keresendo : a karakter, aminek az utolsó előfordulását keressük
Szoveg : a szöveg, amiben a Karakter utolsó előfordulását keressük.
A függvény visszatérési értéke a keresett karakter utolsó előfordulása utáni szövegrész. Ha egyetlen egyszer sem fordul elő a karakter a szövegben, akkor a visszatérési érték "", azaz üres string.
Kód: Egész kijelölése
Function Jobbrol(Keresendo, Szoveg as string) as string
Dim Hossz as integer
Dim i as integer
Hossz = len(Szoveg)
for i = Hossz to 1 Step -1
If Mid(Szoveg,i,1) = Keresendo then
Jobbrol = Right(Szoveg, Hossz - i)
Exit function
End if
next i
Jobbrol = ""
End function
Használata (a fönti példából kiindulva, amikor is a szöveg az A1 cellában van):
Kód: Egész kijelölése
=JOBBROL(",";A1)
A fenti példakód nem vizsgája, csak feltételezi, hogy EGYETLEN karaktert adsz át keresésre.
Sok sikert!
Kovács Tibor (W10x64Pro/W7x64P: 7.5.8;
winPenPack/PortableApps: LO3.3.1-7.6.2, AOO4.1.14
Ha megoldódott a probléma, jelöld a témaindító hozzászólásod címének szerkesztésével. Írd elé: [Megoldva].
Kovács Tibor (W10x64Pro/W7x64P: 7.5.8;
winPenPack/PortableApps: LO3.3.1-7.6.2, AOO4.1.14
Ha megoldódott a probléma, jelöld a témaindító hozzászólásod címének szerkesztésével. Írd elé: [Megoldva].
- Zizi64
- Globális moderátorok
- Hozzászólások: 4084
- Csatlakozott: 2008. november 12., szerda 21:22
- Tartózkodási hely: Budapest
Re: [Megoldva] Cellában az utolsó vessző utáni rész
Látom, megjelölted a témát, hogy "MEGOLDVA", de esetleg szóban is visszajelezhettél volna, hogy melyik megoldás volt a számodra a megfelelő (a makró, vagy a cellafüggvényes...)
Sok sikert!
Kovács Tibor (W10x64Pro/W7x64P: 7.5.8;
winPenPack/PortableApps: LO3.3.1-7.6.2, AOO4.1.14
Ha megoldódott a probléma, jelöld a témaindító hozzászólásod címének szerkesztésével. Írd elé: [Megoldva].
Kovács Tibor (W10x64Pro/W7x64P: 7.5.8;
winPenPack/PortableApps: LO3.3.1-7.6.2, AOO4.1.14
Ha megoldódott a probléma, jelöld a témaindító hozzászólásod címének szerkesztésével. Írd elé: [Megoldva].