Help!

Problemen met uw pc? De vrijwilligers van Oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Hulp bij posten

Recent

Auteur Topic: Lotto nummers oplopend sorteren  (gelezen 1783 keer)

Online Montagnard

  • Volledig lid
  • **
  • Berichten: 143
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Lotto nummers oplopend sorteren
« Gepost op: 03 januari 2019, 18:17:35 »
dag,
vooreerst : ik ben nog van de oude stempel , heb wel heel veel "geprogrammeerd" in Basic en later in VBA , dus de programma code zal voor sommigen wel soms ouwbollig overkomen maar het doet voor mij wat het moet doen in voor mij begrijpelijke taal  ::)...
ik heb een programmaatje geschreven waar ik mijn vast te spelen nummers kan ingeven ( ofwel volledig zelf in te geven ofwel laten trekken door een "quick pick" ) , na ingave van de lotto trekking kan ik het programma laten controleren of ik winnende combinaties heb.
alles werkt prima maar ik zou graag als ik zelf meerdere lijnen met nummers ingeef of een "quick pick" laat doen , deze nummer oplopend laten sorteren , dit om het overzicht beter te houden.
ik heb reeds een knop aangemaakt "Sorteren van Lotto nummers" , programma code "Private Sub CommandButton2_Click()" , heb reeds van alles geprobeerd maar slaag er niet in om de nummers te sorteren.
voorbeeld :
40   32   4   39   23   29
28   9   42   11   3   41
11   19   25   26   43   14
40   17   15   8   29   7
5   8   21   35   10   42

ik zou dit graag juist en oplopend gesorteerd krijgen , maar als ik in excel handmatig sorteer via het menu "sorteren/oplopend" dan loopt het mis : zie onderstaand resultaat.....

5   8   21   35   10   42
11   19   25   26   43   14
28   9   42   11   3   41
40   32   4   39   23   29
40   17   15   8   29   7

ik heb mijn bestandje bijgesloten , het mag door iedereen vrij gebruikt worden !

Mvg,
Arnold.


Offline Haije

  • Excel-Expert
  • Lid
  • *****
  • Berichten: 43
  • Geslacht: Man
  • Oplossing.be
Re: Lotto nummers oplopend sorteren
« Reactie #1 Gepost op: 03 januari 2019, 19:34:05 »
Arnold,

probeer dit eens:Sub sorteer_alles()
'sorteer eerst per regel oplopend
Do Until Range("A3").Offset(x) = ""
regel = Range("A3").Offset(x).Resize(1, 6).Address
With Range(regel)
    .Sort Key1:=Range("A3").Offset(x), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, DataOption1:=xlSortNormal
End With
x = x + 1
Loop
'sorteer nu alles oplopend op kolom A
alles = Range("A3").CurrentRegion.Address
With Range(alles)
    .Sort Key1:=Range(alles).Resize(, 1), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With
End Sub
in plaats van je huidige macro1

Online Montagnard

  • Volledig lid
  • **
  • Berichten: 143
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto nummers oplopend sorteren
« Reactie #2 Gepost op: 03 januari 2019, 19:45:13 »
Ik heb je code dus geďntegreerd onder de knop "Sorteren lotto nummers" ( code voor  Private Sub CommandButton2_Click()" ) maar lukt dus ook niet !
Ik heb een quick pick laten doen voor 10 lijnen :

19   37   29   25   22   30
31   6   38   25   8   18
25   34   27   9   29   24
25   33   11   17   10   24
4   18   36   43   12   45
18   16   21   23   30   39
35   8   5   26   14   36
42   29   36   25   5   19
21   9   27   16   2   10
17   9   18   37   34   31

na sorteren :

1 ) 2   9   10   16   21   27
2 ) 4   12   18   36   43   45
3 ) 5   8   14   26   35   36
4 ) 5   19   25   29   36   42
5 ) 6   8   18   25   31   38
6 ) 9   24   25   27   29   34
7 ) 9   17   18   31   34   37

8 ) 10  11   17   24   25   33
9 ) 16  18   21   23   30   39
10 ) 19 22   25   29   30   37

