菜鸟请教日期如何仅累加一次

debbie11052000

菜鸟一枚，请教前辈。
数据如图，代码见下
要求：把列“预计时间”往后推38天
问题：每运行一次，日期加38天，循环往复，请教怎样只加一次38天，而不是无限次累加？

    Dim i&
   
    i = 3
    Do While Cells(i, 3) <> ""
   
        If IsDate(Cells(i, 5)) = True Then
            Cells(i, 5) = DateAdd("d", 38, Cells(i, 5))
        End If
   
    i = i + 1
    Loop
End Sub

谢谢啦

sunan0317

问题是什么意思，麻烦再具体点。
这个do while循环，没看出来会无限次循环累加啊。

debbie11052000

sunan0317 发表于 2018-1-30 21:46
问题是什么意思，麻烦再具体点。
这个do while循环，没看出来会无限次循环累加啊。

点一次“运行”，日期会加38天，再点一次“运行”，又会再加38天，我的希望，不管点击多少次“运行”，只会把现在的日期加38天，就不再循环累加了，也就是38天只加一次

sunan0317

debbie11052000 发表于 2018-1-31 15:02
点一次“运行”，日期会加38天，再点一次“运行”，又会再加38天，我的希望，不管点击多少次“运行”，只 ...

想到一个可行的办法。
1.在工作表里面找一个单元格，放置“运行次数”的计数，初始值是0
2.在vba代码里加代码，如果“运行次数”是0（运行过一次后，修改工作表的“运行次数”为+1），则运行日期加38天，否则不运行。

我没想到什么其他特别好的办法。

debbie11052000

sunan0317 发表于 2018-1-31 17:07
想到一个可行的办法。
1.在工作表里面找一个单元格，放置“运行次数”的计数，初始值是0
2.在vba代码里 ...

谢谢指教哈

gta

可以考虑设置个按钮，先判断按钮的caption，如果运行一次后，给按钮的caption赋值:已经运行过一次，下次运行判断，存在此值，则退出程序

svip1529952847

楼上几位思路写出来了，就看你能敲出代码吗？