[英]Excel VBA Select a row based on its multi-column data matching criteria in multiple userform comboboxes
[英]VBA Excel - Show row data in the UserForm based on the ID
我目前正在使用帶有 UPDATE function 的用戶窗體。 我只想問我如何在我的用戶窗體中顯示值? 到目前為止,我只是通過使用下面的代碼來完成它。
txtBox_ID.Text = CStr(ThisWorkbook.Sheets("Results").Range("D7").Value)
txtBox_lname.Text = CStr(ThisWorkbook.Sheets("Results").Range("D8").Value)
txtBox_fname.Text = CStr(ThisWorkbook.Sheets("Results").Range("D9").Value)
txtBox_mname.Text = CStr(ThisWorkbook.Sheets("Results").Range("J8").Value)
txtBox_ext.Text = CStr(ThisWorkbook.Sheets("Results").Range("J9").Value)
如您所見,數據來自結果表,但我希望用戶窗體獲取所有其他數據所在的數據表中的數據,因為我認為在查找和更新過程中需要它。
這是示例文件,以便您更好地理解。 我只是這個 VBA 事情的新手,很抱歉英語不好。
這似乎適用於我的工作表。
Private Sub UserForm_Initialize()
Set ws = ActiveWorkbook.Worksheets("Data")
lastrow = ws.Cells(Rows.Count, "C").End(xlUp).Row
For r = 10 To lastrow
If ws.Cells(r, 3) = CStr(ThisWorkbook.Sheets("Results").Range("D7").Value) Then
txtBox_ID.Text = ws.Cells(r, 3).Value
txtBox_lname.Text = ws.Cells(r, 4).Value
txtBox_fname.Text = ws.Cells(r, 5).Value
txtBox_ext.Text = ws.Cells(r, 6).Value
txtBox_mname.Text = ws.Cells(r, 7).Value
End If
Next
End Sub
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.