hier zie je dus dat lijn 7 normaal op 6 zou moeten staan en lijn 6 op 7 ....ik loop dus ook telkens tegen die zelfde fout aan en begrijp maar niet hoe dit komt....

« Laatst bewerkt op: 03 januari 2019, 19:50:58 door Montagnard »

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.809
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Lotto nummers oplopend sorteren
« Reactie #3 Gepost op: 03 januari 2019, 20:28:04 »
De sorteersleutel kent maar 1 key in de procedure. Laat ook sorteren op kolom B en C, dan kom je al een stuk verder met je wens.
______________________________

Groet, Leo

Offline Haije

  • Excel-Expert
  • Lid
  • *****
  • Berichten: 43
  • Geslacht: Man
  • Oplossing.be
Re: Lotto nummers oplopend sorteren
« Reactie #4 Gepost op: 03 januari 2019, 20:36:10 »
en zo dan?
Sub sorteer_alles()
'sorteer eerst per regel oplopend
Do Until Range("A3").Offset(x) = ""
regel = Range("A3").Offset(x).Resize(1, 6).Address
With Range(regel)
    .Sort Key1:=Range("A3").Offset(x), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, DataOption1:=xlSortNormal
End With
x = x + 1
Loop
'sorteer nu alles oplopend op kolom A
alles = Range("A3").CurrentRegion.Address
    ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("A3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("B3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("C3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("D3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("E3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Lotto controle").Sort.SortFields.Add Key:=Range("F3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Lotto controle").Sort
        .SetRange Range(alles)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Online Montagnard

  • Volledig lid
  • **
  • Berichten: 143
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto nummers oplopend sorteren
« Reactie #5 Gepost op: 04 januari 2019, 08:15:01 »
yes ! het werkt nu prima...
hartelijk dank Haije en RedHead voor het helpen meewerken aan een oplossing.
Mvg,
Arnold.

Offline emields

  • Lid
  • *
  • Berichten: 48
  • Geslacht: Man
  • Oplossing.be
Re: Lotto nummers oplopend sorteren
« Reactie #6 Gepost op: 07 januari 2019, 18:46:06 »
Is wel een zeer uitgebreide code. kan ook veel korter

Ook het invullen van een quick pick een beetje veranderd.

Online Montagnard

  • Volledig lid
  • **
  • Berichten: 143
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto nummers oplopend sorteren
« Reactie #7 Gepost op: 07 januari 2019, 19:10:03 »
ja ik weet het , maar ben nog van de oude stempel en heb nog de oude manier van "programmeren" in mij....heb er lang aan gedacht om nog lessen te gaan volgen maar heb nu anderen "bezigheden"  :-[.....

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.263
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Lotto nummers oplopend sorteren
« Reactie #8 Gepost op: 07 januari 2019, 20:06:32 »
Hallo Arnold,

Persoonlijk vind ik dat je programmering prima is, en aangepast aan jou kunnen.
En zo moet het ook blijven, anders kan je het niet meer zelf lezen, en kan je niets meer leren.

Als je de code van andere mensen gaat overnemen, enkel omdat deze korter is, maar jij ze niet meer kan lezen, dan vervreemd je compleet van je werkstukje.

Het is dan ook vaak ongepast als helpers geen rekening houden met het "kunnen" van anderen, en kritiek geven, enkel omdat hun eigen stukje code korter is. Ze vergeten dan meestal dat er ergens wel iemand is die het nog korter kan.

Dus, blijf jezelf, je doet het prima  :thumbsup:

:) SoftAid :)             



Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

Online Montagnard

  • Volledig lid
  • **
  • Berichten: 143
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto nummers oplopend sorteren
« Reactie #9 Gepost op: 07 januari 2019, 20:28:18 »
Dankuwel SoftAid...je slaat de nagel op de kop want ik heb die nieuwe versie geopend en zoals je aangeeft snap ik er niet veel van , zeker met die kolommen met nummers naast mijn layout....anderzijds ben ik wel nog leergierig genoeg om toch te proberen het te begrijpen of er alsnog iets uit te halen dat ik dan weer verder kan gebruiken...
daarom zeker een bedankje aan "emields" om mee te helpen  :) !.
en goh , wat ik heb "geprogrammeerd" vroeger , toen nog gewone "basic" op de Commodore64 , met zo'n meterslange printlists met regels , geprint met een matrix printer , dan was het van "goto regel zovee"l en "gosub" enz....en als er dan een foutje ergens zat , met kleurstiften de lussen controleren en dan vaststellen dat ik i.p.v. een "," een ";" getyped had enz enz...
man man man , soms tot midden in de nacht  ;D....
mooie herinneringen  :)

