如果要在日期变更时,立即填入到D2,就用这段代码:
Private Sub ComboBox1_Change()
Range("D2").NumberFormatLocal = "mm/dd/yyyy"
Range("D2") = ComboBox1.Value
End Sub
如果要在点击按钮2时,才填入到D2,就用这段代码:
Private Sub CommandButton2_Click()
Range("D2").NumberFormatLocal = "mm/dd/yyyy"
Range("D2") = ComboBox1.Value
End Sub