Оповещать пользователя о двойной записи в текстовое поле на userform

Question

У меня есть пользовательская форма с текстовым полем для ввода имени продукта, и я хотел бы предупредить пользователя, когда будет введено дублирующее имя. Значения, введенные в этот столбец, будут храниться в столбце A, а мой столбец A будет иметь значения, такие как Kat-1, kat-2, Amp-0, Pji-4 и т. Д. Я попробовал код ниже, но он дает мне дубликат записи когда вводится «k». По сути, я бы хотел, чтобы он полностью проверил «Kat-1», а затем отобразил дублирующее сообщение.

Private Sub txt_BPName_Change() 
Dim cel As Variant 
Dim myrange As Range 
Set myrange = Worksheets("Sheet1").Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).row) 
'myrange.Interior.ColorIndex = xlNone 

For Each cel In myrange 
    If Application.WorksheetFunction.CountIf(myrange, cel) > 1 Then 
    MsgBox ("Duplicate Entry") 
Exit For 
    End If 
Next 

Dim i As Long 
Dim Count As Long 
Do 
For i = 1 To Len(txt_BPName.Text) 
    Select Case Asc(Mid(txt_BPName.Text, i, 1)) 
    Case 45, 48 To 57, 65 To 90, 97 To 122 
    'Cells(Row, 1).Select 
    ActiveCell.Formula = txt_BPName.Text 
    Count = 0 
    Case Else 
    MsgBox ("Invalid Entry") 
Exit For 
    txt_BPName.SetFocus 
    Count = 1 
End Select 
Next 
Loop While Count <> 0 

End Sub 

Answer 1

Вы проверяете неправильное событие за то, что вам нужно сделать.

txt_BPName_Change() будет запускаться каждый раз, когда пользователь изменяет какую-либо часть содержимого вашего текстового поля.

Вы могли бы быть в состоянии сделать эту работу с кучей условий в вашем коде, но лучше было бы:

txt_BPName_AfterUpdate()

The AfterUpdate пожаров событий после того, как в центре внимания оставил текстовое поле, так в основном после того, как пользователь выполнил ввод данных в него.