Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Scrollrow  (gelezen 1444 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 208
  • 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
Excel 365 NL

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.275
  • 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.
______________________________

Groet, Leo

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 208
  • 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

 
Excel 365 NL

Offline Haije

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

ik gebruik Office 2016 Professional Plus

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 208
  • 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
Excel 365 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
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
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 Haije

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

zeker is me dat opgevallen.
|-|aije

ik gebruik Office 2016 Professional Plus

 


www.combell.com