VBA：根据ComboBox1的值设置ComboBox2的ListIndex问题求助

先看看你代码里的几个关键问题，这就是为啥没成功的原因：

• 你搞混了ListIndex的用法：它是数字索引（从0开始），不是显示的值，不能把单元格内容直接赋值给它；而且ListIndex是ComboBox的属性，不是数组，不能写ListIndex(0)。
• 逻辑搞反了：你说要根据ComboBox1的值设置ComboBox2的ListIndex，但代码里却在修改cmbProfissional自己的属性，这肯定不对呀。
• 遍历整个F列的方式效率不高，而且没处理找不到匹配项的情况。

修正后的代码示例 #

假设你的ComboBox1是cmbProfissional，要设置的ComboBox2是cmb目标控件（你自己换成实际的控件名），我们可以这样写：

Dim matchRow As Long
Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("CLIENTES")

' 用Match函数快速找到匹配的行号，比遍历更高效
On Error Resume Next ' 处理找不到匹配的情况
matchRow = Application.Match(Me.cmbProfissional.Value, ws.Range("F2:F300"), 0)
On Error GoTo 0

If matchRow > 0 Then
    ' 注意：ListIndex是从0开始的，而Match返回的是相对于F2的位置，所以要减1
    Me.cmb目标控件.ListIndex = matchRow - 1
Else
    ' 如果没找到匹配项，清空ComboBox2的选择
    Me.cmb目标控件.ListIndex = -1
End If

代码说明 #

• 用Match替代遍历：比逐个单元格循环快得多，尤其是范围大的时候。
• 处理找不到匹配的情况：用On Error Resume Next捕获Match找不到值的错误，然后判断matchRow是否大于0，避免报错。
• 正确转换索引：Match返回的是在F2:F300这个范围内的位置（从1开始），而ComboBox的ListIndex是从0开始的，所以要减1才能对应上。
• 明确控件关系：确保你要设置的是ComboBox2的ListIndex，而不是ComboBox1的。

如果你的ComboBox2的列表项和F2:F300的内容是一一对应的，这个代码就能完美工作啦。

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