「Excel VBA ユーザフォームを閉じさせない」の版間の差分
ナビゲーションに移動
検索に移動
(ページの作成:「==Excel VBA ユーザフォームを閉じさせない== Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If isRunning And CloseMode = vbF…」) |
|||
| 2行目: | 2行目: | ||
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) | Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) | ||
If isRunning And CloseMode = vbFormControlMenu Then | If isRunning And CloseMode = vbFormControlMenu Then | ||
| − | If MsgBox("処理中です。本当に終了しますか？", vbQuestion Or vbYesNo) | + | If MsgBox("処理中です。本当に終了しますか？", vbQuestion Or vbYesNo) <> vbYes Then |
Cancel = 1 | Cancel = 1 | ||
End If | End If | ||
2020年2月15日 (土) 08:02時点における版
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
© 2006 矢木浩人
