[122.xls]



' [mjSumple] のコード
'■■ 重複値が入力されないように事前チェックする ■■
'
'
Const strInputSheet = "Title"
Const strDataSheet = "Data"

Dim intEndRow As Integer
Dim strCode As String
Dim strName As String

Sub psInput()
    
Dim intSetRow As Integer
    
    intSetRow = Sheets(strDataSheet).Range("A1").CurrentRegion.Rows.Count + 1
    
    strCode = Sheets(strInputSheet).Range("F10")
    strName = Sheets(strInputSheet).Range("G10")
    
    If pfCell_Check = True Then
        Worksheets(strDataSheet).Cells(intSetRow, 1) = strCode
        Worksheets(strDataSheet).Cells(intSetRow, 2) = strName
        
        '↓必要無ければコメントアウトしてもＯＫです
        MsgBox ("１件のデータを登録しました")
    End If
    
End Sub

Private Function pfCell_Check() As Boolean
    
Dim intCnt As Integer
    
    pfCell_Check = True
    
    intEndRow = Sheets(strDataSheet).Range("A1").CurrentRegion.Rows.Count
    
    For intCnt = 2 To intEndRow
        If strCode = Worksheets(strDataSheet).Cells(intCnt, 1) Then
            MsgBox ("既に同じコードが存在します。登録できません。")
            pfCell_Check = False
            Exit For
        End If
    Next intCnt
End Function