Excel VBA - scroll by Tick Count
I have this data in an array. (loaded from a sheet)
When run, and when the Tick Count is reached I want to ScrollColumn to the column shown.Thanks for any ideas.
FYI: it will start when a button is clicked.
IT System Administrator
Once you reach it you could do something like:
ActiveWindow.SmallScroll ToRight:=1
Without knowing what the rest of your code is there isn't much else I can help with.
ActiveWindow.ScrollColumn = 5
My problem is, how can I get VBA procedure to 'listen' to the Tick Count and execute the above when each tick count is reached (the time as per the array or grid - see the image in my question) .
So, when Tick is 0354 this should execute
ActiveWindow.ScrollColumn = 2
So it will be something like a 'slide show'.
FYI: the code for the ticks is
Public Declare Function GetTickCount Lib "Kernel32" () As Long
lngTime = GetTickCount()
Protect yourself and your loved ones. Stay home for the holidays.
Note that the "array" is built into the code.
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub ScrollByTick()
Dim lngTicks As Long
Dim lngIndex As Long
Dim varrTicks As Variant
Dim varrCols As Variant
varrTicks = Array(1, 3540000, 5000000, 10000000)
varrCols = Array(1, 2, 3, 4)
Do Until lngTicks > varrTicks(UBound(varrTicks))
lngTicks = lngTicks + 1
For lngIndex = 0 To UBound(varrTicks)
If lngTicks = varrTicks(lngIndex) Then
ActiveWindow.ScrollColumn = varrCols(lngIndex)
Exit For
End If
Next
Loop
End Sub
My 'slide show' should advance to the next column (per array) when a precise time is reached. The 'time' is as per every 4 bars in a piece of music being played simultaneously - I would have got these times (in real-time or the wave) and put them into the array. The aim is, I intend to capture the 'slide show' and the audio by screen recording.
So, I'm thinking
lngTicks = lngTicks + 1
I'm hoping GetTickCount would have a precise time. Am I right in thinking that?
Protect yourself and your loved ones. Stay home for the holidays.
I see that you're not using the GetTickCount API functionYou're right! I meant to. Be back in a bit.
Protect yourself and your loved ones. Stay home for the holidays.
Protect yourself and your loved ones. Stay home for the holidays.
Gain unlimited access to on-demand training courses with an Experts Exchange subscription.
Get AccessWhy Experts Exchange?
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Did You Know?
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE
Ask ANY Question
Connect with Certified Experts to gain insight and support on specific technology challenges including:
- Troubleshooting
- Research
- Professional Opinions