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

443

    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. Näin Enter-napilla tehdään miljardi euroa - Helsingissä

      "Ei se nyt niin kovin ihmeelliseltä näytä. Tavallinen nappi, musta muovinpala, joka kököttää parikymppiä maksavan mustan
      Maailman menoa
      20
      18274
    2. Minulla ei ole ketään muita

      Enkä halua ketään muita kuin sinut.
      Ikävä
      56
      5162
    3. 4,5 promillee

      Aika rajut lukemat joku eilen puhaltanut.
      Suomussalmi
      24
      4797
    4. Perussuomalaiset kirjoittaa vain positiivisista uutisista

      Ei tarvitse palstaa paljon seurata, kun sen huomaa. Joka ainoa positiivinen uutinen Suomen taloudesta tai ylipäätään, ni
      Maailman menoa
      27
      4710
    5. Jätä minut rauhaan

      En pidä sinusta. Lopeta seuraaminen. Älä tulkitse keskustelutaitoa tai ystävällisyyttä miksikään sellaiseksi mitä ne eiv
      Ikävä
      36
      4530
    6. Ben Z: "SDP ei ole ollut 50 vuoteen näin huolissaan velasta"

      "– Olen ollut eduskunnassa noin 50 vuotta, eikä SDP ole koskaan ollut niin huolissaan velasta kuin nyt. Se on tietysti h
      Maailman menoa
      74
      4427
    7. Harmittaako sinua yhtään?

      Tuntuuko pahalta ollenkaan?
      Ikävä
      62
      3993
    8. Voiku saisi sen sun

      Rakkauden kokea. Tykkään susta niin paljon edelleen.
      Ikävä
      42
      3645
    9. Mitä luulet, miten Martina Aitolehti pärjää Erikoisjoukoissa?

      Kohujulkkis, yrittäjä ja hyvinvointivalmentaja Martina Aitolehti on mukana Erikoisjoukot-realityssä. Erikoisjoukot on
      Suomalaiset julkkikset
      40
      2924
    10. Olitpa ikävän

      Kylmä eilen. Miksi ihmeessä?
      Ikävä
      45
      2629
    Aihe