ユーザーフォームをキーで非表示にするには?

Question 46.3 Excel VBA Borad (掲示板)より Previous Next
こんばんわ。いつも参考にさせてもらっております。今回は答えが見つからなかったので質問させていただきます。

ユーザーフォームをキー(ESCキーなど)を押すことによって、ユーザーフォームを消すには、どのように記述すればよいのでしょうか?
宜しくお願いします。
Answer   2001.7.6 うな
消すとは、非表示にするのでしょうか?アンロードするなら、
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = vbKeyEscape Then Unload Me
End Sub
でOKです。

 

Excel VBA Macro