Excel97マクロのUserForm

質問

Excel97でUserFormを表示して
消すのにUnloadでは消えてくれません

UserForm.show
処理１
処理２
unload　UserForm

としているのですが、なぜかUserForm.showで
止まったまま制御が流れません

ちょっと教えていただけるとうれしいです

回答No.2

nishi6 · ベストアンサー

＞止まったまま制御が流れません。

Excel97ですよね。
Excel97ではUserForm.show でUserFormは常にモーダルで開いています。同じアプリの他に制御を移す場合は、何か応答する必要があります。(Excel2000で変わった？)
シートのメニューから色々なダイアログボックスを開くと、ＯＫやキャンセルを押してダイアログボックスを消さないと次の処理ができないのと同じです。

UserForm.show を Msgbox "メッセージ表示中",vbokonly

と変えてみると何が起きているか分かり易くないですか。入力待ちになってますよね。

色々な対応が可能でしょうが、UserForm_Activateで継続させる例です。(UserFormのコードウインドウ)

Private Sub UserForm_Activate()
　　'処理１例
　　Worksheets("Sheet1").Range("A1:A3") = "テスト設定１"
　　'処理２例
　　Worksheets("Sheet1").Range("A5:A8") = "テスト設定２"

　　MsgBox "（例）フォームを消しますよ"
　　Unload Me 'Me.Hide
　　MsgBox "（例）フォームを消しました"
End Sub

回答No.1

qhk

unload me
では駄目ですか？