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

484

    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. Veroaste on Suomessa viitisen prosenttiyksikköä liian matala

      Veropohjaa on rapautettu käytännössä koko kulunut vuosituhat, jonka vuoksi valtion menoja on jouduttu rahoittamaan velka
      Maailman menoa
      109
      2740
    2. EU komissio - EU-elpymisrahoja voidaan käyttää TILAPÄISESTI väärin!

      Espanja ohjasi miljardeja euroja – Nyt EU-komissio teki yllättävän paljastuksen Skandaaliksi noussut Espanjan EU-rahoje
      Maailman menoa
      29
      1331
    3. Kultasi eka kirjain? Kuka haluaa

      A haluaa J
      Ikävä
      98
      1176
    4. Kristillinen kaste annetaa upotuskasteena

      Kristillinen upotuskaste perustuu juutalaiseen mikve-kasteeseen, jossa upottaudutaan veden alle kokonaan. Paavali vertas
      Kaste
      162
      1007
    5. Koko kansan kaste Punaisen meren ylityksen aikana

      Koko Israelin 2,5 milj.kansa sai kasteen ja Pyhän Hengen lahjan ylittäessän Punaisen meren. 1.Kor.10 1 Sillä minä en ta
      Kaste
      366
      997
    6. Empaattisuus ja suoruus.

      Tässä tullut noita pehmeitä asioita pohdittua, mutta toisaalta olen myös yksinkertainen mies. Pidän suoruudestakin. Mi
      Sinkut
      133
      958
    7. Nainen, mikset lähetä

      miehelle viestiä? Tiedän, että sulla on asiaa ja kysyttävää.
      Ikävä
      54
      843
    8. Sä saat mut tuntemaan

      Jotain sellaista mitä ei saisi tuntea mutta må en mahda tälle mitään. Mulla on ikävä niitä meidän katseita ja sitä tunne
      Ikävä
      22
      673
    9. Ehkä vähän

      Rakastunut sinuun
      Ikävä
      40
      668
    10. Tunnettujen vanhempien lapset, tv-sarja

      Tunnettujen vanhempien lapset saa tv-sarjan. Juurihan yksi heistä oli MTV:ssä 6.5.26 kertomassa ettei halua julkisuutta
      Kotimaiset julkkisjuorut
      110
      632
    Aihe