Question

有点卡住VBA，我试图让我的用户形式“ParcelDataEntry”打开，当我从我的首页上选择一张表格时，我在我的首页上有这样的选项，当我越过这个障碍时。

所有54个工作表都包含以下代码：

Private Sub Worksheet_Open()
    ParcelDataEntry.Show
End Sub

Answer 1

我认为没有Worksheet_Open事件。而是使用Workbook_SheetActivate事件。您应该将此代码放在ThisWorkbook代码模块中。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Call OpenDataEntryForm
End Sub

将您的userform视为对象，并相应地声明和实例化它。

Public Sub OpenDataEntryForm()

Dim dataEntryForm As ParcelDataEntry

' Create an instance of the form
Set dataEntryForm = New ParcelDataEntry
' Show the form
dataEntryForm.Show
' Do something here

' If the form was opened as Modal, then the code here will only run
' once the form has been hidden/closed
' Now destroy the object
Set dataEntryForm = Nothing

End Sub

用户窗体打开时打开

1 个答案: