Sub 変更日記入() 'B3セルに日付を記入 Range("A4") = Date 'A3セルに時間を記入 Range("B4") = Format(Time, "hh時mm分") End Sub ※日付と時刻から営業日を算出 =IF(OR(A4="",B4=""),"",IF(B4>VALUE("16:00"),WORKDAY.INTL(A4,7,1,E4:E8),WORKDAY.INTL(A4,6…