Juoksevasta numeroinnista

make

Mitenhän onnistuisi juokseva numero soluun niin, että aina joka toisen tai joka 3. tulosteen jälkeen se kasvaisi yhdellä. Kiitos jos jaksat vastata!

3

577

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kunde

      moduuliin...

      Sub Auto_Open()
      x = 1
      Range("A1") = x
      End

      ThisWorkbook moduuliin...

      Public x As Integer
      Public y As Integer

      Private Sub Workbook_BeforePrint(Cancel As Boolean)
      ' muuta lukua 3 riippuen siitä, montako tulostusta haluat, ennenkuin laskurin arvo kasvaa

      If y Mod 3 = 0 Then
      x = x 1
      End If
      y = y 1
      Range("A1") = x
      End Sub

      • make

        No nyt se sitten toimii. Kiitos vielä kerran :)


    • Excellamatöör

      Jos minulla 0n 1000034 solussa L4. Haluan että arvo kasvaa joka tulosteeseen yhdellä eli 1000035, 1000036, 1000037 jne ns juokseva sarjanumero. Perus excel käyttäjänä en osannut tehdä edelliseen koodiin muokkausta niin että olisin saanut tuon tehtyä.

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

    Luetuimmat keskustelut

    1. Kalajoen hukkuneet pojat olivat tummaihoisia

      Jälleen kerran, hukkuneet tai heikon uimataidon vuoksi vaaraan joutuneet olivat muita kuin suomalaisia. Turha viisastell
      Maailman menoa
      321
      7012
    2. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      71
      4198
    3. Sinä eräs, pyydän......

      AUTA mua ole kiltti. Ei mun takia vaan.... Miten saan sut kiinni?
      Ikävä
      208
      3145
    4. Kohta katson sun kuvaasi

      ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa
      Ikävä
      24
      2917
    5. Nimikirjaimet

      Kuka kaipaa ketä 🥰
      Ikävä
      74
      1952
    6. VOI TÄTÄ ILON

      JA ONNEN PÄIVÄÄ 😂
      Tuusniemi
      149
      1761
    7. Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan

      Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a
      Maailman menoa
      210
      1732
    8. Jos kaivattusi on perääntynyt lähestyessäsi

      jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?
      Ikävä
      165
      1550
    9. Minkä asian haluaisit muuttaa kaivatussasi?

      Mikä kaivattusi luonteessa tai ulkonäössä ärsyttää sua?
      Ikävä
      120
      1538
    10. Mies, ajattelemmekohan toisiamme juuri nyt?

      Olet mielessäni, vanhempi mies
      Ikävä
      89
      1428
    Aihe