現在日時と営業日の計算

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,1,E4:E8)))