Demo Scrolling Message display using a chart
Just a bit of fun to demo how you can create a scrolling dot matrix message display using a bit of VBA and charts.
Sub DotMatrix()
Dim lngIndex As Long
ColourNum = 3
ColourSelect
DispState = Sheet2.CheckBox1.Value
Sheet2.CheckBox1.Value = True
Sheet2.Range("C58").Value = 1
'Exit Sub
With Worksheets("LCD")
For lngIndex = 0 To (Len(.Range("DISPLAYTEXT").Value) * 6) Step 1
.Range("SLICE").Value = lngIndex
Range("C2").Select
DoEvents
Next
End With
'Reset To Static Message
ColourNum = 4
ColourSelect
Sheet2.Range("C58").Value = 0
Sheet2.Range("D55").Value = 0
Range("C2").Select
DoEvents
Sheet2.CheckBox1.Value = DispState
'FlashMsg
End Sub
| Attachment | Size |
|---|---|
| Dot Matrix rev a.xls | 283.5 KB |
- AndyLitch's blog
- Login or register to post comments
- 4382 reads

Recent comments
6 years 36 weeks ago
7 years 22 weeks ago
7 years 34 weeks ago
7 years 37 weeks ago
7 years 38 weeks ago
7 years 43 weeks ago
7 years 51 weeks ago
8 years 1 day ago
8 years 1 day ago
8 years 2 days ago