Sub 開始日を調査取得する() 開始日 = WorksheetFunction.Min(Range("A2:A4")) 開始日_日付処理 = Format(開始日, "yyyy/mm/dd") MsgBox 開始日_日付処理 End Sub