Excel VBA - открытое управление activex DTPicker1 в пределах подкатегория

Question

У меня есть элемент управления ActiveX для выбора даты на моем листе. после того, как подпрограмма я хотел бы, чтобы DatePicker открыть вместо того, чтобы полагаться на пользователе для навигации и нажмите на поле, чтобы открыть

, когда я нажимаю «просмотр кода» на пульте управления я вижу, что это имена, как этот

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}»)