Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Simulatie automatisatie  (gelezen 3601 keer)

0 leden en 1 gast bekijken dit topic.

Offline dimy

  • Volledig lid
  • **
  • Berichten: 205
  • Oplossing.be
Simulatie automatisatie
« Gepost op: 17 augustus 2007, 13:06:07 »
Beste specialisten,
In bijlage: een simulatie automatisatie.
Mijn vraag daarbij is , of het mogelijk is om VBA code te vereenvoudigen.
Omdat mijn VBA kennis te beperkt is heb ik de macro's manueel moeten opnemen. Dat resulteert natuurlijk in ellenlange code's die niet fraai zijn om te zien , laat staan om ermee te werken.
Hoe los ik dit op , beste oplossers?
Groeten Dimy
Desktop Windows 10   NLD 64 bits
ASUSTeK COMPUTER INC. H110M-C 8 GB Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz - 1400
Intel(R) HD Graphics 630 1024MB 1920  x 1080
Realtek High Definition Audio
Western Digital WDC WD10EZRZ-00HTKB0
 Samsung SSD 860 EVO 250GB  C:\ NTFS 232 GB 191 GB
                                                D:\ NTFS 1Tb
McAfee VirusScan Enterprise
Windows Defender
Windows Firewal Enabled True

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.190
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Simulatie automatisatie
« Reactie #1 Gepost op: 17 augustus 2007, 18:29:17 »
Hallo Dimy,

al een beetje opgeruimd. Zo kan je al weer iets beter zien wat er gebeurt  ;)

Groetjes,

:) 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 dimy

  • Volledig lid
  • **
  • Berichten: 205
  • Oplossing.be
Re: Simulatie automatisatie
« Reactie #2 Gepost op: 18 augustus 2007, 08:05:59 »
Dank je SoftAid,
Dat ziet er al heel wat netter uit.
Nu kan ik de rest van de simulatie in orde brengen.
Thanks

Dimy
Desktop Windows 10   NLD 64 bits
ASUSTeK COMPUTER INC. H110M-C 8 GB Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz - 1400
Intel(R) HD Graphics 630 1024MB 1920  x 1080
Realtek High Definition Audio
Western Digital WDC WD10EZRZ-00HTKB0
 Samsung SSD 860 EVO 250GB  C:\ NTFS 232 GB 191 GB
                                                D:\ NTFS 1Tb
McAfee VirusScan Enterprise
Windows Defender
Windows Firewal Enabled True

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.190
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Simulatie automatisatie
« Reactie #3 Gepost op: 18 augustus 2007, 14:12:48 »
Hey Dimy,

Die timers heb ik in een GoSub routine geplaatst, dat neemt weer een heel deel minder plaats in.

:) 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 SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.190
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Simulatie automatisatie
« Reactie #4 Gepost op: 18 augustus 2007, 20:37:52 »
Nog een andere mogelijkheid om een tijdsinterval in te schakelen is volgende code:

Application.Wait (Now + TimeValue("0:00:03"))

:) 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 dimy

  • Volledig lid
  • **
  • Berichten: 205
  • Oplossing.be
Re: Simulatie automatisatie
« Reactie #5 Gepost op: 20 augustus 2007, 11:51:10 »
Bedankt SoftAid,
Schitterend!
Dimy
Desktop Windows 10   NLD 64 bits
ASUSTeK COMPUTER INC. H110M-C 8 GB Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz - 1400
Intel(R) HD Graphics 630 1024MB 1920  x 1080
Realtek High Definition Audio
Western Digital WDC WD10EZRZ-00HTKB0
 Samsung SSD 860 EVO 250GB  C:\ NTFS 232 GB 191 GB
                                                D:\ NTFS 1Tb
McAfee VirusScan Enterprise
Windows Defender
Windows Firewal Enabled True

 


www.combell.com