Question

运行时错误424要求对象

Private Sub Calendar2_Click()
ActiveCell = Calendar2.Value
Me.Calendar2.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Calendar2.Left = Target.Left + Target.Width
Calendar2.Top = Target.Top + Target.Height
Calendar2.Value = Date
Calendar2.Visible = True
ElseIf Target.Column = 2 Then
Calendar2.Left = Target.Left + Target.Width
Calendar2.Top = Target.Top + Target.Height
Calendar2.Value = Date
Calendar2.Visible = True
ElseIf Target.Column = 5 Then
Calendar2.Left = Target.Left + Target.Width
Calendar2.Top = Target.Top + Target.Height
Calendar2.Value = Date
Calendar2.Visible = True
Else
Calendar2.Visible = False
End If
End Sub
这是代码，我的Excel里面有好几个表格，为什么在第一个表格就行，别的表格就提示运行时错误424要求对象，这是为什么啊，，大神们指教指教

Answer 1

表格的第一行是标头.这个在编码时需要特别注意哦 ~

追问

什么意思，可以帮忙解决一下么

追答

您的问题出在定义表区域问题.
把这一块改好即可.
您的代码中没有引用具体工作簿或者Sheet的东西.或者您自己有自己的逻辑.请把这里梳理好就行.

追问

我这一个表格里面 有好几个表格，可是为什么在第一个表格里面就没事，换别的就会报错呢，能不能帮忙吧程序改一下

追答

我这一个表格里面 有好几个表格，可是为什么在第一个表格里面就没事，换别的就会报错呢，能不能帮忙吧程序改一下

一个表格指的是SHEET吧.把SHEET加载改好啊...
你这个是VB么?是的话我给你一个模板代码

追问

对啊，，一共好几个sheet，第一个里面运行上面那个代码就没有问题，后面的再用这段代码就会报错，用的vba