Excel VBA ユーザフォームを閉じさせない
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If isRunning And CloseMode = vbFormControlMenu Then If MsgBox("処理中です。本当に終了しますか?", vbQuestion Or vbYesNo) <> vbYes Then Cancel = 1 End If End If End Sub
指定されたパートは存在しません。
YAGI Hiroto (piroto@a-net.email.ne.jp)
twitter http://twitter.com/pppiroto
Copyright© 矢木 浩人 All Rights Reserved.