どこまでできるかどうか分かりませんがExcelで販売管理ソフトを作ってみます。
途中で挫折してしまう可能性がありますが、それぞれの段階でなんらかのお役にたてれば幸いです。
Excelで何らかの業務用ソフトを使う場合の問題は、誰でも簡単にフォームやデータを変更できてしまうことです。
又、コピーをいくつも作り、どれが実際に使っているファイルか分からなくなります。
DAOでAccessのデータベースを使い、データを別ファイルにすればいくらかこの問題も解消するのではないでしょうか。
・データファイルはExcelファイルと同じフォルダに存在することにします。
・データファイル名は、AccessのMDBファイルで「hanbai2009.mdb」にします。
Step1 ： データファイルの存在をチェックします。
■Module1（標準モジュールを追加してください）
Option Explicit
Public sExcelPath As String
'ファイルかフォルダの存在確認
Public Function ExFileExist(sFiName As String, nAttr As Integer) As String
If sFiName = "" Then
ExFileExist = ""
Exit Function
End If
On Error Resume Next
Err.Number = 0
ExFileExist = Dir(sFiName, nAttr)
If Err.Number <> 0 Then
ExFileExist = ""
End If
On Error GoTo 0
End Function
■ThisWorkbookイベント
Option Explicit
'ブックが開いた時のイベント
Private Sub Workbook_Open()
'このExcelファイルがあるフォルダー
sExcelPath = ActiveWorkbook.Path
'末にパスが付いているかどうか
If Right(sExcelPath, 1) <> "\" Then
'パスを付ける
sExcelPath = sExcelPath + "\"
End If
'データファイルの存在確認
If ExFileExist(sExcelPath + "hanbai2009.mdb", vbNormal) = "" Then
MsgBox "ここに、MDBファイルの新規作成処理を記入します。"
End If
End Sub