求助excel实时查询一整行

1sdffg

每年的开学季，学校班级都需要做学生回访，需要一个窗体实时查询每行的数据，本人VBA小白一个，求大神帮助，谢谢。 一年3班花名册.zip (10.56 KB, 下载次数: 14)

2024-7-27 23:29 上传

点击文件名下载附件

excel玉米

在excel2003中有记录单的功能，但新版本excel的菜单上没有出现，需要你在自定认选项卡上去找出来。
可以参考这个贴子：https://baijiahao.baidu.com/s?id ... r=spider&for=pc

饮冰e士

如果不是特殊要求，感觉不需要VBA，也不需要窗体：




班主任一年6班花名册.zip (13.57 KB, 下载次数: 17)

2024-7-28 09:48 上传

点击文件名下载附件

3190496160

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            zd = .List(i, 0)
            Exit For
        End If
    Next i
End With
If zd <> "" Then
    For i = 2 To UBound(ar)
        If ar(i, 2) = zd Then
            For j = 2 To 7
                Me.Controls("textbox" & j).Text = ar(i, j)
            Next j
            Exit For
        End If
    Next i
End If
End Sub

Private Sub TextBox1_Change()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
r = Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "数据源为空！": Exit Sub
ar = Range("a1:g" & r)
Dim br()
ReDim br(1 To UBound(ar), 1 To UBound(ar))
zd = TextBox1.Text
For i = 2 To UBound(ar)
    If InStr(ar(i, 2), zd) > 0 Then
        d(ar(i, 2)) = ""
        n = n + 1
        For j = 1 To UBound(ar, 2)
            br(n, j) = ar(i, j)
        Next j
    End If
Next i
x = d.Count
If x = 0 Then MsgBox "没有该关键字的学生姓名！": Exit Sub
If x > 1 Then
    ListBox1.Visible = True
    ListBox1.List = d.keys
Else
    For j = 2 To 7
        Me.Controls("textbox" & j).Text = br(1, j)
    Next j
End If
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.Visible = False
End Sub

3190496160

班主任一年6班花名册.rar (22.25 KB, 下载次数: 15)

2024-7-28 10:16 上传

点击文件名下载附件

sdytsxd991122

直接筛选了

feilanga

支持模糊查询

1sdffg

谢谢各路大神

1sdffg

excel玉米 发表于 2024-7-28 09:44
在excel2003中有记录单的功能，但新版本excel的菜单上没有出现，需要你在自定认选项卡上去找出来。
可以参 ...

学到了 谢谢

1sdffg

feilanga 发表于 2024-7-28 11:33
支持模糊查询

谢谢这个是我需要的，如果增加右边行的内容该怎么添加