Как вывести рабочие дни списком в Excel?

Question

[Lion295]

Надо чтобы в ячейку а1 руками указали начальную дату. В ячейку b1 конечную. А дальше нужна магия которая в столбец c выведет список всех рабочих дней в этом диапазоне

Answer 1

[Антон Федорян]

Sub PrintWorkDays()
    Dim Counter As Long
    
    Counter = 1
    For i = Range("A1") To Range("B1")
        Select Case Weekday(i)
            Case 2 To 6
                Cells(Counter, 3).Value = i
                Counter = Counter + 1
            Case Else
        End Select
    Next i
End Sub

Comments

[x67]

John Smith: Пусть фрилансера нанимает, тот ему все сделает)

[h8nor]

Есть производственный календарь для пятидневной и шестидневной рабочей недели ;)
С отпусками - так вообще дорого обойдётся :D

Answer 2

[x67]

Демоверсия, которая включает в себя не более 37 дней. За полной версией обращаться ко мне

Comments

[shushpanio]

Или протяните формулы ниже ;-)

[x67]

shushpanio: хей, изменение кода предоставляемого ПО строго запрещено!)

[shushpanio]

x67: а никаких изменений нет_)))
Только дублирование кода в вашем же документе_))))