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ä
      222
      14806
    2. 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
      19
      2189
    3. Voima biisejä, mikä antaa hyvää mieltä ja vomaannuttaa

      Mikä antaa voimaa ja hyvää mieltä, jos tuntuu hankalalta ja vaikealta, voima biisi tai biisejä?
      Ikävä
      38
      1873
    4. Kysy jotain kaivatultasi

      Tämä ketju on sitä varten.
      Ikävä
      137
      1242
    5. Huomenna sähkö maksaa jo yli 60 snt/kWh. Milloin ALV putoaa?

      Kysynkin persuilta, että milloin aiotte pudottaa sähkön arvonlisäveron kuten Marinin hallitus teki sähkön hinnan noustes
      Maailman menoa
      95
      1220
    6. Varmaan koet, ettet ole tehnyt mitään väärää

      Mutta olet sinä tehnyt.
      Ikävä
      22
      1100
    7. Huomioon ottaminen

      Oletko osannut ottaa kaivattusi tai hänen (mahdolliset) tunteet huomioon? Oletko sivuuttanut ne tarkoituksella tai vahin
      Ikävä
      30
      892
    8. Mitä ajattelet hänestä

      Millaisena pidät kaivattuasi?
      Ikävä
      73
      775
    9. Sinkkusiskoni pliis kertokaa

      Sinkkunaisena haluaisin joskus normaalia läheisyyttä ja yhdessäoloa, ilman velvoitteita. Olen vapaa ja lapseton, eikä ex
      Sinkut
      80
      713
    10. Nainen, se on sellainen juttu että kun sä vain nautit

      Niin me miehet tehdään ne työt että sä voisit nauttia. Kato siinä ku sä meet mukamas töihin suojatyöpaikkaas lämpimään t
      Ikävä
      80
      698
    Aihe