我在VBA中的UserForm匹配函数来更新我的数据库

Question

对不起我在VBA中很新，但很努力进入它：）

我在VBA中创建了一个userform，其中userform的输入被转移到另一个工作表的数据库中的不同列中。 我想到的身份编号是唯一的，为简单起见可以称为NR

现在我需要一个额外的功能，当收集完成后，我们会收到另一个数字，我将用它与特定的身份编号一起放入一个新的输入框。

因此，我想到的新用户形式将有3个输入框，一个用于日期，一个用于标识号，一个用于新数字。 当放入上述所有内容时，我需要以某种方式通过Sheet“Data”中的F列找到相关的identynr并在Sheet“Data”中的H列中添加新数字，并在同一行中的第i列中添加日期作为实际识别号

Answer 1

这是我提出的......

• 将三个文本框命名为txtDate，txtNR，txtNew
• 创建一个命令按钮，我没有打扰重命名（CommandButton1）

• 在按钮的点击事件中添加以下代码

  Dim rng1 As Range Dim strSearch As String strSearch = txtNR.Text Set rng1 = Range("F:F").Find(strSearch, , xlValues, xlWhole) If Not rng1 Is Nothing Then rng1.Activate rng1.Offset(0, 2).Value = txtNew.Text rng1.Offset(0, 3).Value = txtDate.Text Else MsgBox strSearch & " not found" End If

单击该按钮后，该过程将在列F中搜索txtNR中的值，并在列H中添加txtNew的值，在列I中添加txtDate。

希望这有帮助，如果您需要任何其他信息或使用此方法有任何问题，请与我们联系。