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

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

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

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

メニューに戻る

スポンサーリンク



実行画面

■データブック

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

スポンサーリンク



実行コード

■ 標準モジュール
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

スポンサーリンク





メニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved