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
- 1763501
Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1122259Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1462257- 992077
- 901734
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 tunnet281698- 781222
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv2951187- 2271150
- 74988