1

application.inputbox を使用して日付をセルに保存するマクロを Excel に用意します。日付を入力すると、適切な形式の日付がセルに表示され、入力ボックスが再び開きます。この奇妙なループに陥っているようです。何度日付を入力しても、また聞かれます。

コードのこのセクションは次のとおりです。

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
4

1 に答える 1

0

あなたpassing a parameterはvalue returned. functionその場合、 a を持っていても役に立ちませんSubroutine。

Worksheet changedまたはCell changedイベントでこの関数を呼び出していますか? Application.EnableEvents = False上記のイベントで関数をトリガーする場合に使用してください。イベントをオフにする必要があります。そうしないと、無限ループに引きずり込まれて繰り返されます。

そして、change eventターンイベントで再びオンになります。

参考文献:

于 2013-02-01T18:59:00.720 に答える