vba - コードは最初からエラーなしで実行を停止します

Question

私はExcelで小さなアプリを実行していますが、ユーザーがユーザーフォームのボタンをクリックすると次のコードが表示されます

Private Sub SubmitNuevo_Click()
    Call FindNextEmptyRow 'after this nextEmptyCell has a Range object
    Dim currCell As Range
    Set currCell = nextEmptyCell.Cells(1, 1)
    Dim s() As String
    s = Split("macro,name,area,dept,model,range,prior,found", ",")
    currCell.Value = Date
    For i = 0 To UBound(s)
        currCell.Offset(0, dict.Item(s(i)) - 1).Value = Me.Controls(s(i) & "Nuevo").Text
    Next
End Sub

ブックを開いて実行すると、正常に動作し、シートの行にTextBoxの値が入力されますが、何度も実行しようとすると、実行されてからcurrCell.Value = Date、エラーなどなしで実行が停止します。ブックを再度開くと、最初に実行しようとすると正常に動作しますが、1回おきに失敗します。

ここで何が起こっているのか考えてみませんか？

Answer 1

ボタンをクリックするたびにワークブックを保存すると、問題が解決するように見えます。追加したばかり

ActiveWorkbook.Save

の前にEnd Sub。