Numeron lisääminen

"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

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 Sub

Lue lisää

Jos 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