两个单元格之间的差异_VBA Excel Mac 2011

Question

我想减去天数（TodayDate-ViolationDate）并将答案保存在Difference列中。 考虑到用户只会输入违规日期。 用户按下命令按钮后，它将显示答案。

我已经使用了这段代码，但没有给我答案。

Private Sub CommandButton1_Click()


Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = TextBox1.Text

Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Date


Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("C" & Rows.Count).End(xlUp).Offset(0, -1).Value - Range("C" & Rows.Count).End(xlUp).Offset(0,-2).Value

End Sub

请帮忙。 非常感谢你。

Answer 1

您可以使用如下形式：

Private Sub CommandButton1_Click()

    Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(, 3).Value = Array(TextBox1.Text, Date, Date - CDate(TextBox1.Text))

End Sub

Answer 2

我使用了这段代码，效果很好

Private Sub CommandButton1_Click()
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = TextBox1.Text
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Date
Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Value = (Range("B" & Rows.Count).End(xlUp).Offset(0, 0).Value - Range("A" & Rows.Count).End(xlUp).Offset(0, 0).Value)
End Sub