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

Step 8 入力欄のクリア

登録後、入力セルをクリアし、顧客No.に(最大値+1)をセットします。

Homeへ > アプリケーションソフト2 > 顧客管理ソフト > Step8 入力欄のクリア

スポンサーリンク





シートコード

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

'入力画面のクリア
Private Sub ExInputClear()
    Dim i As Integer
    
    For i = 1 To 5
        Cells(4 + i, 3) = ""
    Next
    For i = 1 To 5
        Cells(4 + i, 6) = ""
    Next
    
    '顧客No.の最大値+1
    Range("E3") = ExFindMax + 1
    Range("C5").Activate
End Sub



下記のコードに変更してください。

'登録
Private Sub CommandButton5_Click()
    Dim scell As String
    Dim lrow As Long
    Dim i As Integer
    
    '入力チェック
    If ExInputCheck = False Then
        Exit Sub
    End If
    '新規か修正かチェック
    '修正の場合、登録されているセル位置を戻す
    If ExFindNo(Range("E3"), scell) Then
        '修正
    Else
        '最終行を捜す
        lrow = Sheets("一覧").Range("A1048576").End(xlUp).Row - 1
        Sheets("一覧").Range("A2").Offset(lrow, 0) = Range("E3")
        For i = 1 To 5
            Sheets("一覧").Range("A2").Offset(lrow, i) = Cells(4 + i, 3)
        Next
        For i = 1 To 5
            Sheets("一覧").Range("A2").Offset(lrow, i + 5) = Cells(4 + i, 6)
        Next
    End If
    '入力画面のクリア
    ExInputClear
End Sub

スポンサーリンク



シート画面

「登録」ボタンをクリックすると、入力データが一覧シートにコピーされその後、入力欄をクリアします。
E3に新規の顧客No.がセットされ、カーソルはC5になります。




Homeへ > アプリケーションソフト2 > 顧客管理ソフト > Step8 入力欄のクリア

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


Copyright (c) Excel-Excel ! All rights reserved