使用 UserForm 上的 TextBox 中的值更新范围和 ListBox 中的值答案

【问题标题】：Update value in range and ListBox with the value in a TextBox on UserForm使用 UserForm 上的 TextBox 中的值更新范围和 ListBox 中的值
【发布时间】：2021-10-18 14:38:24
【问题描述】：

我希望有人可以帮助我解决这个问题。我正在设计一个用户表单，它将使用工作表中某个范围内的值填充列表框。目标是用列表框行（我工作正常）填充一行文本框，然后使用文本框更改范围和列表框中的值。这最后一步是我遇到麻烦的地方。有谁知道实现这一目标的方法？下面是我用来填充文本框的代码。有什么方法可以反转它以将文本框值写入范围/列表框？还附上了现在用户表单的图像。谢谢！

Private Sub ProgList_Click()
StepTxt.Value = Application.VLookup(Me.ProgList, Sheets(EditProjNumInput _
.ProjNumTxt.Value).Range("B15:F24"), 1, False)
DateCompTxt.Value = Application.VLookup(Me.ProgList, Sheets(EditProjNumInput _
.ProjNumTxt.Value).Range("B15:F24"), 2, False)
CompByTxt.Value = Application.VLookup(Me.ProgList, Sheets(EditProjNumInput _
.ProjNumTxt.Value).Range("B15:F24"), 3, False)
CheckByTxt.Value = Application.VLookup(Me.ProgList, Sheets(EditProjNumInput _
.ProjNumTxt.Value).Range("B15:F24"), 4, False)
CommTxt.Value = Application.VLookup(Me.ProgList, Sheets(EditProjNumInput _
.ProjNumTxt.Value).Range("B15:F24"), 5, False)
Me.DateCompTxt.Text = Format(Me.DateCompTxt.Text, "mm/dd/yyyy")
End Sub

【问题讨论】：

Listbox1.ListIndex 将给出单个选择列表框的索引。以 0 - 零开头。在您的屏幕截图中为 1。然后可以使用 range.offset(row off, col off)。

标签： excel vba textbox listbox userform

【解决方案1】：

可以使用Match 函数找到要使用命令按钮单击编辑的行的索引。因此，一旦编辑了文本框中的文本，单击命令按钮将根据文本框更改给定范围内的文本，并使用 rowsource 属性更新列表框。试试这个...

Private Sub CommandButton1_Click()
Dim rw As Long

rw = Application.Match(Me.ProgList, Sheets(EditProjNumInput.ProjNumTxt.Value).Range("B15:B24"), 0)
Sheets(EditProjNumInput.ProjNumTxt.Value).Range("B15:B24").Cells(rw, 1) = StepTxt.Value
Sheets(EditProjNumInput.ProjNumTxt.Value).Range("B15:B24").Cells(rw, 2) = DateCompTxt.Value
Sheets(EditProjNumInput.ProjNumTxt.Value).Range("B15:B24").Cells(rw, 3) = CompByTxt.Value
Sheets(EditProjNumInput.ProjNumTxt.Value).Range("B15:B24").Cells(rw, 4) = CheckByTxt.Value
Sheets(EditProjNumInput.ProjNumTxt.Value).Range("B15:B24").Cells(rw, 5) = CommTxt.Value
ProgList.RowSource = EditProjNumInput.ProjNumTxt.Value & "!B15:F24"

End Sub

【讨论】：