Введите предыдущий рабочий день в активную ячейку

Question

Как мне ввести формулу для отображения предыдущего рабочего дня в активной ячейке с помощью VBA.Я нашел только код, который привел бы к появлению сегодняшней даты в окне сообщения.

Таким образом, мой код в настоящее время заканчивается на:

Selection.Copy
Sheets("Inventory").Select
ActiveSheet.Paste
ActiveCell.Offset(20,4).Select

Это вставляет некоторые данные, а затем удаляет активную ячейку именно там, где она мне нужна.На этом этапе я хочу ввести предыдущий рабочий день, скопировать его и вставить его во все непрерывные пустые строки над ним.

Answer 1

Может быть

ActiveCell.Value = WorksheetFunction.WorkDay(Date, -1)

Обратите внимание, что в целом следует избегать использования Select - см. Как избежать использования Select в Excel VBA для получения более подробной информации.