Help!

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

Hulp bij posten

Recente topics

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

0 leden en 3 gasten bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • 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.

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • 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
|-|aije

ik gebruik Office 2016 Professional Plus

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • 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....

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • 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
  • Volledig lid
  • *****
  • Berichten: 197
  • 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
|-|aije

ik gebruik Office 2016 Professional Plus

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • 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.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • 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.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • 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"  :-[.....
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • 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 :)             



Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • 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  :)
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • 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.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • 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.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • 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.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • 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.

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • 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 :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

 


www.combell.com