如何从Excel工作表匹配行的Q列单元格填充CmbBoxHardwareVerified？

直接修改代码中赋值给CmbBoxHardwareVerified.Text的语句，指定取匹配行的Q列单元格内容即可，修改后的完整代码如下：

Private Sub CmdBtnOpen_Click()
Dim rng1 As Range

Set rng1 = Sheets("MAIN").Range("B:B").Find(CStr(TxtBoxFUZEProjectID.Value), [B100000], xlFormulas, xlPart, , xlNext)

If Not rng1 Is Nothing Then
    MsgBox "FUZE Project ID Found, form updated.", vbInformation
    ActiveWindow.ScrollRow = rng1.Row
    ' 修改此处，获取匹配行Q列的内容
    CmbBoxHardwareVerified.Text = Sheets("MAIN").Cells(rng1.Row, "Q").Value
Else
    MsgBox "FUZE Project not found. Do you want to import from FUZE Dump?", vbYesNo
    
End If

End Sub

关键修改说明 #

• 原代码中rng1.Cells()指向的是B列中找到的匹配单元格，现在替换为Sheets("MAIN").Cells(rng1.Row, "Q").Value，其中：
  • rng1.Row获取匹配到的行号
  • "Q"指定目标列，也可以用列号17代替（Q是第17列）
  • .Value取出该单元格的内容，赋值给下拉框的文本属性

内容的提问来源于stack exchange，提问作者Michael Pierotti