... kopiointi
Olen uhontanut "kaavat"
Esim.
Solussa A5 tekstiä tai sukunimi/etunimi yms.
Millä kaavalla saan kopioitua A5 solusta B5:een vaikka solun ekan sana tai kaksi ekaa sanaa??
kysyy
"paami-muppa"
Solun arvojen ...
7
502
Vastaukset
- joopajoojuu
ensimmäinen sana
B5=VASEN(A5;ETSI(" ";A5;1))- "paa-mup"
... kiitos
;-)
Mutta kuis 2 sanaa??
1 ei ilm kuvaa poimittavien sanojen lukumäärää???
Ja tuo kaava ei ilm toimi jos vasemman vaihtaa oikeaksi, ei ota oikealta yhtä sanaa?!?!?!?
Kirjainten poimintaan löysin vanhan kaavan?
Off 2007 niin "outo" vielä mutta ... ..
;-)
Oliskos missään lie ohjeita tollaisiin kaavoihin?!?!?
nimimerkki
huono surffari "paa-mup" kirjoitti:
... kiitos
;-)
Mutta kuis 2 sanaa??
1 ei ilm kuvaa poimittavien sanojen lukumäärää???
Ja tuo kaava ei ilm toimi jos vasemman vaihtaa oikeaksi, ei ota oikealta yhtä sanaa?!?!?!?
Kirjainten poimintaan löysin vanhan kaavan?
Off 2007 niin "outo" vielä mutta ... ..
;-)
Oliskos missään lie ohjeita tollaisiin kaavoihin?!?!?
nimimerkki
huono surffarimoduuliin...
Function HaeSana(Solu As Range, Erotin As String, MontakoSanaa As Integer) As String
Dim a As Variant
Dim i As Long
On Error GoTo virhe
a = Split(Solu, Erotin)
For i = 0 To MontakoSanaa - 1
HaeSana = HaeSana & a(i) & " "
Next i
HaeSana = RTrim(HaeSana)
Exit Function
virhe:
HaeSana = "VIRHEELLINEN TIETO!"
End Function
HaeSana(Solu As Range, Erotin As String, MontakoSanaa As Integer)
käyttäjän määrittelemässä funktiossa
Solu = solu mistä tietoa haetaan
Erotin= välimerkki sanojen välillä
MontakoSanaa= montako sanaa palautetaan vasemmalta lukien
eli
soluun kaava =HaeSana(A1;" ";2)
palauttaa solusta A1 2 sanaa jotka on erotettu välilyönnillä...
virhetilaanteessa soluun teksti VIRHEELLINEN TIETO! (liian monta sanaa tai virheellinen erotin)
Keep Excelling
@Kunde- sanaseppä
kunde kirjoitti:
moduuliin...
Function HaeSana(Solu As Range, Erotin As String, MontakoSanaa As Integer) As String
Dim a As Variant
Dim i As Long
On Error GoTo virhe
a = Split(Solu, Erotin)
For i = 0 To MontakoSanaa - 1
HaeSana = HaeSana & a(i) & " "
Next i
HaeSana = RTrim(HaeSana)
Exit Function
virhe:
HaeSana = "VIRHEELLINEN TIETO!"
End Function
HaeSana(Solu As Range, Erotin As String, MontakoSanaa As Integer)
käyttäjän määrittelemässä funktiossa
Solu = solu mistä tietoa haetaan
Erotin= välimerkki sanojen välillä
MontakoSanaa= montako sanaa palautetaan vasemmalta lukien
eli
soluun kaava =HaeSana(A1;" ";2)
palauttaa solusta A1 2 sanaa jotka on erotettu välilyönnillä...
virhetilaanteessa soluun teksti VIRHEELLINEN TIETO! (liian monta sanaa tai virheellinen erotin)
Keep Excelling
@Kundeon vaikeaa, niin tässä sinulle helppoja kaavoja hakea sanoja tekstistä.
Tapaus1: A10 sisältää tekstin, B10 annat luvun kuinka monennen sanan haluat tekstistä hakea
Kaava on matriisikaava. Solun muokkaustilassa paina Ctrl Vaihto ENTER. Kaavan ympärille tulee hakasulkeet {}. Niitä ei saa kirjoittaa käsin. Aina kun muokkaat kaavaa, muista Ctrl Vaihto ENTER.
Muuten kaava ei toimi. Huomaat sen kyllä.
C10=POIMI.TEKSTI(A10;PIENI(JOS(POIMI.TEKSTI(" "&A10;RIVI(EPÄSUORA("1:"&PITUUS(A10) 1));1)=" ";RIVI(EPÄSUORA("1:"&PITUUS(A10) 1)));B10);SUMMA(PIENI(JOS(POIMI.TEKSTI(" "&A10&" ";RIVI(EPÄSUORA("1:"&PITUUS(A10) 2));1)=" ";RIVI(EPÄSUORA("1:"&PITUUS(A10) 2)));B10 {0;1})*{-1;1})-1)
Tapaus2: A11 sisältää tekstin, B11 annat luvun kuinka monennesta sanasta aloitetaan, C11 annat luvun kuinka montaa sanaa B11:sta alkaen haetaan.
D11=POIMI.TEKSTI(A11;PIENI(JOS(POIMI.TEKSTI(" "&A11;RIVI(EPÄSUORA("1:"&PITUUS(A11) 1));1)=" ";RIVI(EPÄSUORA("1:"&PITUUS(A11) 1)));B11);SUMMA(PIENI(JOS(POIMI.TEKSTI(" "&A11&" ";RIVI(EPÄSUORA("1:"&PITUUS(A11) 2));1)=" ";RIVI(EPÄSUORA("1:"&PITUUS(A11) 2)));B11 C11*{0;1})*{-1;1})-1)
Kaava on myöskin matriisikaava. Muista Ctrl Vaihto ENTER
Helppoa eikö vain. - sanaseppä
sanaseppä kirjoitti:
on vaikeaa, niin tässä sinulle helppoja kaavoja hakea sanoja tekstistä.
Tapaus1: A10 sisältää tekstin, B10 annat luvun kuinka monennen sanan haluat tekstistä hakea
Kaava on matriisikaava. Solun muokkaustilassa paina Ctrl Vaihto ENTER. Kaavan ympärille tulee hakasulkeet {}. Niitä ei saa kirjoittaa käsin. Aina kun muokkaat kaavaa, muista Ctrl Vaihto ENTER.
Muuten kaava ei toimi. Huomaat sen kyllä.
C10=POIMI.TEKSTI(A10;PIENI(JOS(POIMI.TEKSTI(" "&A10;RIVI(EPÄSUORA("1:"&PITUUS(A10) 1));1)=" ";RIVI(EPÄSUORA("1:"&PITUUS(A10) 1)));B10);SUMMA(PIENI(JOS(POIMI.TEKSTI(" "&A10&" ";RIVI(EPÄSUORA("1:"&PITUUS(A10) 2));1)=" ";RIVI(EPÄSUORA("1:"&PITUUS(A10) 2)));B10 {0;1})*{-1;1})-1)
Tapaus2: A11 sisältää tekstin, B11 annat luvun kuinka monennesta sanasta aloitetaan, C11 annat luvun kuinka montaa sanaa B11:sta alkaen haetaan.
D11=POIMI.TEKSTI(A11;PIENI(JOS(POIMI.TEKSTI(" "&A11;RIVI(EPÄSUORA("1:"&PITUUS(A11) 1));1)=" ";RIVI(EPÄSUORA("1:"&PITUUS(A11) 1)));B11);SUMMA(PIENI(JOS(POIMI.TEKSTI(" "&A11&" ";RIVI(EPÄSUORA("1:"&PITUUS(A11) 2));1)=" ";RIVI(EPÄSUORA("1:"&PITUUS(A11) 2)));B11 C11*{0;1})*{-1;1})-1)
Kaava on myöskin matriisikaava. Muista Ctrl Vaihto ENTER
Helppoa eikö vain.tietestin. Mun moka. {}
- sanaseppä
kunde kirjoitti:
tosi helppoa muokata tommosia...
;-)laitoin nuo kaavat. Sattu silmään jostain ulkolaiselta sivulta. Siinä on tupakka poikineen palanut, ennenkuin nuo on saatu toimimaan.
Hirviöitä nuo on, mutta toimii kyllä.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1521878
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1301741Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021497Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet171203- 681187
- 641151
- 219965
- 66787
- 45730
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv191704