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

5544

Ää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. 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 tunnet
      Ikävä
      28
      1748

    2. Syksyinen aamuketju suden

      Hyvää huomenta ja kaunista syyspäivää. 🌞🍁🍂☕
      Ikävä
      227
      1160

    3. 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 asioi
      Maailman menoa
      105
      799

    4. Triatleetti osti Levin

      Mun Lappi on tosiasia.
      Kotimaiset julkkisjuorut
      180
      777

    5. 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 suju
      Ikävä
      51
      760

    6. Astuin tuntemattomaan

      kun sinut tapasin, sieluni valo. Niin olen paljaaksi riisuttu kuin syksyiset puut.
      Ikävä
      50
      742

    7. Rakastan sinua niin paljon

      Kun ollaan tutustuttu lisää niin se rakkaus ei ole vähentynyt vaan muuttunut. Jännitys on vähentynyt ja tilalle on tullu
      Ikävä
      40
      710

    8. Enemmistön diktatuuri Ähtärin valtuustossa

      Salo ja Nortunen, ette saa keikuttaa venettä. Olette mätiä omenoita, jotka pitää poimia pois Ähtärin kaupunginhallitukse
      Ähtäri
      22
      710

    9. Taisit vähän aliarivoida minua ihmisenä

      Et tajunnut että olenkin aika nokkela tyttö 🤭 Jutut ja ulkonäkö varmaan hämäs.
      Ikävä
      35
      686

    10. Mulla 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.
      Ikävä
      47
      679
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt