excel - Excel VBA - 单击工作簿以卸载用户窗体

Question

我有一个填充 excel 工作表的用户表单，但允许显示工作簿底部的选项卡。当用户在打开用户窗体时单击其中一个选项卡时，没有任何反应。每当用户单击不属于表单的内容时，是否有办法卸载用户表单？

谢谢

Answer 1

这是一种方法，尽管我对它在实践中的效果有点怀疑。首先将 Userform 的 ShowModal 属性设置为 False。这将允许用户在用户窗体之外单击并实际选择某些内容。

接下来，将此代码放入 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

当用户单击活动工作表中的工作表选项卡或单元格时，它将卸载用户窗体。用户可以单击的其他一百个位置可能不会触发这些事件，但它可能适用于您的情况。