Excel2007で顧客管理ソフトを作ってみよう

Step 9 入力変更フラッグ変数の追加

レコード移動の時、データ変更があれば「変更があります。」のメッセージを表示させる為、
変更があればフラッグを立てます。

Homeへ > Excelでアプリケーションソフト2 > 顧客管理ソフト



シートのVBAコード

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

'データ変更の有無
Public bDataChangeFlag As Boolean
'入力されたかチェック
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range(Target.Address), Range("C5:C9")) Is Nothing Then
        bDataChangeFlag = True
        Exit Sub
    End If
    If Not Intersect(Range(Target.Address), Range("F5:F9")) Is Nothing Then
        bDataChangeFlag = True
        Exit Sub
    End If
End Sub
下記のVBAコードに変更してください。

'入力のクリア
Public Sub ExInputClear()
    Sheets("入力").Range("C5:C9").ClearContents
    Sheets("入力").Range("F5:F9").ClearContents

    '顧客No.の最大値+1
    Sheets("入力").Range("E3") = ExFindMax + 1
    Sheets("入力").Range("C5").Activate

    bDataChangeFlag = False
End Sub
Homeへ > Excelでアプリケーションソフト2 > 顧客管理ソフト

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


Copyright (c) Excel-Excel ! All rights reserved