Question

在Excel中使用application.inputbox将日期保存在单元格中。输入日期后，正确格式化的日期将显示在单元格中，然后输入框将再次打开。它似乎停留在这个奇怪的循环中。无论我多少次输入它再次询问的日期。

以下是这部分代码：

Function freshSTART()

redBOX.Cells(1).Value = Application.InputBox(prompt:="Enter todays date: ", Title:="TODAY'S DATE", Type:=1)
redBOX.Cells(2).Value = Application.InputBox(prompt:="Enter customer's name: ", Title:="CUSTOMER NAME", Type:=2)
redBOX.Cells(3).Value = Application.InputBox(prompt:="Enter travel out date: ", Title:="TRAVEL OUT DATE", Type:=1)
redBOX.Cells(4).Value = Application.InputBox(prompt:="Enter travel back date: ", Title:="TRAVEL BACK DATE", Type:=1)
redBOX.Cells(5).Value = Application.InputBox(prompt:="Enter number of technicians: ", Title:="TECHNICIANS", Type:=1)
redBOX.Cells(6).Value = Application.InputBox(prompt:="Enter number of engineers: ", Title:="ENGINEERS", Type:=1)
redBOX.Cells(7).Value = Application.InputBox(prompt:="Enter location: ", Title:="LOCATION", Type:=2)

End Function

Answer 1

你既不是passing a parameter也不是value returned。在这种情况下，拥有function但Subroutine

是没用的

您是在Worksheet changed还是Cell changed事件中调用此功能？在触发上述事件的功能时，请使用Application.EnableEvents = False。你必须关闭事件，否则它会不断重复拖入无限循环。

然后重新开始change event转弯事件。

参考文献：

输入后Excel输入框重新打开

1 个答案: