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

446

    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. Riikka Purra lupasi Suomen kansalle 1 euron bensaa, hinta nyt 2 euroa

      Vasemmistolaisen Marinin hallituksen aikana bensa ei maksanut kuin 1,3 euroa litralta. Ministerin pitäisi perustuslain m
      Maailman menoa
      62
      3964
    2. Natomaa hyökkäsi Iraniin

      Näemme nyt tällä hetkellä Natomaan nimeltä Yhdysvallat, joka toimii aika pitkälti perinteisen kansainvälisen lain ulkopu
      NATO
      716
      3785
    3. Trump aloitti III maailmansodan tänään.

      Narsisti ja mielipuoli Trump pitäisi saada pois, miten se onnistuisi parhaiten?
      Maailman menoa
      398
      3581
    4. Suvi Lindenillä 5 366 päivän putki

      Täytyy kyllä myöntää vaikka olen itsekin innokas, niin en ole tuollaiseen yli kymmenen vuoden putkeen kyennyt. Välillä o
      Maailman menoa
      81
      3397
    5. Mistä se kertoo

      Näin miehen pitkästä aikaa. Samantien iski sellainen paineen tunne rintaan, sitä ei ole ollut vuosiin. Ja nyt olen siitä
      Ikävä
      36
      3149
    6. Rakas tiedät, että toivoisin

      Kuulevani sinusta. Tiedät, että viestisi tekisi minut ihan onnelliseksi. Että äänesi kuuleminen saisi minut leijumaan ja
      Ikävä
      58
      2638
    7. Eräs on taas viettänyt kokoyön täällä!!

      Etkö sä nuku koskaan??
      Ikävä
      50
      2605
    8. Miksi rakastuit

      Kaivattuusi?
      Ikävä
      120
      2493
    9. Viesti miehelle

      Nyt vastaa oikea taa´app. Ainoastaan puhelimitse voidaan selvittää asioita, mutta tuskin sitä haluat kaiken halveeramise
      Ikävä
      14
      2169
    10. Nyt on sanottava että sattuu kipeästi

      Jos, sinä aikana kun olen kaivannut ja odottanut sinua ja olet tiennyt sen, niin jos valitsit toisen miehen. Katsot minu
      Ikävä
      18
      2159
    Aihe