Kirjaimen korvaaminen

pertteli3

Numerosarja, joka sisältää myös kirjaimia, pitäisi muuttaa lukumuotoiseksi, jotta sarjat saadaan numeeriseen järjestykseen ja vielä tietyillä halutuilla tavoilla.

Miten numerosarjan kirjaimet voi kaavalla korvata esim. numerolla nolla? Sarjoissa kirjaimen paikka ei aina ole vakio eikä kirjainkaan vakio.

1

197

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • piece of cake VBA:lla
      et kertonut tuleeko tulos yhteen soluun vaiko esim. koko sarakkeeseen tai riviin
      no molemmat versiot nyt tossa
      yksittäisessä soluversiossa
      tieto esim A1 ja tulos B1
      solussa B1 laita solumuotoiluksi oma: Luku, desimaalit 0
      ja kaava =Luvuksi(A1)

      solualue suoria alla oleva makro LuvuksiAlie

      moduuliin...

      Function Luvuksi(Solu As Range) As Double
      Dim sobj As Object
      Set sobj = CreateObject("vbscript.regexp")
      sobj.Global = True
      sobj.Pattern = "[^0-9]"
      'vaihda allaolevaan riviin korvattava numero nyt siis 0
      Luvuksi = sobj.Replace(Solu, 0)
      End Function

      Sub LuvuksiALue()

      Dim sobj As Object
      Dim solu As Range

      Set sobj = CreateObject("vbscript.regexp")
      sobj.Global = True
      sobj.Pattern = "[^-0-9]"
      'muuta solualue sopivaksi nyt A-sarake
      For Each solu In Range("A1", Range("A65536").End(xlUp))
      solu = sobj.Replace(solu, 0)
      solu.NumberFormat = "0"
      Next solu
      End Sub

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

    Luetuimmat keskustelut

    1. Maahanmuuttajien vaikutus Suomen valtiontalouteen positiivinen

      Maahanmuuttajat maksavat enemmän tuloveroja kuin saavat tulonsiirtoja. Eroavat persuista tässä suhteessa. Persuista o
      Maailman menoa
      194
      3781
    2. Uusin tutkimus: Suomi on maailman toiseksi vähin rasistinen maa

      taakse jää mm. Ruotsi(7) ja Norja(8). Martin Paasi(kok.): Kumoaa vasemmiston väitteet. Kansainvälinen vertailu osoitta
      Maailman menoa
      81
      2066
    3. Ukrainan tiedustelun huippupotti - Iski ensin yhteen satamaan, sitten toiseen

      Ukrainan tiedustelupalvelu SBU kertoo johtaneensa operaatiota, jossa on isketty drooneilla Venäjän tärkeimpiin satamiin
      Maailman menoa
      74
      1973
    4. Ketkä 8 Ähtärin luottamushenkilöä saivat syytteen virka_aseman väärinkäyttämisestä?

      Nyt näiden valtuutettujen nimet esiin, kiitos! Nämä henkilöt pitää yksinkertaisesti laittaa syrjään Ähtärin kaupunginva
      Ähtäri
      48
      1916
    5. Ulkomaalaistaustaiset tulevat kalliiksi yhteiskunnalle.

      Selvitys: Ulkomaalaistaustaiset saivat selvästi enemmän työttömyysetuuksia ja toimeentulotukea kuin suomalaistaustaiset.
      Maailman menoa
      71
      1825
    6. Ähtärin päättäjät

      Nyt tulee kutsu leivättömän pöydän äärelle. Syytteet nostetaan. https://www.iltalehti.fi/kotimaa/a/cef83309-0a1b-4fcd-9b
      Ähtäri
      61
      1597
    7. Oletko tosiaan niin

      matalalla älykkyydellä varustettu että et tajua miten sua vedätetään? Kun susta ei tykätä.
      Viha
      142
      1036
    8. Arkkipiispa Tapio Luoma sanoo olevansa syvästi huolissaan lisääntyvästä rasismista ja islamofobiasta

      Tarvitsemme ymmärrystä ja uskontojen lukutaitoa erilaisia perinteitä kohtaan. Rauhallinen rinnakkaiselo ja toinen toisem
      Maailman menoa
      276
      946
    9. Millaisia toiveita

      Sinulla on minun suhteeni?
      Ikävä
      67
      874
    10. Oikea mies ei katoa elämästä silloin

      Kun on vaikeaa. Väärä mies pysyy elämässä niin kauan kun aurinko paistaa ja on mukavaa. Mutta kuka jää elämään silloi
      Ikävä
      98
      826
    Aihe