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

5753

Ää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. 24h Kirppis

      Olen muuttamassa paikkakunnalle ja mietin olisiko tälläiselle liikkeelle tarvetta alueella?
      Jämsä
      13
      3708

    2. Kerotakaa joensuun kontiolahden paiholan laitoksesta jotain

      Mun kaveri joutuu paiholan laitokseen nyt lähi aikoina niin voisko ihmiset kertoa minkälaista siellä on tarinoita jne ja
      Joensuu
      27
      2920

    3. Suomessa eletään liian pitkään

      "Ihmisten on kuoltava" Asiantuntija varoittaa: Suomi ei ole valmis siihen, että niin moni elää pitkään: ”Kaiken täytyy
      Maailman menoa
      271
      2728

    4. Deodoranttiteollisuus

      Annan ilmaisen vinkin. Kyseinen teollisuus voisi alkaa valmistaa kuolleen ruumiin hajua. Olisi varma hittituote, ainakin
      Jämsä
      5
      1915

    5. Trump syyttää Bideniä ja Obamaa lentoonnettomuudesta!

      Ukko on ihan seonnut.
      Maailman menoa
      219
      1428

    6. Näyttääkö kaivattusi

      Miten hyvältä ❤️
      Ikävä
      75
      1251

    7. Martinan mies on Suomessa.

      Siellä se on Martinan instassa ja täällä on jo ero tullut. Voi että kun huvittaa...
      Kotimaiset julkkisjuorut
      158
      1057

    8. Voitaisko olla kavereita?

      Haluaisin aloittaa puhtaalta pöydältä sinun kanssasi, tabula rasa. Minä lopetan sinun perääsi haikailun, ja sitten sinäk
      Tunteet
      2
      997

    9. Maistaisitko sinä näitä valmisruokia?

      Terhi Kinnari ja Kinnarin tila voitti Suomalainen menestysresepti -kisan. Makuja Kinnarin tilan kaurapohjaisissa aterioi
      Einekset
      31
      974

    10. Tuo yksi tampio vielä ilmeisesti kuvittelee

      Että joku itkee peräänsä täällä vinkuen jotain utopistista kadonnutta rakkauttaan kaksoisliekit silmissä leiskuen. Pyhä
      Ikävä
      95
      941
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt