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
472
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
Omakotitalossa väkivaltaa ounasrinteellä
Kertoo iltalehdet Mitä lienee Tapahtui. Verinen ihminen kannettu lanssiin201807Persut 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. Unka4601492Martinan hevoset.
Tämä todella kaunis ja ketterä harmaa hevonen jolla monet kilpailut voitetaan ei ole Martinan.Tytär ratsastaa sillä tait3091316Lopetin kokonaan ravintoloissa ruokailun ja juomisen
Ravintoloissa hinnat ovat aivan naurettava korkealla. Alkoholin juomisessa ravintoloissa ei ole senkään vertaa järkeä.921232Miesmä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 sitte191028kukaan ei pakota kasteeseen..
Kommentointi estetty, joten kommentoin tähän.Kukaan ei pakota pakkokasteesta puhuvaa kastamaan lastansa.Noloa edes ehdot4001005Ethän leiki kanssani J- mies
Jos oletkin joku pelimies, jolla monia vaihtoehtoja, katkon kylmästi yhteyden. En jaksa sellaisia miehiä.100943Molemmat päät
aivan tulessa😫 Miksi pitää ihmisen tällaisesta kärsiä??? Jos koko ajan pnettaa, niin miksi sitä seksiä ei voi sitten s117873Kasteen merkityksestä ihmiselle
Jeesuksen hyvä ystävä Nikodemus meni heti Jeesuksen kasteen jälkeen kysymään häneltä kasteen merkityksestä ihmiselle. J407821Liikenne onnettomuus
Luin juuri Ampparista Konneveden kauheasta onnettomuudesta jossa menehtyi 60-luvulla syntynyt mies. Onko kellään tarkemp6810