在正在编辑的单元格上评估 ISEMPTY 时出错

Question

我有一个可重复的错误，但我不确定如何解释它。我正在根据几个不同单元格的内容制定一个文件名。如果其中一个单元格是空白的，我希望将其排除在外。这是代码：

ElseIf SaveChk = 1 Then
    Module1.UserPath = Environ("USERPROFILE")
    Module1.Path = UserPath & "\Desktop\"
    If IsEmpty(Range("Y59")) Then
        Module1.SaveName = Range("AE6").Value & " " & Range("E6").Value
    Else
        Module1.SaveName = Range("AE6").Value & " " & Range("E6").Value & " - " & Range("Y59").Value
    End If
    Application.EnableEvents = False
    Range("AE59") = Format(Now, "mm-dd-yyyy hh:mm:ss AM/PM")
    Application.EnableEvents = True
    Call HideSheets
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs _
        Filename:=Path & SaveName & ".xlsm", _
        FileFormat:=52
    Application.DisplayAlerts = True
    MsgBox "Filename = " & SaveName & vbNewLine & "File is saved to your desktop."

Else

    MsgBox "Please Completed Shaded Cells!", vbOK + vbExclamation, "SAVE CANCELLED"

End If

End If

Module1.SaveChk = 0     'Reset SaveChk variable
Module1.BttnChk = 0     'Reset BttnChk variable
Call UnhideSheets

Call Prot

Exit Sub

EH:
Call ErHa
Resume Next

End Sub

代码运行良好。但是，在编辑 Y59 时出现错误。我的意思是，如果用户在 Y59 中输入一个数字，然后单击我的自定义保存按钮而不是完成单元格编辑，则会显示上面显示的我的保存消息，但随后会引发错误。单步执行代码，错误发生在我的 Save Form sub 的 "Exit sub" 行（如上所示）。我正在尝试解释这个用例，想法？

Answer 1

正如我最后一条评论所指出的，问题涉及我用来捕获粘贴命令并将其转换为粘贴特殊值命令的 "Sheet Change" 工作表子项。

因此，该子项与用于验证我的工作表上的保存的各种子项冲突。

我将不得不重做潜艇以消除错误，或者让它过去，因为错误实际上并没有做任何事情。

在正在编辑的单元格上评估 ISEMPTY 时出错

Error when evaluating ISEMPTY on a cell being edited

excel

vba

is-empty