エクセルのユーザーフォームについて

「保存しないで終了」、「保存して終了」を書きました。
確認のメッセージ等を出せば使い分けられます。

'保存しないで終了
Private Sub CommandButton1_Click()
ThisWorkbook.Saved = True
Application.Quit
End Sub

'保存して終了
Private Sub CommandButton2_Click()
ThisWorkbook.Save
Application.Quit
End Sub

投稿日時 - 2001-06-29 16:06:41