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
5
5544
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
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet281748- 2271160
Koulu kielsi therianit - "tunneilla kontataan ja nau'utaan"
Oululainen koulu on kieltänyt eläin- ja rooliasujen käytön koulussa. Hyvä homma, sillä koulussa keskitytään muihin asioi105799- 180777
Onhan se myönnettävä
Että alkaa jo vähän puuduttamaan tämä. Aion silti ottaa tästä kaiken irti viimeisiä rippeitä myöden. Olenpa sitten suju51760Astuin tuntemattomaan
kun sinut tapasin, sieluni valo. Niin olen paljaaksi riisuttu kuin syksyiset puut.50742Rakastan sinua niin paljon
Kun ollaan tutustuttu lisää niin se rakkaus ei ole vähentynyt vaan muuttunut. Jännitys on vähentynyt ja tilalle on tullu40710Enemmistön diktatuuri Ähtärin valtuustossa
Salo ja Nortunen, ette saa keikuttaa venettä. Olette mätiä omenoita, jotka pitää poimia pois Ähtärin kaupunginhallitukse22710Taisit vähän aliarivoida minua ihmisenä
Et tajunnut että olenkin aika nokkela tyttö 🤭 Jutut ja ulkonäkö varmaan hämäs.35686Mulla on ihan hirveä ikävä sua
Ja sitten kun me taas nähdään, tai jos, niin mua vaan pelottaa että sinä inhoat sitä että mulla on tunteita sinuun.47679