陈表达VBA笔记-Excel VBA 编程-在表格做自动筛选的功能

最新推荐文章于 2024-05-22 17:17:43 发布

Excel_VBA创维大表格จุ๊บ

最新推荐文章于 2024-05-22 17:17:43 发布

阅读量1.6k

点赞数 1

分类专栏： SQL数据库 vsto插件开发 VBA系统文章标签： .net c# vba 数据库开发 python

本文链接：https://blog.csdn.net/weixin_44681501/article/details/125083664

版权

VBA系统同时被 3 个专栏收录

50 篇文章 9 订阅

订阅专栏

vsto插件开发

42 篇文章 12 订阅

订阅专栏

SQL数据库

19 篇文章 0 订阅

订阅专栏

Excel VBA 编程，在表格做自动筛选的功能

下面的例子是自动筛选85列的内容，筛选内容为处方

Private Sub CommandButton11_Click()
'筛选处方
If Sheet1.AutoFilterMode = False Then '检查是否开启自动筛选
lastrow = Sheet1.Range("A1040000").End(xlUp).Row
Range("A:DZ").AutoFilter '没有开启的话则开启自动筛选
Sheet1.Range("CG:CG").AutoFilter field:=85, Criteria1:="处方"
Else
Sheet1.AutoFilterMode = False
lastrow = Sheet1.Range("A1040000").End(xlUp).Row
Range("A:DZ").AutoFilter '没有开启的话则开启自动筛选
Sheet1.Range("CG:CG").AutoFilter field:=85, Criteria1:="处方"
End If
End Sub

Private Sub CommandButton11_Click()
    '筛选处方
    If Sheet1.AutoFilterMode = False Then  '检查是否开启自动筛选
        lastrow = Sheet1.Range("A1040000").End(xlUp).Row
        Range("A:DZ").AutoFilter   '没有开启的话则开启自动筛选
        Sheet1.Range("CG:CG").AutoFilter field:=85, Criteria1:="处方"
    Else
        Sheet1.AutoFilterMode = False
        lastrow = Sheet1.Range("A1040000").End(xlUp).Row
        Range("A:DZ").AutoFilter   '没有开启的话则开启自动筛选
        Sheet1.Range("CG:CG").AutoFilter field:=85, Criteria1:="处方"
    End If
End Sub