查找给定值是否在单元格中，如果是，则尝试下一个值直到唯一

Question

我有下面的子程序，用于检查单独的工作表，如果在textbox8中创建的编号已经存在，此刻有一个消息框，警告用户部件号已经存在，则必须单击“确定”，然后编号递增用1重复该过程，直到找到唯一编号。 这是与其他一些数据一起写入工作表的。

我需要做的是删除消息框，以便它会自动搜索并找到下一个可用的号码。

我在子代码中添加了以下代码，但这没有效果：

Application.DisplayAlerts = False
  MsgBox "This already exists"
  SendKeys "{ENTER}"
Application.DisplayAlerts = True

码

'Create part number and check
Private Sub CommandButton2_Click()


With TextBox26
   If myreset = True Then
      .Tag = 0
      myreset = False
   End If
  .Tag = Val(.Tag) + 1
  .Text = "-" & VBA.Format(Val(.Tag), "0000")
End With


Dim iNum(1 To 8) As String
iNum(1) = TextBox24.Value
iNum(2) = TextBox25.Value
iNum(3) = TextBox26.Value


TextBox8.Value = iNum(1) + iNum(2) + iNum(3)

'check article exists

Dim emptyRow As Long
Dim rcnt As Long
Dim i As Long



ActiveWorkbook.Sheets("existing").Activate

rcnt = Sheets("existing").Range("A" & Rows.Count).End(xlUp).Row


For i = 2 To rcnt

If TextBox8.Text = Sheets("existing").Range("A" & i).Value Then
Application.DisplayAlerts = False
  MsgBox "This already exists"
  SendKeys "{ENTER}"
 Application.DisplayAlerts = True

 Exit Sub
 End If
Next

Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
  ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox8.Text

Answer 1

要删除消息框，您需要做的就是删除代码中的以下几行

Application.DisplayAlerts = False
  MsgBox "This already exists"
  SendKeys "{ENTER}"
 Application.DisplayAlerts = True

我不确定代码的第一部分在做什么。 如果您能提供一些例子，我可以帮助您。 但是我已经合理化了第二部分，现在可以用更少的代码实现原始代码想要实现的目标。

'check article exists

Dim emptyRow As Long
Dim rcnt As Long
Dim i As Long
Dim varProdCode  As Long

ActiveWorkbook.Sheets("existing").Activate
varProdCode = TextBox8.Text
rcnt = Sheets("existing").Range("A" & Rows.Count).End(xlUp).Row

Do Until varProdCode = 0
    For i = 2 To rcnt
        If varProdCode = Sheets("existing").Range("A" & i).Value Then
            varProdCode = varProdCode + 1
            Exit For
        Else
            Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = varProdCode
            varProdCode = 0
            Exit Sub
        End If
    Next
Loop

Answer 2

这是有效的代码

 Private Sub CommandButton2_Click() With TextBox26 If myreset = True Then .Tag = 0 myreset = False End If .Tag = Val(.Tag) + 1 .Value = VBA.Format(Val(.Tag), "0000") End With Dim emptyRow As Long Dim rcnt As Long Dim c As Long rcnt = Sheets("existing").Range("A" & Rows.Count).End(xlUp).Row For c = 2 To rcnt Dim iNum(1 To 8) As String iNum(1) = TextBox24.Value iNum(2) = TextBox25.Value iNum(3) = TextBox26.Value 'check if article exists ActiveWorkbook.Sheets("existing").Activate If Sheets("existing").Range("A" & c).Value = iNum(1) & iNum(2) & "-" & iNum(3) Then TextBox26.Value = TextBox26.Value + 1 iNum(3) = TextBox26.Value End If Next c 'create article number TextBox8.Value = iNum(1) + iNum(2) + "-" + iNum(3) 'select first column Range("A1").Select