Aktywne Wpisy
ogolnie to zabawna historia, z ktorej mozna sporo wyciagnac, stwierdzilem, ze skoro wszystko stracilem, pewnie nie wroce do starych zajec tak szybko, wiec zdecydowalem ze napisze o tym ksiazke o gang stalkingu, bedzie duzo o klamstwie, metodach manipulacji, epidmii narcyzmu, naiwnosci, moralnosci, roli religii, o grach("ze powoduja agresje?" yy nie, o pozytywnym wplywie gier mmorpg na mezczyzn zmagajacych sie z depresja), i wiele innych moze cos wrzuce tu jak zdaze.
niektore motywy
niektore motywy
![sieporobilo](https://wykop.pl/cdn/c0834752/13d16347015c5e0f0e5c0a3096d8e3c58ad327077da3dd4080445dbe5cca5d2b,q60.jpg)
sieporobilo +569
-Tekst w komórce za długaśny jest
do
-Tekst w komórce za
zamiast
-Tekst w komórce za d
Chodzi o to, że gdy zadana liczba znaków przypada na środek wyrazu to żeby usunęło cały ten wyraz, a nie go ucinało w części?
#excel #vba
=JEŻELI(PRAWY(FRAGMENT.TEKSTU(H10;1;21);1)=" ";FRAGMENT.TEKSTU(H10;1;20);LEWY(FRAGMENT.TEKSTU(H10;1;21);ZNAJDŹ("~";PODSTAW(FRAGMENT.TEKSTU(H10;1;21);" ";"~";DŁ(FRAGMENT.TEKSTU(H10;1;21))-DŁ(PODSTAW(FRAGMENT.TEKSTU(H10;1;21);" ";""))))-1))
=LEFT(A1,LOOKUP(21,FIND(" ",A1,ROW(INDIRECT("1:21"))))-1)
=LEWY(P58;WYSZUKAJ(51;ZNAJDŹ(" ";P58;WIERSZ(ADR.POŚR("1:51"))))-1)
Tutaj chciałbym skrócić do max 50 znaków
=LEWY(P58;WYSZUKAJ(51;ZNAJDŹ(" ";ZŁĄCZ.TEKSTY(P58;" ");WIERSZ(ADR.POŚR("1:51"))))-1),
wciąż jednak będzie wyrzucać błąd jeśli ten jeden wyraz będzie dłuższy niż limit znaków