I am a complete beginner in VBA so could you help with this.
I have a seven segment LCD display which are really lines to make it look like it. What I need is to make the numbers go to 199.9, so my display looks like XXX.X. I have done the code so far 1-9:
Private Sub Change_Number_Click()
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
Line5.Visible = False
Line6.Visible = False
Line7.Visible = Fasle
Line8.Visible = False
Line9.Visible = False
Line10.Visible = False
Line11.Visible = False
Line12.Visible = False
Line13.Visible = False
Line14.Visible = Fasle
Number = InputBox("Enter the number to display")
Select Case Number
Case 0
Line1.Visible = True
Line2.Visible = True
Line3.Visible = True
Line4.Visible = True
Line5.Visible = True
Line6.Visible = True
Line7.Visible = False
Case 1
Line1.Visible = False
Line2.Visible = False
Line3.Visible = True
Line4.Visible = True
Line5.Visible = False
Line6.Visible = False
Line7.Visible = False
Case 2
Line1.Visible = False
Line2.Visible = True
Line3.Visible = True
Line4.Visible = False
Line5.Visible = True
Line6.Visible = True
Line7.Visible = True
Case 3
Line1.Visible = False
Line2.Visible = True
Line3.Visible = True
Line4.Visible = True
Line5.Visible = True
Line6.Visible = False
Line7.Visible = True
Etc.. on to case 9 (This is not in the code )
End Select
End Sub
So how do I make it go to 199.9 without writing out case 1 to 199.9 as this would take a long time. Many Thanks!!!
I have a seven segment LCD display which are really lines to make it look like it. What I need is to make the numbers go to 199.9, so my display looks like XXX.X. I have done the code so far 1-9:
Private Sub Change_Number_Click()
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
Line5.Visible = False
Line6.Visible = False
Line7.Visible = Fasle
Line8.Visible = False
Line9.Visible = False
Line10.Visible = False
Line11.Visible = False
Line12.Visible = False
Line13.Visible = False
Line14.Visible = Fasle
Number = InputBox("Enter the number to display")
Select Case Number
Case 0
Line1.Visible = True
Line2.Visible = True
Line3.Visible = True
Line4.Visible = True
Line5.Visible = True
Line6.Visible = True
Line7.Visible = False
Case 1
Line1.Visible = False
Line2.Visible = False
Line3.Visible = True
Line4.Visible = True
Line5.Visible = False
Line6.Visible = False
Line7.Visible = False
Case 2
Line1.Visible = False
Line2.Visible = True
Line3.Visible = True
Line4.Visible = False
Line5.Visible = True
Line6.Visible = True
Line7.Visible = True
Case 3
Line1.Visible = False
Line2.Visible = True
Line3.Visible = True
Line4.Visible = True
Line5.Visible = True
Line6.Visible = False
Line7.Visible = True
Etc.. on to case 9 (This is not in the code )
End Select
End Sub
So how do I make it go to 199.9 without writing out case 1 to 199.9 as this would take a long time. Many Thanks!!!