Question

我正在运行一个没有返回正确日期的日期值函数。代码返回所有相同的日期，它应该返回以一天为单位递增的日期。例如，5月30日星期五，5月29日星期四，5月27日星期三，5月27日星期二，....

ActiveCell.FormulaR1C1 = "=DATEVALUE(R[-1]C)"
Range("B90").Select
Selection.AutoFill Destination:=Range("B90:U90"), Type:=xlFillDefault

当我进入Visual Basic编辑代码的任何部分并保存模块时，我回到我运行代码的Excel工作表，看起来工作表更新并正确执行代码 - 所有日期是正确的。这只发生在我保存Visual Basic时。当我尝试使用保存的模块重新运行代码时，它最初不会起作用。

我曾多次尝试重新启动Excel和我的计算机，但无济于事。

这可能是Excel的一个问题，因为代码应该正常执行，但不能完全确定如何继续。

非常感谢任何建议和帮助！

Answer 1

也许：

Sub qwerty()
    Range("A90").Value = DateSerial(2014, 6, 2)
    Range("B90").Value = Range("A90") - 1
    Range("B90").AutoFill Destination:=Range("B90:U90"), Type:=xlFillDefault
End Sub

日期值代码未正常运行

1 个答案: