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
Lottolappujen teko exelillä?
Pikkujouluja järjest
3
425
Vastaukset
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
Selvästi näyttää siltä, että SDP:n kannattajat hyväksyy kiusaamisen
ja seksuaalisen ahdistelun, kun puolueen kannatus pysyy korkealla. Mitä tämä kertoo demari-äänestäjien moraalista?722739Kyllä nämä nyky autonakut ja autotki on heikloja
Vuoden vanha akku, eikä inahdakaan.... Pistin vara-akun just lataukseen ja lähen sillä antamaan apuvirtaa Jos ei toimi,252478Päivi Räsäsen seksipaljastus loksauttaa Katja Ståhlin leuat! Elämäni biisi kohujakso tv:ssä!
Elämäni biisi -suosikkisarjan uusinnat ovat startanneet ja nyt vuorossa on sarjan 2. jakso v. 2019. Sinisille sohville422181Muistan vuosikymmenten takaa
Toivottavasti voit hyvin ja jaksat työssäsi. Olet upea ja erinomainen ihminen, toivon kaikkea hyvää.132016Montako mitalia Suomi saa talviolympialaisista?
Nyt heittäkää veikkaus Suomen mitalisaldosta ja mistä lajeista metallilätkät tulevat. Oma veikkaukseni on 6 mitalia. -1101502- 1671363
- 521032
Kokemuksia Rehux Oy yrityksestä työpaikkana?
Jonkin aikaa seurannut kyseistä firmaa sivusta, näyttäisi, että tälläkin hetkellä olisi peräti 3 eri roolia tai paikkaa28984IS: Riitta Väisänen kärsii ikävästä vaivasta - Vaipparalli ja 40 antibioottikuuria takana...
71-vuotias Riitta Väisänen on kertonut tuoreista terveysongelmistaan. Väisänen on kertonut julkisuudessa jo aiemmin vaih16798Jos mies oikeasti haluaa sinut
Hän ei ota riskiä että menettäisi sinut. Ei pienintäkään. Mies ei jätä vastaamatta viesteihin eikä pidä sinua epätietois99791