Question

当活动单元格不在适当的工作表（索引号2）中时，我正在尝试卸载用户表单（“ DataEntry”）。我在消息框后收到“ Type Mismatch '13”（类型不匹配'13），但我不知道为什么，有人可以帮忙吗？

此子目录位于模块中，而不是用户窗体中。我尝试在用户窗体中设置一个子程序并调用该子程序（单行子程序“ Unload Me”，但得到的结果相同。

Sub unloadform()

    If ActiveSheet.Index <> 2 Then
        MsgBox "The schedule must be selected to enter data"
        Unload DataEntry
        Exit Sub
    End If

End Sub

更新：我偶然想到将这段代码放在用户窗体的initialize子目录中（如果未选择正确的工作表，我不希望用户窗体加载）。现在我收到运行时错误'91'

试图用Unload DataEntry（用户窗体的名称）替换Unload Me，（结果相同），然后用Unload VBA.Userforms（“ DataEntry”）替换，这会引发运行时'13'错误。

Private Sub UserForm_Initialize()

If ActiveWorkbook.ActiveSheet.Index <> 2 Then
    MsgBox "Schedule must be selected to enter data"
    Unload Me
Else:
     'other code if correct sheet is selected
End If
End Sub

类型不匹配卸载用户表单

0 个答案: