Excel VBAフォームの遅れ

Question

私は、ユーザーが特定のシートに行くときにユーザーフォームを開くExcelアプリケーションを作成しています。ユーザーがこのシートをクリックすると、フォームが表示されます。しかし、私はシートに何が入っているのかをユーザーが見られるようにしたくありません。私はちょうど遅れなしに開くか、またはそのシートに既にロードされていることを望みます。これを行う方法はありますか？

ありがとうございました。

Answer 1

以下は、私があなたの求めるものに近づいています。

デフォルト名がUserForm1のフォームを作成しました。以下のコードをThisWorkbookに含めました。

ユーザーが "Sheet2"タブをクリックすると、コードはUserForm1を読み込み、最大化して表示します。フォームが終了すると、コードは "Sheet3"に切り替わります。

フォームが表示される前に「Sheet2」が数秒間表示されるため、これは仕様と正確に一致しません。私はフォームをプリロードしようとしました。 SheetActivateイベントルーチンを終了するまで、私はSheetDeactivateイベントルーチンで画面の更新をオフに切り替えて、再度オンにしないようにしました。しかし私が試したことは、その短いフラッシュを防ぎません。

このコードを試して十分だと判断してください。

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 

Answer 2

あなたが最初に行くことによって、ワークシートのすべてのセルを非表示にすることができます：

Worksheets("Sheet3").Cells.EntireRow.Hidden = True 
Worksheets("Sheet3").Cells.EntireColumn.Hidden = True 
MyUserForm.Show 'You can show modally here if you like 

あなたは再びユーザーにコンテンツを表示する準備ができたら、あなたが使用することができます。

MyUserForm.Hide 
Worksheets("Sheet3").Cells.EntireRow.Hidden = False 
Worksheets("Sheet3").Cells.EntireColumn.Hidden = False 

ここでの利点は、処理中に行と列の高さと幅が失われないことです。元の形式に正確に復元されます。

次のようになります。