如何通过点击命令按钮查找并高亮用户表单中ListBox的对应索引项

问题根源分析 #

• 原代码通过交换ListBox列表项内容来移动高亮，这会破坏ListBox的原始数据顺序，导致高亮项和表单显示的行信息完全不匹配
• 未根据当前Activerow去定位ListBox中对应的条目，而是依赖之前的ListIndex值，初始状态下ListIndex为-1时直接退出，导致首次点击按钮时高亮无变化
• Activerow的边界逻辑有漏洞，到达最后一行后仍会继续递增
• 加载图片时引用了不存在的txt_PatronName控件，应该是txt_Name

修正后的完整代码 #

Private Sub cmd_Next_Click()
    Dim sh As Worksheet
    Set sh = Sheets("Sheet1")
    Dim lr As Long
    lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 初始化Activerow（需确保Activerow为全局变量，否则需在模块顶部声明）
    If IsEmpty(Activerow) Then Activerow = 1
    
    ' 先判断是否已到最后一行，再递增行号
    If Activerow >= lr Then
        MsgBox "已到达最后一条记录"
        Exit Sub
    End If
    Activerow = Activerow + 1

    ' 将Sheet1当前行数据写入表单控件
    With sh
        txt_Name.Text = .Cells(Activerow, 2).Value
        cbo_SEX.Text = .Cells(Activerow, 3).Value
        txt_DOB.Text = .Cells(Activerow, 4).Value
        txt_ACCT.Text = .Cells(Activerow, 5).Value
        cbo_PROP.Text = .Cells(Activerow, 6).Value
        cbo_GAME.Text = .Cells(Activerow, 7).Value
        txt_mDATE.Text = .Cells(Activerow, 8).Value
        txt_DETAILS.Text = .Cells(Activerow, 9).Value
        txt_LastUpdate.Text = .Cells(Activerow, 10).Value
        txt_DataUpdate.Text = Activerow
    End With

    ' 加载对应图片（修正控件名错误）
    On Error Resume Next
    Dim imgPath As String
    imgPath = "E:\STUDENT\DATABASE_1\PHOTOS\"
    Me.Image1.Picture = LoadPicture(imgPath & txt_Name.Text & ".jpg")
    Image1.PictureSizeMode = fmPictureSizeModeStretch
    On Error GoTo 0 ' 恢复错误捕获，避免后续代码忽略错误

    ' 根据当前行数据定位ListBox1的对应条目并高亮
    Dim i As Integer
    ' 遍历ListBox查找匹配项（根据实际数据结构调整匹配字段，此处假设匹配Sheet1的A列）
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.List(i, 0) = sh.Cells(Activerow, 1).Value Then
            ListBox1.ListIndex = i
            Exit For ' 找到匹配项后退出循环
        End If
    Next i
End Sub

关键修改说明 #

• 修复Activerow逻辑：增加初始值判断，避免首次运行时变量为空；先判断是否到达最后一行再递增行号，防止超出数据范围
• 移除错误的ListBox操作：删除交换列表项的代码，改为遍历ListBox，通过当前行的唯一标识字段（如Sheet1的A列）匹配对应条目，直接设置ListIndex实现高亮，保证与表单数据完全对应
• 修正图片加载控件名：将txt_PatronName改为txt_Name，确保能正确读取文件名
• 恢复错误捕获机制：加载图片后重置错误捕获，避免后续代码的错误被忽略

额外注意事项 #

• 需将Activerow声明为全局变量（在表单模块顶部或标准模块中添加Public Activerow As Integer），否则每次点击按钮时变量会被重置
• 调整ListBox的匹配条件时，需与ListBox的数据源结构一致：比如ListBox绑定Sheet1的A-J列，ListBox1.List(i, 0)对应A列，List(i,1)对应B列，可根据实际需求选择唯一标识字段匹配

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