Question

Excel 2013版，时间控制宏出现方法和数据成员未找到：代码如下，请高手指点 ​

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value

End Sub

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

ActiveCell = Calendar1.Value
Me.Calendar1.Visble = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 11 Then‘’第11列点击选择时间并输入
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub

Answer 1

ActiveCell = Calendar1.Value
Me.Calendar1.Visble = False
End Sub
没有过程头