Lottolappujen teko exelillä?

Pikkujouluja järjest

Kuinka saan exelillä tehtyä lottolaput, eli siis selville kaikki mahdolliset numerot seuraavista sarjoista:

Arvomme 4 numeroa 1 lisänumero.

ensimmäisenä numerona käytämme numeroita 1,2 ja 3
toisena numerona käytämme numeroita 4,5,6 ja 7
kolmantena numerona käytämme numeroita 8, 9, 0, 1 ja 2
neljäntenä numerona käytämme numeroita 3, 4, 5, 6 ja 7
lisänumerona käytämme numeroita 8, 9, 0, 1 ja 2

3

440

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • olettaen, ettei tuplia sallita
      rivillä 1 tekstit A1=luku1, B1=luku2 jne...

      moduuliin...


      Sub Lotto()
      Dim luku1 As Variant
      Dim luku2 As Variant
      Dim luku3 As Variant
      Dim luku4 As Variant
      Dim vara As Variant
      Range("A2:E1510") = ""

      For Each luku1 In Array(1, 2, 3)
      For Each luku2 In Array(4, 5, 6, 7)
      For Each luku3 In Array(8, 9, 0, 1, 2)
      For Each luku4 In Array(3, 4, 5, 6, 7)
      For Each vara In Array(8, 9, 0, 1, 2)
      Range("A65536").End(xlUp).Offset(1, 0) = luku1
      Range("A65536").End(xlUp).Offset(1, 1) = luku2
      Range("A65536").End(xlUp).Offset(1, 2) = luku3
      Range("A65536").End(xlUp).Offset(1, 3) = luku4
      Range("A65536").End(xlUp).Offset(1, 4) = vara
      Next
      Next
      Next
      Next
      Next
      Poistatuplat
      End Sub

      Sub Poistatuplat()
      Dim vika As Long
      Dim Alue As Range
      Dim Solu As Range
      Dim i As Long
      vika = Range("E65536").End(xlUp).Row
      For i = vika To 2 Step -1
      Set Alue = Range("A" & i & ":E" & i)
      For Each Solu In Alue
      If WorksheetFunction.CountIf(Alue, Solu.Value) > 1 Then
      Solu.EntireRow.Delete
      End If
      Next
      Next
      Range("A2").EntireRow.Delete
      End Sub

      • pikkujouluja järjest

        Kiitos kunde! Olen koittanut pähkäillä mistä lisään tuon koodinpätkän asiakirjaan. Jossain kehitystyökaluissa moduuliin, mutta missä... ?


      • pikkujouluja järjest kirjoitti:

        Kiitos kunde! Olen koittanut pähkäillä mistä lisään tuon koodinpätkän asiakirjaan. Jossain kehitystyökaluissa moduuliin, mutta missä... ?

        1. Vasemmassa yläkulmassa olevaa Excelkuvaketta klikkaat hiiren oikealla ja aukeavasta valikosta klikkaat View Code/Näytä Koodi.
        Tai käytät näppäinyhdistelmää ALT F11
        2. VBE näkymässä sitten valikosta INSERT/MODULE
        3. Sitten vain kopioit koodin oikealla olevaan ikkunaan
        4. Teet napin tms. ja liität koodin siihen.
        Tai koodipuolella klikkaat hiirellä ekan koodipätkän jollekin riville sanojen Sub Lotto- End Sub välille ja sitten F5

        @Kunde


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

    Luetuimmat keskustelut

    1. Räppäri kuoli vankilassa

      Ei kuulemma ole tapahtunut rikosta. Sama vahinkohan kävi Epsteinille. https://www.hs.fi/suomi/art-2000011840869.html "
      Maailman menoa
      132
      5381
    2. Välillä kyllä tuntuu, että jaat vihjeitä

      Mutta miten niistä voi olla ollenkaan varma? Ja minä saan niistä kimmokkeen luulemaan yhtä sun toista. Eli mitä ajatella
      Ikävä
      31
      3862
    3. No kyllä te luuserit voitte tehdä mitä vaan keskenänne, sitä en ymmärrä miksi pelaat,nainen

      Pisteesi silmissäni, edes ystävätasolla tippui jo tuhannella, kun sain selville pelailusi, olet toisen kanssa, vaikka ol
      Ikävä
      45
      2480
    4. Eipä tunnu se "pedofilia" huuto kiinnostavan

      Lähinnä se sekohäirikkö ressukka joutuu itse vastaileen itselleen, mitään näkyvyyttä ei saa, palstalla ylipäätään on hyv
      Maailman menoa
      38
      2044
    5. Minulla ei ole ketään muita

      Enkä halua ketään muita kuin sinut.
      Ikävä
      24
      1753
    6. Jätä minut rauhaan

      En pidä sinusta. Lopeta seuraaminen. Älä tulkitse keskustelutaitoa tai ystävällisyyttä miksikään sellaiseksi mitä ne eiv
      Ikävä
      24
      1704
    7. Harmittaako sinua yhtään?

      Tuntuuko pahalta ollenkaan?
      Ikävä
      41
      1640
    8. Missä näitte viimeksi?

      Missä näit kaivattua viimeksi ja oliko sähköä ilmassa?
      Ikävä
      50
      1608
    9. On varmaan turn off

      Mutta olen tosi kokematon.
      Ikävä
      29
      1463
    10. Olitpa ikävän

      Kylmä eilen. Miksi ihmeessä?
      Ikävä
      38
      1424
    Aihe