Offline emields

  • Lid
  • *
  • Berichten: 48
  • Geslacht: Man
  • Oplossing.be
Re: Lotto nummers oplopend sorteren
« Reactie #10 Gepost op: 08 januari 2019, 00:33:06 »
@Montagnard   Dat was zeker niet op bedoeld. het was meer een antwoord op de oplossingen daarboven.

De sorteersleutel kent 3 key's dus is het niet nodig een half blad vol te schrijven. En omdat de quick pick ingave bij mij steeds vast liep had ik dan maar gezocht naar een andere methode om er een in te voeren met zoveel mogelijke verschillende cijfers.


Ik zal zeker nooit kritiek hebben op mensen die iets durven vragen, en ben dan ook de eerste om een, veel te, lange code te schrijven om iets proberen duidelijk te maken.

Online Montagnard

  • Volledig lid
  • **
  • Berichten: 143
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto nummers oplopend sorteren
« Reactie #11 Gepost op: 08 januari 2019, 07:45:34 »
@Montagnard   Dat was zeker niet op bedoeld. het was meer een antwoord op de oplossingen daarboven.

De sorteersleutel kent 3 key's dus is het niet nodig een half blad vol te schrijven. En omdat de quick pick ingave bij mij steeds vast liep had ik dan maar gezocht naar een andere methode om er een in te voeren met zoveel mogelijke verschillende cijfers.


Ik zal zeker nooit kritiek hebben op mensen die iets durven vragen, en ben dan ook de eerste om een, veel te, lange code te schrijven om iets proberen duidelijk te maken.

Hey "emields" , ik weet dat wel hoor dat het enkel je bedoeling was om te helpen , mocht ik geen hulp nodig gehad hebben dan zou ik ook geen vraag gesteld hebben ....
envenzo is het zoals SoftAid aangeeft dan moeilijk voor mij om te begrijpen hoe de code in elkaar zit , en als ik van iedereen die helpt een stuk "aangepaste" code krijg dan is mijn "zelf" geschreven programma uiteindelijk door mezelf niet meer te lezen.....
vandaar ook de heel veel "rem" regels met uitleg wat de volgende regels code juist doen in mijn "programma"....

Mvg,
Arnold.

Online Montagnard

  • Volledig lid
  • **
  • Berichten: 143
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto nummers oplopend sorteren
« Reactie #12 Gepost op: 14 januari 2019, 16:08:33 »
dag,
heb uiteindelijk toch de code van "Emields" gebruikt , vooral voor de quick pick functie , omdat ik vond dat de met mijn eigen code getrokken nummers niet "random" genoeg waren , er zat als het ware een zekere logica in die me al de 1ste keer was opgevallen.

bij deze : @Emields : dankuwel !

Mvg,
Arnold.

Offline emields

  • Lid
  • *
  • Berichten: 48
  • Geslacht: Man
  • Oplossing.be
Re: Lotto nummers oplopend sorteren
« Reactie #13 Gepost op: 14 januari 2019, 17:11:08 »
Graag gedaan en hierbij een bestand dat nog wat verder opgemaakt is.

ps Als er vragen zijn stel ze gerust.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.263
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Lotto nummers oplopend sorteren
« Reactie #14 Gepost op: 14 januari 2019, 17:13:17 »
Graag gedaan en hierbij een bestand dat nog wat verder opgemaakt is.
\o/ \o/ \o/

:) SoftAid :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag op meerdere fora beantwoord.

 


www.combell.com