Excel2007で顧客管理ソフトを作ってみよう
Step 6 「新規」か「修正」か調べる
新規なら一覧に追加、修正なら上書きする為の、前準備です。Homeへ > Excelでアプリケーションソフト２ > 顧客管理ソフト
シートの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
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でアプリケーションソフト２ > 顧客管理ソフト
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved