|
▼tbtk さん:
>すいません、よく分からないのですが
>試していたところ、同名の物でも入力されてしまうときが
>あるのですが、なぜでしょうか?
>私のほうでは車種にd、車型にddと入力したら既に入力してあるにも関わらず
>もう一度入力できてしまいました。
>色々、考えてみたのですがよく分かりません。
>教えていただけると幸いです。
ゴメン、私が勘違いでチョンボしました
プロシージャ「Private Function DataExist」の中を、
以下の様に差し替えて下さい
Private Function DataExist() As Boolean
Dim i As Long
Dim vntFound As Variant
Dim vntText1 As Variant
Dim vntText2 As Variant
vntText1 = Trim(TextBox1.Text)
vntText2 = Trim(TextBox2.Text)
'List列数が0で無いなら
If lngEnd > 0 Then
'車種、車型の範囲を配列に取得
vntFound = rngList.Offset(, 1).Resize(2, lngEnd)
For i = 1 To lngEnd
'同名の車種が有るか探索
If StrComp(vntFound(1, i), _
vntText1, vbTextCompare) = 0 Then
'同名の車型が有るか探索
If StrComp(vntFound(2, i), _
vntText2, vbTextCompare) = 0 Then
DataExist = True
Exit For
End If
End If
Next i
End If
End Function
|
|