【EXCEL2010】日付入力

ツール-その他のコントロール
コントロール追加 Microsoft Date and Time Picker Control 6.0(SP4)

Private Sub DTPicker1_Change()
Range("A2").Value=Format(DTPicker1.Value,"yyyymmdd")
End Sub