Excelで取引先表を作ってみよう

Step 4 変更フラッグの追加

メニューに戻る

スポンサーリンク






シートイベント

下記のコードを追加してください。

'データが変更された
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range(Target.Address), Range("D3:D13")) Is Nothing Then
        bDataChangeFlag = True
        Exit Sub
    End If
End Sub

ワークブックイベント

Private Sub Workbook_Open()
    bDataChangeFlag = False
End Sub

標準モジュール

Option Explicit

Public bDataChangeFlag As Boolean

スポンサーリンク






メニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved