*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: 1 [2] 3   Omlaag

Auteur Topic: Lotto Historiek : Uitdaging ?  (gelezen 3195 keer)

0 leden en 1 gast bekijken dit topic.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Historiek : Uitdaging ?
« Reactie #15 Gepost op: 14 november 2021, 09:41:17 »
Dag Arnold,

Citaat
tis niet omdat ik niet reageer dat ik er niet meer mee bezig ben
Maar waar je niet op reageert zijn de 2 bestanden die ik nog had bezorgd. Bedoel je dan dat die geen (of geen correct) antwoord geven op je vraag?

Als je zelf (bij wijze van amusement en/of bijleren) een alternatieve methode wil uitwerken sta ik daar natuurlijk helemaal achter, maar het zou toch aangenaam zijn om je mening over mijn, weliswaar futiele, inspanningen te mogen kennen.

Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto Historiek : Uitdaging ?
« Reactie #16 Gepost op: 14 november 2021, 11:49:34 »
Voor alle verschillende 5-reeksen én reservegetal.

Run deze macro (berekent razendsnel alle 26000 mogelijkheden)

Code: [Selecteer]
Sub jec()
 ar = Cells(1, 1).CurrentRegion.Offset(, 1).Resize(, 7)
 With CreateObject("scripting.dictionary")
   For i = 2 To UBound(ar)
      .Item(.Count) = Array(ar(i, 2), ar(i, 3), ar(i, 4), ar(i, 5), ar(i, 6), ar(i, 7))
      .Item(.Count) = Array(ar(i, 1), ar(i, 3), ar(i, 4), ar(i, 5), ar(i, 6), ar(i, 7))
      .Item(.Count) = Array(ar(i, 1), ar(i, 2), ar(i, 4), ar(i, 5), ar(i, 6), ar(i, 7))
      .Item(.Count) = Array(ar(i, 1), ar(i, 2), ar(i, 3), ar(i, 5), ar(i, 6), ar(i, 7))
      .Item(.Count) = Array(ar(i, 1), ar(i, 2), ar(i, 3), ar(i, 4), ar(i, 6), ar(i, 7))
      .Item(.Count) = Array(ar(i, 1), ar(i, 2), ar(i, 3), ar(i, 4), ar(i, 5), ar(i, 7))
   Next
 Cells(2, 10).Resize(.Count, 6) = Application.Index(.items, 0, 0)
End With
End Sub
Vervolgens deze in P2:
Code: [Selecteer]
=SOMPRODUCT(--(PRODUCTMAT(AANTAL.ALS(J2:O2;$B$2:$H$3747);{1;1;1;1;1;1;1})=6))
Kan zijn dat deze formule je bestand traag maakt. Er wordt telkens herberkend. Automatisch herberekenen zou je dan kunnen uitzetten.
Uiteindelijk kun je filteren op Kolom P om te kijken of reeksen meerdere keren vallen (niet veel)

Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #17 Gepost op: 14 november 2021, 12:03:12 »
Citaat van: MollyVH op 14 november 2021, 09:41:17
Dag Arnold,
Maar waar je niet op reageert zijn de 2 bestanden die ik nog had bezorgd. Bedoel je dan dat die geen (of geen correct) antwoord geven op je vraag?

Als je zelf (bij wijze van amusement en/of bijleren) een alternatieve methode wil uitwerken sta ik daar natuurlijk helemaal achter, maar het zou toch aangenaam zijn om je mening over mijn, weliswaar futiele, inspanningen te mogen kennen.

Mvg,
Molly
hey Molly , sry als ik me verkeerd uitgedrukt heb , Uw bijlage geeft perfect weer wat ik voor ogen had.
maar als gepensioneerde heb ik in deze tijd niet zoveel om handen en het is voor 100% zoals U aangeeft : het is idd als amusement en tijdverdrijf  dat ik deze "alternatieve" methode wil proberen uit te werken !
bij deze ook IEDEREEN bedankt voor zijn/haar bijdrage  _/-\o_

Mvg,
Arnold.

Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #18 Gepost op: 14 november 2021, 12:05:12 »
@Veerj : ik bekijk zeker Uw bijlage , ik kan er alleen maar uit leren, maar zal niet voor deze namiddag zijn , tis Cyclocross op de TV  ;D...
Mvg,
Arnold.
Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Historiek : Uitdaging ?
« Reactie #19 Gepost op: 14 november 2021, 12:33:50 »
@ Arnold,

Geen probleem hoor, ik was (zoals steeds  :-[) nogal nieuwsgierig naar wat je ervan vond.
Veel succes met het ontwikkelen van je eigen methode !

@ Veerj,

Tja, ik beschouw mezelf ook nog als vba-beginneling, en ben meestal al blij als ik iets opgelost krijg.
Ik ga zeker eens wat tijd uittrekken om "scripting.dictionary" wat beter onder de knie te krijgen.

Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto Historiek : Uitdaging ?
« Reactie #20 Gepost op: 14 november 2021, 12:41:53 »
@Molly, De dictionary is zeker mooi gereedschap. Het is een snelle manier om arrays in op te slaan, te bewerken en weg te schrijven.

Het vergt wel wat tijd om precies te begrijpen wat het doet. Maarja, een beetje uitdaging is niet verkeerd toch :)

