Excel VBA - 单击工作簿以卸载用户表单

Question

我有一个用户表单，它填充了Excel工作表，但允许显示工作簿底部的选项卡。当用户在打开用户窗体时单击其中一个选项卡时，什么都不会发生。有没有一种方法可以在用户点击某些不属于表单的部分时卸载用户表单？

感谢

Answer 1

这里有一种方法，虽然我有点怀疑它会如何在实际工作中。首先将Userform的ShowModal属性设置为False。这将允许用户单击Userform外部并实际选择一些内容。

接着，把这个代码的ThisWorkbook模块

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 

    On Error Resume Next 
     Unload UserForm1 

End Sub 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 

    On Error Resume Next 
     Unload UserForm1 

End Sub 

当用户点击任一的片材片或在活动片的细胞中，它会卸载窗体。用户可能会点击一百个其他地方不会触发这些事件，但它可能适用于您的情况。