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
      2173

    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
      427
      2061

    3. 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
      1412

    4. 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
      1410

    5. Vihjeketju naisille

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

    6. Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien.

      Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien. Norjassa on käynnissä ve
      NATO
      107
      1045

    7. 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ä
      81
      1022

    8. 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
      256
      1000

    9. Sofia Virta pyyhkii pöytää Keskisarjalla A studiossa

      Hurjaa on meno. Keskisarja ihan kanveesissa.
      Perussuomalaiset
      266
      997

    10. Sofia Virta ja Teemu Keskisarja, A-studio

      Nyt.
      Maailman menoa
      131
      908
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt