兩個單元格之間的差異_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