Dim start_date, end_date, yyyymmdd yyyymmdd = Format(Now, "yyyy/mm/dd") start_date = CDate(yyyymmdd + " " + UserForm_RetryInfo.TextBox_Start) end_date = CDate(yyyymmdd + " " + UserForm_RetryInfo.TextBox_End) ネタ元 daitaideit.com