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

Step 6 「新規」か「修正」か調べる

新規なら一覧に追加、修正なら上書きする為の、前準備です。


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

シートのVBAコード

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

'顧客No.の登録チェック
Private Function ExFindNo(nno As Long, ByRef sc As String) As Boolean
    Dim tRange As Range
            
    sc = ""
    ExFindNo = False
    Set tRange = Sheets("一覧").UsedRange.Columns(1).Find(What:=nno, LookIn:=xlValues, LookAt:=xlWhole)
    If Not tRange Is Nothing Then
        '登録あり
        sc = tRange.Address
        ExFindNo = True
    End If
End Function

'登録
Private Sub CommandButton5_Click()
    Dim scell As String
    
    '入力チェック
    If ExInputCheck = False Then
        Exit Sub
    End If
    '新規か修正かチェック
    '修正の場合、登録されているセル位置を戻す
    If ExFindNo(Range("E3"), scell) Then
    End If
End Sub



シート画面

「登録」ボタンをクリックすると、顧客IDと会社名の入力チェックしOKなら、新規か修正か調査します。
データ登録画面


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

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


Copyright (c) Excel-Excel ! All rights reserved