|
こんばんわ。
>マクロでuserformを全画面表示しておいたまま、裏でエクセルマクロを実行
エクセルの画面が見えたら困るってことなんかな?
全画面表示やのうて、フォームを表示するときにエクセルの画面を隠すってのではあきまへんか?
↓こんなの
'標準モジュール
Sub test()
Dim OrgState As Integer
OrgState = Application.WindowState
Application.WindowState = xlMinimized
Load UserForm1
UserForm1.Show
MsgBox "処理終了"
Application.WindowState = OrgState
Unload UserForm1
Set UserForm1 = Nothing
End Sub
Sub 長い処理()
Dim i As Long
Dim j As Long
For i = 1 To 10000
j = j * 1
DoEvents
Next
End Sub
'フォームモジュール
Private Sub UserForm_Activate()
長い処理
Me.Hide
End Sub
Visibleプロパティを操作してもええねんけど、エラーで終了したら後が困るんで、
WindowStateプロパティ使ってみました。
はずしてたらかんにんな。
ほな。
|
|