カード型データベースを作ってみよう

Step 6　閉じる時にデータブックを保存する

データ入力や変更があった場合に、ブックを閉じる直前にデータブックを保存します。

変更があったかどうかは、bChangeFlag という変数に保存するようにします。
変更があれば bChangeFlag=True にし、閉じる直前に Close SaveChanges:=True で保存します。

Homeに戻る > Excelでアプリケーションソフト３ > カード型データベースソフト

実行画面

■データブック

データブックには下画像のように保存されていきます。
データシート

実行VBAコード

■ 標準モジュール

Option Explicit

'変更の有無
Public bChangeFlag As Boolean

■ WorkBook
Option Explicit

'ブックが閉じる前に発生するイベント
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If bChangeFlag Then
        '保存して閉じる
        Workbooks("Data.xls").Close SaveChanges:=True
    Else
        '保存しないで閉じる
        Workbooks("Data.xls").Close SaveChanges:=False
    End If
End Sub

'ブックが開いたときに発生するイベント
Private Sub Workbook_Open()
    '変更の有無
    bChangeFlag = False
End Sub

Homeに戻る > Excelでアプリケーションソフト３ > カード型データベースソフト

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

カード型データベースを作ってみよう

Step 6 閉じる時にデータブックを保存する

実行画面

実行VBAコード

Step 6　閉じる時にデータブックを保存する