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 在單元格中添加一天