Ik heb eventueel een aantal voorbeelden voor je mbt de dictionary. Of je kunt je eventuele vragen hier stellen uiteraard. :thumbsup:

Ps: Volgens mij ben je geen beginneling!


Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Historiek : Uitdaging ?
« Reactie #21 Gepost op: 14 november 2021, 12:59:01 »
@ Veerj,

Ach, wij Vlamingen en onze valse bescheidenheid, ik doe daar gewoonlijk niet aan mee, m.a.w. ik meende het.
Erg bedankt voor het aanbod  :thumbsup: maar dat komt wel goed, hoor. Het ontbreekt mij aan een zekere dosis kennis over heel specifieke zaken, maar denk te mogen aannemen dat ik voldoende verstand heb (sommigen maken daar ten onrechte geen onderscheid tussen) om tot op zeker niveau kennis te verwerven.
En als ik toch ergens iets niet snap weet ik je te vinden  :D

Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #22 Gepost op: 14 november 2021, 16:21:36 »
@Molly : als jij een "beginneling" bent dan zit ik nog in de 1ste kleuterklas  ;D....
Mvg,
Arnold.
Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Historiek : Uitdaging ?
« Reactie #23 Gepost op: 15 november 2021, 11:59:37 »
Dag Arnold,

Hopelijk mag ik ook nog even reageren op een bericht dat inmiddels verdwenen is?  :D

Ik had de sortering op kolom A gebruikt omdat je op die manier het duidelijkst zou zien, tenminste als de filter uit staat, welk resultaat er precies door de code wordt gegenereerd.
Maar ik snap je perfect als je liever op kolom B wil gesorteerd zien.
Als je dat standaard wil kan je dat meteen in de code opnemen (als dat nog niet gebeurd is  ;))

Kleine tip: ik zag onlangs in een andere post een sorteermethode van jou passeren die met de macrorecorder was opgenomen. Het kan, zolang je op maximaal 3 kolommen gaat sorteren, ook met één enkele instructie. Ik had er zo eentje in de code staan. Als je die als volgt wijzigt sorteer je meteen op kolom B:
Code: [Selecteer]
.Columns("A:B").Sort key1:=.Cells(1, 2), Header:=xlYes
Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #24 Gepost op: 15 november 2021, 12:26:10 »
Citaat van: MollyVH op 15 november 2021, 11:59:37
Dag Arnold,
Hopelijk mag ik ook nog even reageren op een bericht dat inmiddels verdwenen is?  :D
ik heb die idd weggedaan , ik vond mijn reactie onnodig  :-[

ik ga het trouwens opgeven , ik geraak er maar niet uit , wordt te moeilijk voor mij , ik kan Uw laatste bijlage niet aanpassen naar 5+ en 6....
bij de bijlage van Veerj in reactie#16 wil ik die aanpassen naar 5 - 5+ - 6 , waar het nu 5+ alleen is...en ook dat lukt me niet...
ik begrijp de code(s) niet...
en wat mijn eigen "methode" betreft : die is (was) slakketraag , deed er minuten over om 50 records te testen.

Mvg,
Arnold.


Gelogd

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Historiek : Uitdaging ?
« Reactie #25 Gepost op: 15 november 2021, 12:53:50 »
Oei Arnold, dat is inderdaad nog een stuk trager dan die van mij.

Ik wil die gerust nog uitbreiden naar 5+ en 6, zo bijzonder veel moet daar niet voor gebeuren, maar momenteel een beetje drukker hier, dus even geduld.

Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Historiek : Uitdaging ?
« Reactie #26 Gepost op: 15 november 2021, 15:09:25 »
Ziezo Arnold, ik heb het er al eens tussen genomen. De door VeerJ gebruikte PRODUCTMAT-functie zit nog niet in mijn Office, ik heb het dus maar bij mijn eerdere methode gehouden (dat vroeg ook de kleinste aanpassing  ;))

Mvg,
Molly
Gelogd
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #27 Gepost op: 15 november 2021, 18:41:08 »
Dag iedereen die hier al aan heeft mee geholpen :
ik zit me hier te bedenken dat mijn initiële vraag was om eens te weten hoeveel maal er in de ganse Lotto historie al meerdere keren 5 of 5+ en zelfs 6 dezelfde nummers zijn getrokken geweest.
met de laatste bijdrage van Molly heb ik eigenlijk een antwoord op mijn vraag en moet ik niet verder malen over de layout , het is uiteindelijk toch iets dat je maar eenmaal of toch héél weinig gaat gebruiken.
dus ik wil bij deze iedereen bedanken en wat mij betreft is het topic hierbij af.
nog een fijne avond !
Mvg,
Arnold.

 
Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #28 Gepost op: 16 november 2021, 07:38:37 »
Update :
ik heb mijn vorige post met als bijlage mijn eigen "methode" verwijderd , ik zat er totaal naast met mijn redenering , klopte eigenlijk totaal niet..
Mvg,
Arnold.
Gelogd

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Lotto Historiek : Uitdaging ?
« Reactie #29 Gepost op: 16 november 2021, 10:35:56 »
Toch nog eentje voor de snelheid. :)
Gelogd
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US
Pagina's: 1 [2] 3   Omhoog
 


www.combell.com