Question

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

我使用过此代码，但它没有给我答案。

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

两个单元之间的区别_VBA Excel Mac 2011

2 个答案: