Sub 前日の日付を計算してセルに入力() Dim 検索日 As Date Dim 前日 As Date Dim 後日 As Date Dim フォーマット済み日付 As String Dim 休みの日 As Range ' セルA1に入力された日付を取得(ここではA1を例示しています) 検索日 = Range("A1").Value ' 休みの日をシート2のA列から取得 Set 休みの日 = Sheets("Sheet2").Range("A:A") ' 検索日の前日を計算 前日 = WorksheetFunction.WorkDay(検索日, -1, 休みの日) ' 検索日の後60日を計算…