Excel VBA表格滞后

Question

我正在创建一个 excel 应用程序，当用户转到特定工作表时，它将打开一个用户窗体。当用户单击此工作表时，将出现该表单。但是，我不希望用户能够看到工作表中的内容。我只是希望它在没有滞后的情况下打开或已经加载到该表中。有没有办法做到这一点？

谢谢。

Answer 1

以下内容尽可能接近您所寻求的。

我创建了一个默认名称为 UserForm1 的表单.我已在 ThisWorkbook 中包含以下代码.

如果用户单击“Sheet2”选项卡，代码将加载 UserForm1 , 最大化它并显示它。退出表单时，代码切换到“Sheet3”。

这与您的规范不完全匹配，因为您可以在表单出现之前的几分之一秒内看到“Sheet2”。我试过预加载表格。我已尝试在 SheetDeactivate 事件例程中关闭屏幕更新，并且在退出 SheetActivate 事件例程之前不会再次打开它。但是我尝试过的任何事情都无法阻止那短暂的闪光。

试试这个代码并确定它足够好。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

  If Sh.Name = "Sheet2" Then
    Load UserForm1
    With UserForm1
      .Width = Application.Width
      .Height = Application.Height
      .Show
    End With
    Application.EnableEvents = False    ' Surpress SheetActivate event
    Worksheets("Sheet3").Activate
    Application.EnableEvents = True
  End If

End Sub