Excel2007で顧客管理ソフトを作ってみよう　Step 4　ブックオープン時の処理

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

Step 4　ブックオープン時の処理

一人の顧客に対し、唯一のNo.を割り当てることにしました。
そこで、ブックオープン時、顧客No.のMAX値を取得することにしました。
又、入力セルをクリアします。

ブックコード

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

Option Explicit

Private Sub Workbook_Open()
    Dim srow As String

    '入力のクリア
    ExInputClear

    '顧客No.の最大値＋1
    Range("E3") = ExFindMax + 1
End Sub

標準モジュール　コード

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

Option Explicit

'顧客No.の最大値を取得
Public Function ExFindMax() As Long
    Dim tRange As Range

    ExFindMax = False
    '最大値を捜す
    Set tRange = Sheets("テーブル").Range("A2:A1048576")
    ExFindMax = Application.WorksheetFunction.Max(tRange)
End Function

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

シート画面

	E7に追加した顧客No.を表示します。完成時、E7はボタンの下になり見えなくなります。テーブルにも顧客No.を追加しています。

Topへ