excel - 使用 Excel 用户表单进行搜索和更新

Question

我需要这里的专业人士的建议。我基本上对vba excel有0知识。

我最近设计了一个用户表单，并利用了在线代码。

首先，我有这个 UserForm 允许我输入零件号并从此工作表中搜索调用“pntxt”文本框中的“MASTER”，它会将值列表返回到文本框 2 到 10。这部分代码已经运行良好。

为了进一步增强它，我想在这个用户表单中有“更新”按钮。

例如，使用“pntxt”中的值调用后，其中一个文本框名称为“pricetxt”，作为用户，我需要修改“pricetxt”文本框。之后，它将更新我的 Excel 表。

我尝试了以下代码，但它不起作用。

Private Sub update2_Click()
Dim lastRow As Variant
Dim partno As Variant
Dim rowSelect As Variant
Dim x As Variant


If Trim(pntxt.Value) = vbNullString Then

MsgBox "Enter Part Number"

 Else

partno = pntxt.Value
Sheets("MASTER").Select

Set wS = Worksheets("MASTER")
lastRow = wS.Cells(Rows.count, 2).End(xlUp).Row

For x = 2 To lastRow
If wS.Cells(x, 2).Value = partno Then Rows(x).Select

Next

rowSelect = ActiveCell.Row
Cells(rowSelect, 20) = Me.pricetxt.Value


End If

End Sub

上面的代码不会将“pricetxt”值作为“pntxt”值返回到相应的行。

标签： excelvba