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.
Kirjaimen korvaaminen
1
175
Vastaukset
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
Riikka Purra lupasi Suomen kansalle 1 euron bensaa, hinta nyt 2 euroa
Vasemmistolaisen Marinin hallituksen aikana bensa ei maksanut kuin 1,3 euroa litralta. Ministerin pitäisi perustuslain m724184Suvi Lindenillä 5 366 päivän putki
Täytyy kyllä myöntää vaikka olen itsekin innokas, niin en ole tuollaiseen yli kymmenen vuoden putkeen kyennyt. Välillä o963607Mistä se kertoo
Näin miehen pitkästä aikaa. Samantien iski sellainen paineen tunne rintaan, sitä ei ole ollut vuosiin. Ja nyt olen siitä363329- 512860
Nyt on sanottava että sattuu kipeästi
Jos, sinä aikana kun olen kaivannut ja odottanut sinua ja olet tiennyt sen, niin jos valitsit toisen miehen. Katsot minu182329- 402318
Rakkaalle miehelle
Terveiset rakas. Ikävä on edelleen. Suru valtaa sydämen, kun en saa lähestyä sinua. En saa vastauksia, en soittoa, viest222052- 231646
UMK-juontajakaksikon pari isoa "mokaa" ihmetyttää - Mitäs tykkäsit Syköstä ja Uotisesta juontajina?
Tänä vuonna UMK-lavalla nähtiin artistien lisäksi juontajakolmikko Jorma Uotinen, Sami Sykkö ja Jasmin Beloued. Juontami141517Jussi "Mestari" Halal-ahon sotilasarvo?
Minä vuonna Jussille myönnettiin sotilasansiomitali? Vai myönnettiinkö Jussille sotilasansiomitalia lainkaan?321506