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 

當用戶點擊任一的片材片或在活動片的細胞中，它會卸載窗體。用戶可能會點擊一百個其他地方不會觸發這些事件，但它可能適用於您的情況。