excel - 将日期添加到日期，除非星期五 vba

Question

我正在使用 Excel 电子表格来填充 6 天轮换日历(第 1-6 天)。如果下雪天，我们将按照下雪天的时间表恢复下一个上课日。我正在尝试编写 vba 为所有突出显示的(我手动突出显示)日期添加 1 天，除非它是星期五，然后添加 3。

这是我到目前为止的代码(我也尝试了许多其他变体)。它似乎跳过了我的 If 语句到 Else 语句。 (意味着它将按预期增加 1 天，但不会增加 3 天到星期五)。您的帮助将不胜感激。谢谢，金

Sub Add_Day_To_Range()

Dim c As Range
Dim Wkday As Integer
Wkday = Weekday(#1/6/2020#, vbMonday)

    For Each c In Selection.Cells
      If Wkday = 5 Then
      c.Value = c.Value + 3
      Else: c.Value = c.Value + 1
      End If
    Next c

End Sub

Answer 1

将工作日添加到循环中应该可以解决它。根据单元格中的日期格式，可能不太有效，但应该很接近

Sub Add_Day_To_Range()

Dim c As Range
Dim Wkday As Integer

For Each c In Selection.Cells
  Wkday = Weekday(c.Value, vbMonday)
  If Wkday = 5 Then
  c.Value = c.Value + 3
  Else: c.Value = c.Value + 1
  End If
Next c
End Sub