Vba 从两个现在减去日期和时间

我正在尝试创建一个VBA代码，用于计算单击某个操作复选框后经过的时间

单击checkbox1，现在将捕获并显示在textbox1中

单击checkbox2，此时将显示在textbox3中，所用时间（textbox3中的值-textbox1中的值）需要以小时和分钟格式准确显示在textbox4中。在尝试和搜索不同的代码后，我无法做到这一点

我在VBA上断断续续地练习，所以我不太流利。有人能帮我处理这段代码吗

---

更改最后一行代码，如下所示

TextBox4.Value = Format(X3, "hh:mm:ss")                                  

---

不解决您的主要查询，这似乎是关于格式，但您应该在IF中使用多行块，并使用Else而不是另一个IF

Private Sub CheckBox1_Click()
X1 = Now
If CheckBox1.Value = True Then 
    TextBox1.Value = Now
     ' i dont think u need the following here but put here to show multi line if
     ' keepa  button to reset both text boxes
    TextBox2.Value = "00:00" 
elseif
     TextBox1.Value = Null
end if
 'keep in reset button click
'If CheckBox1.Value = False Then TextBox2.Value = Null
End Sub

---

REF

酷！成功了。非常感谢，迪内什。使用Now值可以每隔50分钟创建一个消息弹出窗口，并以“Ok”作为确认。i、 e使其根据复选框的条件创建弹出消息。如果可能的话，请告诉我。谢谢。谢谢tgkprog的简化形式：）为什么这是一个Elseif而不是一个Else？使用上述代码只能是真或假，是否可以创建条件复选框循环，假设checkbox1为真，然后从现在开始计算日期/时间（+50分钟n重复），我希望弹出一条消息“XYZ”，并确认ok，然后每50分钟重复一次，直到checkbox1为假。有人能帮忙吗？谢谢

TextBox4.Value = Format(X3, "hh:mm:ss")                                  

Private Sub CheckBox1_Click()
X1 = Now
If CheckBox1.Value = True Then 
    TextBox1.Value = Now
     ' i dont think u need the following here but put here to show multi line if
     ' keepa  button to reset both text boxes
    TextBox2.Value = "00:00" 
elseif
     TextBox1.Value = Null
end if
 'keep in reset button click
'If CheckBox1.Value = False Then TextBox2.Value = Null
End Sub