Numeron lisääminen

Tuotenumerot

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.

5

5918

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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 Sub

    • okaro

      Laita 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.

      • kunde

        "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 Sub

        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

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Janni Tikkanen ohjattiin miesten pukuhuoneeseen

      Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu
      Kajaani
      85
      2429

    2. Keskisarja loisti A-studiossa, vauhkoontunut Sofia Virta munasi itsensä

      Keskisarja taas puhui 100% faktaa maahanmuuttoon liittyen. Kokoomuksen Kaumalta tuli pari hyvää puheenvuoroa, joskin muu
      Maailman menoa
      482
      2421

    3. Sä olet epävakaa

      tai ainakin yrität onnistuneesti vaikuttaa siltä. Ei sun kanssa uskalla ruveta yhtään mihinkään, menis hommat ojasta all
      Ikävä
      21
      1531

    4. Rakastan ja ikävöin sinua

      Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä
      Ikävä
      77
      1502

    5. Tiedän ettet tehnyt tahallasi pahaa

      Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo
      Ikävä
      110
      1450

    6. Vihjeketju naisille

      Kirjoita tähän vihjeesi kaivatullesi.
      Ikävä
      67
      1343

    7. Mieti miten paljon yritin

      Löytää yhteyttä kanssasi uudelleen sen väärinymmärryksen jälkeen. Koen etten tullut puoleltasi hyvin kohdelluksi mies😔
      Ikävä
      35
      1270

    8. Kurkkiiko myyrä jo

      Milloin tulee kolostaan?
      Ikävä
      26
      1240

    9. Teräväkielinen Virta jauhotti totaalisesti sössöttävän Keskisarjan

      Harvoin on noin suvereenia jauhotusta A-studiossa nähty. Ja minä äänestän demareita, joita ei oltu paikalle edes kutsut
      Maailman menoa
      274
      1145

    10. Haluatko tietää totuuden?

      Olen kyllästynyt sinuun. Et herätä enää mielenkiintoa. Samat jutut x 100. Kuten narskuilla aina. Samalla tunnen myötätun
      Ikävä
      87
      1113
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt