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
458
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
Kunnissa - siis myös kaupungeissa - viihtyvät ovat kommunisteja
Nehän ovat osa yhteiskunnan tuottamia instansseja, joista on vain haittaa veronmaksajille ja yrittäjlle, kuten ollaan ve263067Järkevä ehdotus: reilun 8 miljardin euron veronkorotukset
Nykyinen hallitus on päästänyt valtion tulopuolen rappeutumaan, vaikka varallisuutta on Suomessa enemmän kuin koskaan. U642108Iski taas katumus kun en jutellut sun kanssa
Silloin kun halusit. Mutta en enää voi sille mitään, en saa muutettua sitä hetkeä..1801928SDP todellisuudessa pahin pettäjä koskaan - se syyllistyi valtiopetokseen 1918
kun aloittivat kapinan maan laillista valtiojärjestystä vastaan. Punaiset saivat tukea Neuvosto-Venäjän bolsevikeilta,1211884Miksi vasemmisto ei vastusta ulkomaisen halpatyövoiman maahantuontia
joka heikentää suomalaisten duunarien työmarkkina-asemaa ja rasittaa Suomen julkista taloutta? Vasemmistolla ideologin931539Miksei asevelvollisuuden kuluja lasketa Nato-menoihin?
Koskela (vas) kysyy aiheellisesti, että kun kerran palkka-armejaan perustuvat maat laskevat kysesestä toiminnasta aiheut11355- 861171
Miksi kaikki avioeronneet miehet eivät kunnioita naisia?
Niin. Miksi avioeronneet miehet kohtelevat huonosti naisia, jotka lähestyvät heitä? Tämä on kokemuksen rintaääntä. Tämä2091093Martina Aitolehti murtui Erikoisjoukoissa Matias Petäistön käsittelyssä - Tästä oli kyse
Yksi Erikoisjoukot-kauden julkkiskisaajista on yrittäjä ja hyvinvointivalmentaja Martina Aitolehti. Aitolehti on pärjän111028Purralla luistaa hihna isolla pyörällä
Näki taas eilisillan tv-tentissä kuinka paniikissa oli kannatusromahduksen takia. Ei saanut kuin tiuskittua yksittäisiä251001