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

472

    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. Omakotitalossa väkivaltaa ounasrinteellä

      Kertoo iltalehdet Mitä lienee Tapahtui. Verinen ihminen kannettu lanssiin
      Rovaniemi
      17
      1697
    2. Persut jakavat tekoälyllä tehtyjä kuvia maahanmuuttajista somessa

      Eivät mainitse, että ovat tekoälyllä tehtyjä. Eivät näe asiassa mitään ongelmaa. Valehtelijapuolue taas vauhdissa. Unka
      Maailman menoa
      442
      1402
    3. Martinan hevoset.

      Tämä todella kaunis ja ketterä harmaa hevonen jolla monet kilpailut voitetaan ei ole Martinan.Tytär ratsastaa sillä tait
      Kotimaiset julkkisjuorut
      308
      1299
    4. kukaan ei pakota kasteeseen..

      Kommentointi estetty, joten kommentoin tähän.Kukaan ei pakota pakkokasteesta puhuvaa kastamaan lastansa.Noloa edes ehdot
      Kaste
      400
      995
    5. Miesmäinen vanha nainen joka kulkee lastenvaunujen kanssa

      Mikähän kaheli tämä yks kaupungilla karvahattu päässä kulukeva vanha eukko on joka työntää lastenvaunuja. Onhan sitte
      Kuhmo
      18
      950
    6. Ethän leiki kanssani J- mies

      Jos oletkin joku pelimies, jolla monia vaihtoehtoja, katkon kylmästi yhteyden. En jaksa sellaisia miehiä.
      Ikävä
      100
      933
    7. Molemmat päät

      aivan tulessa😫 Miksi pitää ihmisen tällaisesta kärsiä??? Jos koko ajan pnettaa, niin miksi sitä seksiä ei voi sitten s
      Ikävä
      117
      853
    8. Kasteen merkityksestä ihmiselle

      Jeesuksen hyvä ystävä Nikodemus meni heti Jeesuksen kasteen jälkeen kysymään häneltä kasteen merkityksestä ihmiselle. J
      Kaste
      400
      806
    9. Liikenne onnettomuus

      Luin juuri Ampparista Konneveden kauheasta onnettomuudesta jossa menehtyi 60-luvulla syntynyt mies. Onko kellään tarkemp
      Konnevesi
      6
      790
    10. Mari Rantanen eroa! Lausunnot vapun pahoinpitelystä ovat järkyttäviä!

      Poliisiministerin, eli sisäministeri Mari Rantasen on syytä erota!
      Maailman menoa
      124
      760
    Aihe