Excel VBA UserForm用数字动态命名范围编辑条目时Match函数报错求助

• Application.WorksheetFunction.Match 未匹配到目标值时会直接抛出运行时错误，无错误值返回
• 组合框ProjectLineDropDown返回的选中值默认为字符串类型，Menu_Control范围内存储的项目ID为数字类型，类型不一致导致匹配失败，返回的错误值直接赋值给整数类型变量触发类型不匹配报错

替换原有代码为以下内容即可：

Private Sub EditProjectButton_Click()
    Dim MatchResult As Variant
    Dim TargetRow As Long
    
    ' 将组合框选中值转为长整型，匹配项目ID的数字格式
    MatchResult = Application.Match(CLng(ProjectLineDropDown.Value), Sheets("MetricsTracking").Range("Menu_Control"), 0)
    
    If IsError(MatchResult) Then
        MsgBox "未找到对应项目ID"
    Else
        TargetRow = MatchResult
        MsgBox TargetRow
    End If
End Sub

• 新增匹配结果校验逻辑：用Variant类型接收匹配结果，通过IsError判断匹配状态，避免无匹配时直接抛出运行时错误
• 统一匹配值类型：用CLng()将组合框返回的字符串类型ID转为长整型，解决类型不匹配问题
• 变量类型优化：将TargetRow从Integer改为Long，避免数据行数超过32767时出现溢出错误，此前尝试修改为Double无效是因为浮点类型不符合整数匹配要求，无法解决类型匹配问题

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