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

220

    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. Lindtman I vasemmistohallitus aloittaa viimein Suomen kuntoon laittamisen

      Tässä nyt on 3 vuotta seurattu irvokasta kärsimysnäytelmää nimeltään "valtion budjetin tasapainotus by äärioikeisto", ja
      Maailman menoa
      151
      2496
    2. Missä viipyy persujen lupaama euron bensa?

      En edes muista milloin bensapumpussa olisi ollut ykkösellä alkava litrahinta. Missä siis viipyy persujen lupaama euron b
      Maailman menoa
      146
      2352
    3. Kirje, PellePelottomalle.

      Tärkeää olisi luoda ystävyys, että se, jota rakastaa, on samalla paras ystävä ja luotettavin, jolle voi ja uskaltaa luot
      Ikävä
      97
      999
    4. Meni kyllä aika solmuun

      Meidän tutustuminen 😐
      Ikävä
      64
      871
    5. Sinua oli kiihottavaa

      Sinua nainen oli kiihottavaa katsella.
      Ikävä
      60
      753
    6. Persut jakavat tekoälyllä tehtyjä kuvia maahanmuuttajista somessa

      Eivät mainitse, että ovat tekoälyllä tehtyjä. Eivät näe asiassa mitään ongelmaa. Valehtelijapuolue taas vauhdissa. Unka
      Maailman menoa
      273
      701
    7. Mistä löytyy naisseuraa sinkkumiehelle?

      Kertokaapas kokeneemmat mistä löytyis naisseuraa sinkulle. Ihan ois eukko nyt tosissaan hakusessa. Tanssipaikat kun on a
      Kuhmo
      18
      677
    8. Voi teitä naisia

      Suudeltiin ja nukuttiin toisissamme kiinni mutta pillua ei tullu, ei edes aamulla. t.38vmies
      Sinkut
      85
      670
    9. Martinan hevoset.

      Tämä todella kaunis ja ketterä harmaa hevonen jolla monet kilpailut voitetaan ei ole Martinan.Tytär ratsastaa sillä tait
      Kotimaiset julkkisjuorut
      202
      648
    10. Hyvä meininki

      TTP:ssa väkeä tosi runsaasti paikalla. Hyvää ruokaa jälleen ja munkit ja sima erinomaista. Kiitos yrittäjälle! Hieno Vap
      Haapavesi
      21
      637
    Aihe