Excel VBA - Do While Loop - 单元格中的日期

Question

我想增加结算日期（分配给单元格 N13）直到网络日（分配给单元格 P11）达到 3。

网络天数计算两个日期之间的工作日数，不包括节假日。 但是，我为其添加了一系列假期。

Sub Settlement_Date()

Do While Cells(16, 12) < 3
    
    Cells(14,11)
    
Loop

Answer 1

要在循环中增加Cells(14,11) ，将该行更改为

Cells(14,11) = Cells(14,11) + 1

Answer 2

我自己设法做到了，但在我在这里找到的一些帖子中得到了片段

Sub Settlement_Date()

Do While ActiveCell.Offset(0, 2).Value < 3 

    ActiveCell.Value = ActiveCell.Value + 1
    
Loop

End Sub

向右移动一个单元格使用 VBA 在单元格中添加一天