Question

我的工作表中有一个日期选择器activex控件。在子程序之后，我希望打开日期选择器而不必依赖用户导航并单击该框以打开它

当我点击控件上的“查看代码”时，我看到它是这样的名字

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

End Sub

在另一个子

中调用/模拟这个keydown事件的适当方法是什么

示例：

Sub ProcessResults
    'do existing code
     DTPicker1.KeyDown 'doesn't work - 424 object required
     DTPicker1.Open 'doesn't work - 424 object required
     DTPicker1.Activate 'doesn't work - 424 object required
     DTPicker1_CallbackKeyDown 'doesn't work - sub or function not defined
End Sub

DTPicker1本身在工作表中运行良好 - 就像我说我只想保存几次点击并让它在另一个子结束时自动打开

Answer 1

关注DTPicker并做 SendKeys（“{F4}”）

Excel VBA - 在子内打开activex控件DTPicker1

1 个答案: