Как автоматически вводить Будни Использование VBA в Microsoft Excel 2010
В этой статье вы узнаете, как автоматически вводить дни недели, то есть с понедельника по пятницу, используя код VBA в любом столбце.
Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic
Нажмите «Вставить», а затем «Модуль»
Это создаст новый модуль.
Введите следующий код в модуль
Sub WeekendOut ()
Dim Start As Date, Off As Date
Dim y%, i #
Start = InputBox («Дата начала:»)
Выкл. = InputBox («Дата окончания:»)
===
For i = Start To Off
y = y + 1
Если будний день (i, 2) <6, то
Ячейки (y, 2) = Format (i, «мм-дд-гг»)
Ячейки (y, 1) = Format (i, «dddd»)
ElseIf Weekday (i, 2) = 6 Then
Остальное
y = y — 1
Конец Если
Далее i
End Sub
===
Нажмите сочетание клавиш ALT + F8, чтобы открыть окно макроса, а затем выберите макрос.
Кроме того, вы можете нажать F5, чтобы запустить код на экране VBA.
После выполнения макроса мы получим следующее поле ввода. Нам необходимо ввести дату начала в формате ММ / ДД / ГГГГ
Затем код попросит ввести дату окончания
Следовательно, мы получим день недели в столбце A, а следующая ячейка будет хранить дату.
Таким образом, вы можете легко войти в будние дни, не испытывая никакой ручной боли.