请问excel2007vba语句错误，怎么回事

Question

Private Sub Calendar1_Click()
ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd")
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "C1" Then
MyFilter.Show运行至该句是提示运行错误424，要求对象，
End If
If Target.Column = 1 Then

if Target.Interior.ColorIndex = 35 Then

Rows(Target.Row).Interior.ColorIndex = xlNone
Else
Rows(Target.Row).Interior.ColorIndex = 35
End If
End If

If Target.Column = 5 Then
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Date
Calendar1.Visible = True
ElseIf Target.Column = 12 Then
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Date
Calendar1.Visible = True
ElseIf Target.Column = 13 Then
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Date
Calendar1.Visible = True
ElseIf Target.Column = 24 Then
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Date
Calendar1.Visible = True
ElseIf Target.Column = 25 Then
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Date
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub
运行到第7句时错误，怎样改

Answer 1

你的后面缺少 END IF 语句
要么你把 j = i + 3 与前面语句写在一行 就可以把END IF省掉了
另外注意,前面的语句保证i的值在有效范围内(不能为0)