동적으로 DTPicker 컨트롤 만들기

Question

누군가가 VBA에서 날짜 선택 컨트롤을 동적으로 만드는 방법을 안내해 주시겠습니까? 여기 내가하려는 일이 있습니다. 최종 사용자가 볼 수 있는지 여부에 따라 VBA userform에 TextBox 및 ComboBox 컨트롤을 동적으로 추가하는 매크로가 있습니다. 가시성 (및 기타 모든 제어 속성 - 너비, 높이 등)은 최종 사용자가 '예'또는 '아니오'값을 '우수'의 '마스터'시트에 제공된 컨트롤 이름과 비교하여 업데이트함으로써 제어됩니다.

이 내가 텍스트 상자를 위해 한 일이며, 콤보는 내가 텍스트 상자와 콤보 상자를 추가하고있는 방법과 같은 동적 날짜 선택기를 추가하려면 어떻게

`sub test() 
---- some code 

Dim txtTextBox As MSForms.TextBox 
Dim cmbComboBox As MSForms.ComboBox 

If 'some cell in excel ‘Master’ worksheet' = "ComboBox" Then 
Set cmbComboBox = UserForm.Controls.Add("Forms.ComboBox.1", 'some cell in excel ‘Master’ worksheet') 
cmbComboBox.top = 'some cell in excel ‘Master’ worksheet' 
cmbComboBox.left = 'some cell in excel ‘Master’ worksheet' 
cmbComboBox.Width = 'some cell in excel ‘Master’ worksheet' 
cmbComboBox.height = 'cell in excel ‘Master’ worksheet' 

    ----rest of my code 
    end sub` 

내 질문은, 제어합니다. Controls.Add 올바른 방법을 사용하여 그것을 할? 그렇다면 어떻게해야합니까? 누군가가 나를 도와 줄 수 있어요! 제 질문이 의미가 되길 바랍니다.

Answer 1

이 시도 :

Dim dtDatePicker As Object 
Set dtDatePicker = UserForm.Controls.Add("MSComCtl2.DTPicker", "dtp", True) 
' Do whatever you want with dtDatePicker control here!