Мне нужен совет от профессионалов здесь.я в основном имею 0 знаний по VBA Excel.
Я недавно разработал пользовательскую форму, и я воспользовался онлайн-кодом.
Прежде всего, у меня есть эта пользовательская форма, позволяющая мне ввести частьномер и поиск с этого листа, вызовите «MASTER» в текстовом поле «pntxt», и он вернет список значений в текстовое поле со 2 по 10. Эта часть кода уже работает и работает хорошо.
Для дальнейшегочтобы улучшить его, я хотел бы иметь кнопку «обновить» в этой пользовательской форме.
Например, одно из текстовых полей называется name как «pricetxt» после вызова с использованием значений из «pntxt», какпользователь, мне нужно изменить текстовое поле "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".