用VBA代码实现数据筛选问题，匹配条件问题，谢谢老师

深秋红叶2019 · 发表于 2020-1-28 21:18

输入符合B列里任一电话条件后从第A7到O15007自动出现符合的数据，如果删除筛选条件后自动恢复所有的原有数据，代码怎么写，
如何实现B列的匹配条件删除后，A列、C列到I列数据自动消失，现在问题是条件删了，匹配的数据还在，寻求大师更改代码，谢谢

3190496160 · 发表于 2020-1-29 09:43

Sub 筛选()
Dim rng As Range
With Sheets("报名登记")
ws = .Cells(Rows.Count, 1).End(xlUp).Row
If ws < 7 Then MsgBox "登记表数据源为空！": Exit Sub
T = Trim(.[b2])
If T = "" Then .[a4].Resize(1, 15) = "": Exit Sub
Set rng = .Range("b7:b" & ws).Find(T, , , 1)
If rng Is Nothing Then MsgBox "没有符合条件的数据": Exit Sub
r = rng.Row
.[a4].Resize(1, 15) = .Range("a" & r).Resize(1, 15).Value
End With

End Sub

3190496160 · 发表于 2020-1-29 09:45

蓝泰学校-学员登记库存.zip (26.15 KB, 下载次数: 14)

excel海 · 发表于 2020-1-29 10:40

说实话,你这表莫名奇妙,不知道想干什么

Sub 筛选()
Dim i, j, n, arr, brr()
With Sheet1
n = .Cells(Rows.Count, 1).End(3).Row
arr = .Range("a3:h" & n)
End With
With Sheet3
For i = 1 To UBound(arr)
.Range("a7:o100000").ClearContents
If Trim(arr(i, 1)) Like "*" & Trim(.Cells(2, 2).Value) & "*" Then
j = j + 1
ReDim Preserve brr(1 To 9, 1 To j)
For k = 2 To 9
brr(1, j) = Now
brr(k, j) = arr(i, k - 1)
Next
End If
Next
brr = Application.Transpose(brr)
.Range("a7:i7").Resize(UBound(brr)) = brr
End With
End Sub

复制代码

深秋红叶2019 · 发表于 2020-1-29 11:25

excel海发表于 2020-1-29 10:40
说实话,你这表莫名奇妙,不知道想干什么

就是想根据学员电话筛选符合条件的所有数据，比如输入号码123就显示123的所有数据，清除条件123后其它的数据又显示出来，就相当于只筛选电话号码一样

excel海 · 发表于 2020-1-29 11:40

深秋红叶2019 发表于 2020-1-29 11:25
就是想根据学员电话筛选符合条件的所有数据，比如输入号码123就显示123的所有数据，清除条件123后其它的 ...

我给你的代码就是这意思吧,你试试

深秋红叶2019 · 发表于 2020-1-29 11:51

excel海发表于 2020-1-29 11:40
我给你的代码就是这意思吧,你试试

老师我试了一下，我要精确筛选，输入345后，只要含345的都被筛选了，然后我往下面新增的数据点击筛选后就不见了，老师筛选按钮旁边在帮我加个清楚条件命令，老师再帮我改改哈，非常感谢，我输入的学员电话是从工作表“学员建档”里匹配过来的，我在报名登记的学员电话输入123后就会自动匹配信息，现在有个问题，就是我删除123，其它的匹配信息还在，我要的效果是123删除后，匹配的信息也不要。

深秋红叶2019 · 发表于 2020-1-29 12:39

excel海发表于 2020-1-29 11:40
我给你的代码就是这意思吧,你试试

老师，我刚又试了一下，不是在建档那里查找，就是在报名登记里筛选数据，你那个从另一个表查找数据了

		自动登录	找回密码
密码			免费注册

[求助] 用VBA代码实现数据筛选问题，匹配条件问题，谢谢老师

最新热点 /1