求教:显示表中筛选出的材料名称,谢谢

ydlgxsdy

请教老师:
我的需求是,要显示表中筛选出的材料名称.名称要随筛选而变.



名称随筛选值而变化.zip (15.65 KB, 下载次数: 25)

2012-11-1 09:49 上传

点击文件名下载附件

蓝桥玄霜

1. Sub lqxs()
   
2. Dim w As Worksheet
   
3. Dim s
   
4. Dim currentFiltRange As String
   
5. Set w = Sheet1
   
6. With w.AutoFilter
   
7.     currentFiltRange = w.[a1].CurrentRegion.Address
   
8.     With .Filters
   
9.         With .Item(1)
   
10.             If .On Then
    
11.                 s = .Criteria1
    
12.             End If
    
13.         End With
    
14.     End With
    
15. End With
    
16. For i = 1 To UBound(s)
    
17.     aa = aa & Mid(s(i), 2) & "/"
    
18. Next
    
19. aa = Left(aa, Len(aa) - 1)
    
20. [d17] = aa
    
21. End Sub
    

复制代码

ydlgxsdy

谢谢老师回复,但我打开后首次运行少了筛选的第一行,重新筛选后运行出现错误提示