Excel VBA用公式创建一个新列

Question

我有一个 excel 文件，其中有一列包含日期数据。我希望用户输入他们选择的日期，然后我想创建一个新列，列出两个日期之间的天数差异。我拥有的宏正在工作，但我有几个问题，我想让它变得更好。 MWE小数据文件的链接是here。

用户输入的日期是 9/30/2013，我存储在 H20 中

宏：

Sub Date_play()
    Dim x As Date
    Dim x2 As Date
    Dim y As Variant

    x = InputBox(Prompt:="Please enter the Folder Report Date. The following formats are acceptable: 4 1 2013 or April 1 2013 or 4/1/2013")

    x2 = Range("E2")

    y = DateDiff("D", x2, x)
    MsgBox y  

    'Used DateDiff above and it works but I don't know how to use it to fill a column or indeed a cell.

    Range("H20").FormulaR1C1 = x
    Range("H1").FormulaR1C1 = "Diff"
    Range("H2").Formula = "=DATEDIF(E2,$H$20,""D"")"
    Range("H2").AutoFill Destination:=Range("H2:H17")
    Range("H2:H17").Select

End Sub

1. 现在，我可以在不将用户输入日期存储在特定单元格中的情况下完成此操作吗？我更愿意在公式中使用变量“x”，但它对我不起作用。我必须将用户输入存储在 H20 中，然后使用 $H$20。

2. 函数Datedif和过程DateDiff有什么区别？我可以在我的宏中使用 DateDiff 过程，但我不知道如何使用它来填写我的列。一种方法比另一种更好吗？

3. 是否有更好的方法向现有工作表添加列，其中列包括一些涉及工作表上现有数据和一些用户输入的计算？接下来我要进行大量更复杂的计算。

谢谢

Answer 1

Q1. 现在，我是否可以在不将用户输入日期存储在特定单元格中的情况下完成此操作？我更愿意在公式中使用变量“x”，但它对我不起作用。我必须将用户输入存储在 H20 中，然后使用 $H$20。

试试这个（未测试）

替换

Range("H20").FormulaR1C1 = x
Range("H1").FormulaR1C1 = "Diff"
Range("H2").Formula = "=DATEDIF(E2,$H$20,""D"")"
Range("H2").AutoFill Destination:=Range("H2:H17")
Range("H2:H17").Select

通过

Range("H2:H17").Formula = "=DATEDIF(E2," & datevalue(x) & ",""D"")"

上面将一次性用公式填充所有单元格。您不需要Autofill to do the job。输入框也是接受日期的最差选择。你可能想看看THIS

Q2.函数Datedif和过程DateDiff有什么区别？我可以在我的宏中使用 DateDiff 过程，但我不知道如何使用它来填写我的列。一种方法比另一种更好吗？

DATEDIF 是工作表函数，DateDiff 是 VBA 函数。