Question

我希望有人可以帮忙解决这个问题，我有一个excel电子表格，我的单元格A1中显示了以下时间。

Cell A1

00:00

第一组00是我的小时，第二组00是我的分钟。

在这个单元格旁边，我有两组Active X控件，它们是向上/向下箭头

Cell A1   ^ ^
          V V

当用户点击箭头我希望时间增加时，如果他们点击第一组箭头，这将把时间增加到01,02,03等，因为我的小时一直到23小时然后代表午夜12点，回到00小时。

如果用户单击向下箭头，则应该减去数字，即如果时间是03:00并且用户单击向下箭头，则应该按下，02, 01, 00 hours.

下一组活动x控制箭头应控制分钟，如下所示：

01-59当分钟数达到60时，这应该将小时数增加1。

这样的事情：

22:59  ^ ^  <--- If user hits the up arrow for the minutes this then shows:

23:00

有人可以告诉我如何创建一个可以满足我需要的vba代码。非常感谢

Answer 1

这样做非常简单

用于向上箭头

Hours -> range("A1").value = DateAdd("h", 1, range("A1").value)
Minutes -> range("A1").value = DateAdd("m", 1, range("A1").value)
Seconds -> range("A1").value = DateAdd("s", 1, range("A1").value)

向下箭头

Hours -> range("A1").value = DateAdd("h", -1, range("A1").value)
Minutes -> range("A1").value = DateAdd("m", -1, range("A1").value)
Seconds  -> ("A1").value = DateAdd("s", -1, range("A1").value)

excel增量单元格包含使用活动x控件的小时和分钟格式的时间

1 个答案: