'' DTPicker、TextBox、CommandButtonを適当に UserForm に配置した状態'OptionExplicitPrivateSubUserForm_Initialize()'' 必要に応じてデフォルト表示を行う' ・入力画面の初期設定とか' ・DBから取込んだ日付とか' ・あくまで例なので仕様に応じた箇所で'TextBox1.Text="2019/01/27"EndSubPrivateSub...