查询另存

tanglf188

gwjkkkkk

Sub 查询()
    Dim ar, br, i&, j&, r&, strInput$
    br = Sheets(1).[A1].CurrentRegion
    With [A1].CurrentRegion
        .Offset(1).ClearContents
        ar = .Resize(UBound(br))
        r = 1
    End With
    strInput = InputBox("请输入名称：", "提示")
    If strInput = "" Then Exit Sub
    For i = 1 To UBound(br)
         If InStr(br(i, 3), strInput) Then
              r = r + 1
              For j = 1 To UBound(br, 2)
                  ar(r, j) = br(i, j)
              Next j
         End If
    Next i
    [A1].Resize(r, UBound(ar, 2)) = ar
End Sub

gwjkkkkk

参与一下。。。

xing_chen

tanglf188 发表于 2023-3-22 15:20

谢谢老师！运行如愿！你设计的页面是我所想，但深知能力有限，雪球是越滚越大了。这窗体还是要学习。谢谢

xing_chen

gwjkkkkk 发表于 2023-3-22 15:44
参与一下。。。

谢谢老师，运行如愿!

xing_chen

ZHLK 发表于 2023-3-22 10:30
Sub 查询()
    Dim i&, j&, ss
    Dim arr, brr, sh

谢谢老师！运行如愿！
抱歉！漏献花了。花在旅途，明天献上。