BY CATEGORY▼
VBA CATEGORIES▼
VBA USER FORMS VIDEOS▼
- Excel VBA Forms Pt 1 - Drawing Forms
- Excel VBA Forms Pt 2 - Running and Navigating Forms
- Excel VBA Forms Pt 3 - Adding Code to Forms
- Excel VBA Forms Pt 4 - Validating Controls
- Excel VBA Forms Pt 5 - Validating Forms
- Excel VBA Forms Pt 6 - ComboBox Controls
- Excel VBA Forms Pt 7 - ListBox Controls
- Excel VBA Forms Pt 8 - Option Buttons
- Excel VBA Forms Pt 9 - Spin Buttons
- Excel VBA Forms Pt 10 - Scroll Bar Controls
- Excel VBA Forms Pt 11 - Check Boxes
- Excel VBA Forms Pt 12 - Toggle Buttons
- Excel VBA Forms Pt 13 - Image Controls
- Excel VBA Forms Pt 14 - Multi Page Controls
- Excel VBA Forms Pt 15 - Tab Strip Controls
- Excel VBA Forms Pt 16 - Playing YouTube Videos
- Excel VBA Forms Pt 17 - Editing Data
- Excel VBA Forms Pt 18 - Installing the Date Time Picker and Month View Controls
- Excel VBA Forms Pt 19 - The RefEdit Control
- Excel VBA Forms Pt 20 - Progress Bars
VBA User Forms videos | Excel VBA Forms Pt 10 - Scroll Bar Controls
Posted by Andrew Gould on 31 March 2016
A Scroll Bar is like the big brother of a Spin Button, allowing you to set a numeric value by clicking and dragging a bar. This video shows you how to use a scroll bar to control both a numeric value and a date.
You can download any files that you need to follow the video here.
You can increase the size of the video:

You can view the video in full screen mode as shown on the left, using the icon at the bottom right of the frame.
You can also increase the quality of the video:

You can improve the resolution of the video using another icon at the bottom right of the frame. This will slow down the connection speed, but increase the display and sound quality. This icon only becomes visible when you start playing the video.
Finally, if nothing happens when you play the video, check that you're not using IE in compatibility view.
Hi Andrew,
I think I made scroll increase in month increment if clicked on right side using below code
Private mCurrentScrollPos As Long
Private Sub FilmDateScroll_Change()
FilmDate.Text = Format(CDate(FilmDateScroll.Value), "d mmm yyyy")
If (FilmDateScroll.Value < mCurrentScrollPos) Then
FilmDateScroll.LargeChange = DateDiff("d", _
DateAdd("m", -1, CDate(FilmDateScroll.Value)) _
, CDate(FilmDateScroll.Value))
Else
FilmDateScroll.LargeChange = DateDiff("d", _
CDate(FilmDateScroll.Value), _
DateAdd("m", 1, CDate(FilmDateScroll.Value)))
End If
mCurrentScrollPos = FilmDateScroll.Value
End Sub
Let me know if there is something else I should consider.
Thanks,
Surendra