Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Lotto: punt duizendtallen verwijderen  (gelezen 28855 keer)

0 leden en 2 gasten bekijken dit topic.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #150 Gepost op: 30 januari 2022, 18:09:12 »
Dag Arnold,

Ja hoor, dat gaat  ;)
In bijgevoegd voorbeeld is module 6 verdwenen en alles staat overzichtelijk in module 1.
Niet getest, maar ik verwacht toch geen problemen.

In plaats van 2 procedures heb je er nu 3..., maar niet getreurd, want de essentie is dat jouw 2 procedures gereduceerd zijn tot 1 regel code waarin als argument het soort trekking wordt meegegeven aan de gedetailleerde procedure.
Bestudeer het maar eens, en mocht er iets niet duidelijk zijn, waar ik sterk  :) aan twijfel, dan hoor ik het wel.

Mvg,
Molly
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 Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #151 Gepost op: 31 januari 2022, 01:20:17 »
Als je beide knoppen een significante naam geeft kan je het idd. bij 1 procedure houden.

We maken dan gebruik van Select Case en Application.Caller om de gebruikte knop te identificeren.

Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #152 Gepost op: 31 januari 2022, 09:17:10 »
Als je beide knoppen een significante naam geeft kan je het idd. bij 1 procedure houden.
dag , mag ik vragen HOE je die naam hebt gegeven ? als ik rechts klik op een van de "buttons (afbeelding)" dan vind ik dat niet terug  :-[
de rest van de code begrijp ik dan wel  :)...
én weeral iets bijgeleerd dat als je wilt werken met 2 buttons , om via de ene of de andere dezelfde code uit te voeren maar met een selectie dat je dat dan kan in één module...
ik had op een bepaald moment zelfs gedacht aan een soort "slider" om dan ofwel de ene of de andere website aan te roepen met dus dezelfde code...maar dat gaat nog mijn petje te boven , daarom in plaats van die inputbox die 2 buttons (afbeeldingen als knop).
Mvg,
Arnold.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #153 Gepost op: 31 januari 2022, 09:18:11 »
Bestudeer het maar eens, en mocht er iets niet duidelijk zijn, waar ik sterk  :) aan twijfel, dan hoor ik het wel.
het is me duidelijk ! en dus ook wééral bijgeleerd .
bedankt !
Mvg,
Arnold.

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #154 Gepost op: 31 januari 2022, 09:59:10 »
Arnold,

Als je rechtsklikt op een vorm moet je maar eens links van de formulebalk kijken in het naamvak. (waar je ook de naam intikt als je een

bepaalde Range een naam wil geven.

Daar staat normaal zoiets als Rechthoek met afgeronde hoeken of iets dergelijks. Daar geef je dan de naam in die je aan de vorm wil geven.

Met Application.Caller vraag je dan op vanuit welke knop de macro wordt aangeroepen..

Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Lotto: punt duizendtallen verwijderen
« Reactie #155 Gepost op: 31 januari 2022, 10:03:33 »
Super ! wist dat niet...Thanks  ;)
Mvg,
Arnold.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #156 Gepost op: 31 januari 2022, 10:33:59 »
Dag Arnold,

Mag ik nog 2 algemene tips geven?

Goed om te onthouden is dat je met de methode van Warme bakkertje vastloopt als je tijdens het ontwikkelen code wil testen met F5 of F8, waarmee ik absoluut geen afbreuk wil doen aan de waarde van zijn oplossing, integendeel!

Eveneens nuttig om in gedachten te houden is dat de methode waarbij de ene code de andere aanroept voor een ontelbaar aantal zaken bruikbaar is en gebruikt wordt. Dat hoeft dan niet beperkt te blijven tot het klikken op een of andere knop, en kan ook in een cascadesysteem. Bij iets ingewikkelder projecten kan je daar enorm je voordeel mee doen. Gewoon een paar keer proberen en je hebt dat meteen onder de knie.

Mvg,
Molly
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: punt duizendtallen verwijderen
« Reactie #157 Gepost op: 31 januari 2022, 11:38:58 »
Bedankt voor beide tips !
Jullie zijn alletwee steengoede programmeurs en ik wil Jullie beiden ook houden , Jullie hebben al zoveel geholpen en al zoveel goeds bijgebracht  :)
Wat mijn Lotto programma betreft zijn de beide oplossingen goed....dan is het altijd moeilijk om te kiezen welke oplossing te gebruiken...
Mvg,
Arnold.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto: punt duizendtallen verwijderen
« Reactie #158 Gepost op: 31 januari 2022, 12:26:27 »
Dag Arnold,

Dank voor de lovende woorden  ;)
Zoals je zelf kon vaststellen zijn beide manieren inderdaad even bruikbaar, dus ik wou zeker niet in competitie gaan met Warme bakkertje, en al helemaal niet jou proberen overtuigen om voor mijn methode te kiezen. Mijn enige bedoeling was je te stimuleren om, als je dat wil!, bij bijvoorbeeld een ander project eens iets anders te proberen.
In dat geval bij voorbaat succes gewenst  :)

Mvg,
Molly
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

 


www.combell.com