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
Solun luku viereiseen soluun takaperin
Pihalla.com
10
320
Vastaukset
- 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
- 1191682
Noniin rakas
Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi991498Lasten hyväksikäyttö netissä - Joka 3. nuori on saanut seksuaalisen yhteydenoton pedofiililtä
Järkyttävää! Lapsiin kohdistuva seksuaalinen hyväksikäyttö verkossa on yhä pahempi ongelma. Ulkolinja: Lasten hyväksikäy37953Multa sulle
Pyörit 24/7 mielessä, kuljet mun mukana, mielessä kyselen sun mielipiteitä, vitsailen sulle, olen sydän auki, aitona. M29889Kumpi vetoaa enemmän sinuun
Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?38831Nainen, olen tutkinut sinua paljon
Salaisuutesi ei ole minulle salaisuus. Ehkä teimme jonkinlaista vaihtokauppaa kun tutkisimme toisiamme. Meillä oli kumm50796Mies, eihän sulla ole vaimoa tai naisystävää?
Minusta tuntuu jotenkin, että olisit eronnut joskus, vaikka en edes tiedä onko se totta. Jos oletkin oikeasti edelleen s43758Okei nyt mä ymmärrän
Olet siis noin rakastunut, se selittää. Onneksesi tunne on molemminpuolinen 😘56748Olet myös vähän ärsyttävä
Tuntuu, että olet tahallaan nuin vaikeasti tavoiteltava. En tiedä kauanko jaksan tätä näin.37740Onko sulla empatiakykyä?
Etkö tajua yhtään miltä tämä tuntuu minusta? Minä ainakin yritän ymmärtää miltä sinusta voisi tuntua. En usko, että olet37720