Mitenhän tapahtuu numeron lisääminen jo olemassaolevaan lukuun excel taulukossa. Oletetaan että solussa A1 on luku 12345, ja haluaisin sen olevan 012345. Miten saan tuon nollan luvun eteen ilman että pitää kirjoittaa se kaikkiin soluihin erikseen ? Kiitollisena odotan vastausta.
Numeron lisääminen
Tuotenumerot
5
5957
Vastaukset
moduuliin...
Sub MuutaMuotoiluTekstiksi()
For Each solu In Cells.SpecialCells(xlCellTypeConstants)
solu.NumberFormat = "@"
If IsNumeric(solu) Then
solu.Value = "0" & solu.Value
End If
Next
End SubLaita vaikka B1:een "0"&A1 ja sitten kopioi alas. Lopuksi kopioi arvot takaisin A1:een.
- muotoilu hoitaa
muotoilet tekstiksi , excel kyllä hoitaa lasekmisen vaikka osa olisi tekstiä ja osa lukuja. siis jos tekstikin sisältää pelkääsnt lukuja, ei siis kirjaimia.
"Laita vaikka B1:een "0"&A1 ja sitten kopioi alas. Lopuksi kopioi arvot takaisin A1:een."
vaatiin kuitenkin A1 asettamisen tekstiksi, jotta jatkossa siihen voi tehdä muutoksia ja etunolla säilyisi
"muotoilet tekstiksi , excel kyllä hoitaa lasekmisen vaikka osa olisi tekstiä ja osa lukuja. siis jos tekstikin sisältää pelkääsnt lukuja, ei siis kirjaimia."
ei se pelkäksi tekstiksi mitään etunollaa lisää, pakko se on sinne manuaalisesti makrolla /lisätä
Omaa solumuotoilua voi käyttää hyväksi kanssa \00
ja jos haluaa aina tietyn pituisen tuotekoodin niin lisää nollia esm. 5 numeroinen \00000. Mutta tämä ei toimi, jos kirjoitat siihen 5 numeroisen luvu- lykkää sitten sen etunollan siihen kuudenneksi merkiksi
nopein ja kivuttomin tapa on fiksata makro toimimaan valinnalle ja suorittaa se, eli muokkaa nyt vain valitut solut
Sub MuutaMuotoiluTekstiksi()
For Each solu In Selection.SpecialCells(xlCellTypeConstants)
solu.NumberFormat = "@"
If IsNumeric(solu) Then
solu.Value = "0" & solu.Value
End If
Next
End Sub- muuan mies
kunde kirjoitti:
"Laita vaikka B1:een "0"&A1 ja sitten kopioi alas. Lopuksi kopioi arvot takaisin A1:een."
vaatiin kuitenkin A1 asettamisen tekstiksi, jotta jatkossa siihen voi tehdä muutoksia ja etunolla säilyisi
"muotoilet tekstiksi , excel kyllä hoitaa lasekmisen vaikka osa olisi tekstiä ja osa lukuja. siis jos tekstikin sisältää pelkääsnt lukuja, ei siis kirjaimia."
ei se pelkäksi tekstiksi mitään etunollaa lisää, pakko se on sinne manuaalisesti makrolla /lisätä
Omaa solumuotoilua voi käyttää hyväksi kanssa \00
ja jos haluaa aina tietyn pituisen tuotekoodin niin lisää nollia esm. 5 numeroinen \00000. Mutta tämä ei toimi, jos kirjoitat siihen 5 numeroisen luvu- lykkää sitten sen etunollan siihen kuudenneksi merkiksi
nopein ja kivuttomin tapa on fiksata makro toimimaan valinnalle ja suorittaa se, eli muokkaa nyt vain valitut solut
Sub MuutaMuotoiluTekstiksi()
For Each solu In Selection.SpecialCells(xlCellTypeConstants)
solu.NumberFormat = "@"
If IsNumeric(solu) Then
solu.Value = "0" & solu.Value
End If
Next
End SubJos lukuja tarvitaan laskennassa tekstiksi muuttaminen ei ole oikea tapa.
Omalla formaattlla voi luvut muotoilla (lähes) haluamikseen; \00 formaatilla saadaan aina yksi etunolla, 000000 formaatilla saadaan luku 6-numeroiseksi lisäämällä puuttuvat etunollat (mutta ei enää jos itse luku on jo 6-numeroinen).
Tässä esimerkkitaulukko:
Luku \00 000000
123 0123 000123
1234 01234 001234
12345 012345 012345
123456 0123456 123456
1234567 01234567 1234567
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 453893
Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa
Pelkästään Viking Linen viinanhakuristeilyitä sponsoroidaan 20 miljoonalla eurolla vuosittain. Dieselin verotukikin on03889Riikka on siis suomalaisille velkaa 84 mrd
Jos kauhukabinetti istuu vaalikauden loppuun. Keskimäärin yli 20 miljardia uutta velkaa rikkaiden veronalennuksiin jokai793262Luotathan siihen tunteeseen, joka välillämme on?
Uskothan myös, että se kestää tämän? Kaipaan sinua valtavasti. Vielä tehdään yhdessä tästä jotain ihmeellistä ja kaunist303055Sanna on suomalaisille siis velkaa 24 mrd euroa
Muistanette vielä kuinka Italian remonttirahoja perusteltiin sillä, että italialaiset ostaa suomalaisilta paidatkin pääl1632801En saa sua mielestäni vaikka tekisin mitä
Mikä tähän auttaa.. ei mikään. Edes aika. Kaivan sut kohta vaikka kivenkolosta että saan kysyä haluatko sinäkin💛142747- 252339
Onnettomuus
Hukkajärventiellä kolaroi lavetti ja henkilöauto. Uutista ei missään! Hys hys ollaanko hiljaa tästäkin?42110Kirjotan ikävää ulos
Haluaisin kuulla mitä ajattelet minusta. ihan mitä vaan mitä mietit. Voisit kertoa minulle, tai sitten kirjoittaisit run141778Sinä se vaan jaksat
Suosittelen lopettamaan hyvissä ajoin, tuo toimintas ei auta unohtamiseen. Jossain vaiheessa asia julkistuu enkä usko et231697