VBA 组合框上的匹配函数

Question

我正在尝试使用单元格 Z 作为查找参考获取表格以从 sheet 填充数据。

显示我的问题参考列表的表单下拉列表有效。当我 select 所述列表中的一个项目填充表单时，我收到不匹配错误。

此外，我在 Z 列中的范围是字母和数字的混合。我确实将 I 更改为变体，但运气不好

application.match 返回错误。有什么想法吗？

Run Time error '13': Type Mismatch

Private Sub ComboBox2_Change()
    If Me.ComboBox2.Value <> "" Then
        Dim sh As Worksheet
        Set sh = ThisWorkbook.Sheets("Inbound Issues")
        Dim i As Integer
        i = Application.Match(VBA.CLng(Me.ComboBox2.Value), sh.Range("Z:Z"), 0)
        Me.TextBox1.Value = sh.Range("H" & i).Value
    End If
End Sub

Answer 1

私人订阅 ComboBox2_Change() 如果我.ComboBox2.Value <> "" 那么将 sh 调暗为工作表设置 sh = ThisWorkbook.Sheets("入站问题") 将我调暗为整数 i = Application.Match(VBA.Str(我.ComboBox2.Value), sh.Range("Z:Z"), 0) 我.TextBox1.Value = sh.Range("H" & i).Value 万一结束子

将 Clng 更改为 Str

VBA 组合框上的匹配函数

VBA Match Function on combo box

vba

combobox

match

lookup