คือเป็นคำสั่งที่ ให้นำวันที่จากเริ่ม จนจบไป ลงในช่องวันของแต่ละเดือน แต่เขียนแบบย่อกว่านี้ไม่เป็นครับ

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim I As Integer
a = S1.Value
b = S2.Value + 1
c = b - a
d = S3.Value
e = S4.Value

If d = e And d = 1 Then
    For I = 1 To c
        Form_1.Controls("C" & a).Value = True
        Form_1.Controls("L" & a).BackStyle = 1
        Form_1.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
ElseIf d = 2 Then
    For I = 1 To c
        Form_2.Controls("C" & a).Value = True
        Form_2.Controls("L" & a).BackStyle = 1
        Form_2.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
ElseIf d = 3 Then
    For I = 1 To c
        Form_3.Controls("C" & a).Value = True
        Form_3.Controls("L" & a).BackStyle = 1
        Form_3.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
ElseIf d = 4 Then
    For I = 1 To c
        Form_4.Controls("C" & a).Value = True
        Form_4.Controls("L" & a).BackStyle = 1
        Form_4.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
ElseIf d = 5 Then
    For I = 1 To c
        Form_5.Controls("C" & a).Value = True
        Form_5.Controls("L" & a).BackStyle = 1
        Form_5.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
ElseIf d = 6 Then
    For I = 1 To c
        Form_6.Controls("C" & a).Value = True
        Form_6.Controls("L" & a).BackStyle = 1
        Form_6.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
ElseIf d = 7 Then
    For I = 1 To c
        Form_7.Controls("C" & a).Value = True
        Form_7.Controls("L" & a).BackStyle = 1
        Form_7.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
ElseIf d = 8 Then
    For I = 1 To c
        Form_8.Controls("C" & a).Value = True
        Form_8.Controls("L" & a).BackStyle = 1
        Form_8.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
ElseIf d = 9 Then
    For I = 1 To c
        Form_9.Controls("C" & a).Value = True
        Form_9.Controls("L" & a).BackStyle = 1
        Form_9.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
ElseIf d = 10 Then
    For I = 1 To c
        Form_10.Controls("C" & a).Value = True
        Form_10.Controls("L" & a).BackStyle = 1
        Form_10.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
ElseIf d = 11 Then
    For I = 1 To c
        Form_11.Controls("C" & a).Value = True
        Form_11.Controls("L" & a).BackStyle = 1
        Form_11.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
ElseIf d = 12 Then
    For I = 1 To c
        Form_12.Controls("C" & a).Value = True
        Form_12.Controls("L" & a).BackStyle = 1
        Form_12.Controls("L" & a).BackColor = 5026082
        a = a + 1
    Next I
End If