Solun luku viereiseen soluun takaperin

Pihalla.com

Eli onko mahdollista kääntää a sarakkeen luvut takaperin b sarakkeeseen?

Esimerkiksi näin:
A1 12345
A2 23456
Näiden tulisi olla
B1 54321
B2 65432

10

346

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vba-lla

      Taitaa joutua tekemään oman funktion.

    • Dreytyisinos

      Alkuperäinen luku pitää purkaa johonkin sivuun merkki kerrallaan ja yhdistää halutusta uudelleen. Mutta mitä järkeä tässä on?

    • POIMITEKSTI

      Yksi mahdollisuus:
      =POIMI.TEKSTI(A1;5;1)&POIMI.TEKSTI(A1;4;1)&POIMI.TEKSTI(A1;3;1)&POIMI.TEKSTI(A1;2;1)&POIMI.TEKSTI(A1;1;1)
      HUOM! Luvut eivät ole enää laskukelpoisia (ovat tekstiä). Jos niillä pitää laskea, niin voit muuttaa ne numeroiksi vaikkapa näin:
      Kirjoita johonkin tyhjään soluun numero 1. Kopioi tämä. Valitse B1 ja B2. Liitä määräten.Ruksaa kohdat "Arvot" ja "Kerro". OK.

      • skaalautuva

        Kirjoitatko vielä funktionipun 1-200 merkkiä pitkille vaihtoehdoille. Muutaman if-lauseen joudut laittamaan, mutta haittakse?

        Tuo HUOM-osuutesi meni hieman ohi. Eikö olisi sama muuttaa merkkijono luvuksi?


    • Pihalla.com

      Tuo poimi.teksti toimii hyvin, kiitos siitä.

      Jatkona tuohon ongelmaan, että kun lukujoukko on tyyliin välillä
      00000
      ...........
      54000
      ja saan käännettyä kyllä luvut toisinpäin vierekkäiseen sarakkeeseen tekstiksi ja vielä siitä viereseen sarakkeeseen luvuksi, mutta kun minun tarvisi tietää oikeinpäin ja toisinpäin olevien lukujen symmetristen (anagrammi) lukujen määrä.
      Eli esimerkiksi
      A1 0000 B1 00000 = 1 symmetrinen luku
      A2 02020 B2 02020 = 1 symmetrinen luku
      A3 12321 B3 12321 = 1 symmetrinen luku
      A4 12345 B4 54321 = ei symmetrinen
      jne

      Eli esimerkissä on kolme symmetristä lukua.

      En saa exceliä laskemaan niitä jos solu on yleinen tahi teksti, vastaavasti jos muuttaa luvuksi niin luvun edestä jää pois nollat.

      • Pihalla.com

        Ehdollista muotoilua parillakin eritavalla kokeillut mutta ei onnistut ainakaan vielä...


    • takaperiäpäin

      Käytä Reversestr-funktiota, jonka teet ensin itse.

      Paina näppäimistöltä ALT F11, jolloin VBA-editori aukeaa.

      Lisää hiirellä uusi moduuli: Insert -> Module

      Kirjoita ikkunaan seuraavat loitsut:

      Function Reversestr(str As String) As String
      Reversestr = StrReverse(Trim(str))
      End Function

      Sen jälkeen voit palata takaisin taulukkoikkunaan.

      Jos haluat kääntää vaikkapa A1-sarakkeen tekstin, niin kirjoita B1-sarakkeeseen funktio =reverestr(A1).

      • takaperiäpäin

        Siis soluista tuossa lopussa tietenkin kyse eikä sarakkeista.


    • ässänlisääjä

      Koodi toimii, mutta ohjeessa virhe. B1 soluun siis kirjoita =reversestr(A1). Puuttui yksi "s".

      • takaperiäpäin

        No niinpä olikin, kirjoitin hutiloiden. Ja kiitos korjauksesta, niin ei tarvitse kenenkään ihmetellä toimimattomuutta.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      146
      2912
    2. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      367
      2047
    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      40
      1777
    4. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      37
      1742
    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      32
      1421
    6. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      93
      1221
    7. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      54
      1173
    8. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      328
      965
    9. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      110
      948
    10. Annan meille mahdollisuuden

      Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
      Ikävä
      53
      782
    Aihe