Excel2007で顧客管理ソフトを作ってみよう　Step 6　「新規」か「修正」か調べる

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

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

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

シートコード

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

'顧客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なら、新規か修正か調査します。

Topへ