*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Scrollrow  (gelezen 1289 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 140
  • Geslacht: Man
  • Oplossing.be
Scrollrow
« Gepost op: 24 mei 2023, 10:25:59 »
Hoi,

deze code gebruik ik om tekst te laten scrollen in excel
maar dit gaat per regel en een klein beetje een soort schokkend beeld
is er misschien een manier om het vloeiend te laten scrollen?

Sub Start()
Dim min, max, kant
min = 1
max = 125
kant = 1
Application.ActiveWindow.ScrollRow = min
While Application.ActiveWindow.ScrollRow <= max
    Application.Wait Now + TimeValue("00:00:01")
        If Application.ActiveWindow.ScrollRow = min Then kant = 1
        If Application.ActiveWindow.ScrollRow = max Then kant = -1
    Application.ActiveWindow.ScrollRow = Application.ActiveWindow.ScrollRow + kant
Wend
End Sub

Alvast bedankt
Gelogd
Excel 365 NL

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.270
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Scrollrow
« Reactie #1 Gepost op: 24 mei 2023, 11:12:31 »
SunnyBat, waarom heb je die regel met het Wait commando in je code ingebouwd? Die geeft het schokkende beeld kan ik me zo voorstellen.
Gelogd
______________________________

Groet, Leo

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 140
  • Geslacht: Man
  • Oplossing.be
Re: Scrollrow
« Reactie #2 Gepost op: 24 mei 2023, 11:31:03 »
@RedHead

Klopt maar als die er niet in zit gaat die in een keer naar de eind regel en scroll niet meer

 
Gelogd
Excel 365 NL

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 182
  • Geslacht: Man
  • Oplossing.be
Re: Scrollrow
« Reactie #3 Gepost op: 24 mei 2023, 12:17:05 »
en als je die timevalue halveert?
Gelogd
|-|aije

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 140
  • Geslacht: Man
  • Oplossing.be
Re: Scrollrow
« Reactie #4 Gepost op: 24 mei 2023, 12:21:03 »
@Haije

lager als 00:00:01 gaat niet

krijg het ook niet gevonden

als ik dit toevoeg

Application.Wait (Now + 0.000001)

gaat ook niet
Gelogd
Excel 365 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 640
Re: Scrollrow
« Reactie #5 Gepost op: 24 mei 2023, 12:45:28 »
@ RedHead & Haije,

Is het jullie misschien ook opgevallen dat TS een nooit eindigende code heeft ontworpen?
Het ganse idee achter de vraag ontgaat mij trouwens volkomen! Het lijkt erop dat hij constant heen en weer door (een deel van) zijn document wil gaan zonder muis of toetsenbord te beroeren, en daarbij de inhoud kunnen zien, dat zou alvast de 'wait' verklaren, maar verder voor mij enkel :'( :(
Een laatste gokje: als hij wil wat ik denk dat hij wil (vloeiend scrollen) zou Excel een mogelijkheid moeten hebben om bovenaan het werkblad 'stukjes van een cel' te tonen, en dat moet volgens mij nog door MS worden uitgevonden :D (wat overigens met de schuifbalk wél mogelijk is)

Mvg,
Molly
Gelogd

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 182
  • Geslacht: Man
  • Oplossing.be
Re: Scrollrow
« Reactie #6 Gepost op: 24 mei 2023, 16:23:43 »
@Molly,

zeker is me dat opgevallen.
Gelogd
|-|aije
Pagina's: [1]   Omhoog
 


www.combell.com