检测下拉列表中批配项，有则选中

Question

Option ExplicitPrivate Sub Command1_Click()
    Dim lngIndex As Long
    
    For lngIndex = 0 To List1.ListCount - 1
        If List1.List(lngIndex) = CStr(List1.ItemData(lngIndex)) Then
            List1.Selected(lngIndex) = True
        Else
            List1.Selected(lngIndex) = False
        End If
    Next
End SubPrivate Sub Form_Load()
    With List1
        .AddItem "1st"
        .AddItem "2"
        .AddItem "3th"
        .ItemData(1) = "2"
        .ListIndex = -1
    End With
End Sub

Answer 1

Public Sub GetCmbIndex(objCmbName As Object, intItemData As Integer)
  '变量定义
  Dim intCmbIndex As Integer '下拉菜单索引
  '错误处理
  On Error GoTo Err_MSg
  
  '程序处理
  '处理1.1:选择对应的下拉菜单项,并显示
  With objCmbName
    For intCmbIndex = 0 To .ListCount - 1
        If .ItemData(intCmbIndex) = intItemData Then
           .ListIndex = intCmbIndex
           Exit Sub
        Else
           .ListIndex = -1
        End If
    Next
  End With
  
Exit Sub
Err_MSg:
  GetControlMsg 7000
End Sub