请问老师，这个语句生成的是公式，怎样能直接生成日期

wyzdddl

   Cells(R + 2, 2).FormulaR1C1 = "=(R" & R1 & "C2 + 1）"
请问各位老师，这个生成的是公式，怎样能直接生成日期


Sub ()

    Dim R As Integer
    R = Selection.Row - 1
    R1 = Cells(R, 2).End(xlUp).Row
   
   Cells(R + 2, 2).FormulaR1C1 = "=(R" & R1 & "C2 + 1）"          '生成日期
   
   Cells(R + 2, 8).Select
      
End Sub

chxw68

cells(r+2,2)=cells(r1,2)+1

扑腾

Cells(R + 2, 2)=format(cells(R,15)+1,"yyyy-m-d")，不知道你的实际应用环境，所以也不知道结果对不对

wyzdddl

chxw68 发表于 2024-12-15 10:55
cells(r+2,2)=cells(r1,2)+1

问题解决，谢谢老师

wyzdddl

扑腾 发表于 2024-12-15 11:03
Cells(R + 2, 2)=format(cells(R,15)+1,"yyyy-m-d")，不知道你的实际应用环境，所以也不知道结果对不对

老师这个生成的日期，不对
改成Cells(R + 2, 2)=format(cells(R1,2)+1,"yyyy-m-d")生成的日期就对了
谢谢老师