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

158

    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. Mikä on sun mielestä suurin kusetus maailmassa?

      Mikä on sun mielestä suurin kusetus maailmassa?
      Ikävä
      169
      5788
    2. rakastan jotakin

      en uskalla sanoa sitä täällä ääneen
      Ikävä
      11
      4298
    3. Vedonlyöntiä .

      Olen valmis lyömään ison vedon , että homma kaatuu . Jos kerta Sivonen ei lähde mukaan , niin ei tuoho usko kukaan muuka
      Ähtäri
      51
      3695
    4. Mikä on pahinta, mitä kaivatullesi

      pelkäät tapahtuvan? Jos kuolemaa, vakavia sairauksia yms. ei lasketa?
      Ikävä
      103
      3035
    5. Turvaan tulleet lähettävät omia lapsiaan vaaraan - hullua

      MOT-ohjelman jakso ”Loma vaihtui kahleisiin” kertoi, kuinka Suomessa ja muualla Euroopassa asuvat somaliperheet lähettäv
      Maailman menoa
      79
      2688
    6. Hei Antti. Minähän varoitin jo 2 v sitten, ettei sinusta tule pääministeriä, vaikka kuinka

      voittaisit vaalit. Vasurit ovat aina puukottaneet toisiaan selkään, eivät koskaan edestäpäin. Marinistit varsinkin IL t
      6
      2188
    7. Minkä tunteen tunnet

      juuri nyt? ap kiitollisuuden.
      Tunteet
      44
      1465
    8. Uusnatsien ilkivalta Joensuussa jatkuu.

      Saavat mellastaa persujen suojissa miten haluavat. Särkevät ja tuhoavat toisten omaisuutta, tähän on johtanut persujen m
      Joensuu
      12
      1438
    9. Minkä kouluarvosanan (4-10) annat Thank God, sä tulit! sarjalle?

      Katsoitko Thank God, sä tulit!? Uusi viihdeohjelma ei ollut kaikkien makuun, mutta jotkut tykkäsivät. Minkä kouluarvos
      Tv-sarjat
      62
      1254
    10. Päivi Räsänen sai kutsun kongressiin todistajaksi.

      Pystyykö Päivi pysymään totuudessa ja kertomaan kongressille, että raamattu ei ole lakikirja jota pitäisi noudattaa poli
      Maailman menoa
      411
      1229
    Aihe