excel 如何通过DateAdd添加文本框中的日期和时间？

uxhixvfz 于 2023-02-20 发布在其他

关注(0)|答案(1)|浏览(136)

我有一个带有两个TextBox的用户表单，一个TextBox（称为TextBox1）用于输入天数，另一个TextBox（称为TextBox2）用于输入时间。
我想将日期和时间添加到01/01/2022 00:00:00的起点。
例如：

TextBox1 = "5"
TextBox2 = "10:00:00"

我想在固定的起始日（01/01/2022 00:00:00）上增加一天（值为TextBox1）。
我使用以下公式：

Range("A1").Value = DateAdd("d", Me.TextBox1.Value, "01/01/2022 00:00:00" + Me.TextBox2.Value)

我期待的是06/01/2022 10:00:00。
它给我一个类型不匹配错误。

1条答案

使用 * 日期时间 *，而不是文本：

Range("A1").Value = DateAdd("d", Val(Me.TextBox1.Value), DateSerial(2022, 1, 1) + TimeValue(Me.TextBox2.Value))