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

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).RowRange("A:DZ").AutoFilter   '没有开启的话则开启自动筛选Sheet1.Range("CG:CG").AutoFilter field:=85, Criteria1:="处方"ElseSheet1.AutoFilterMode = Falselastrow = Sheet1.Range("A1040000").End(xlUp).RowRange("A:DZ").AutoFilter   '没有开启的话则开启自动筛选Sheet1.Range("CG:CG").AutoFilter field:=85, Criteria1:="处方"End If
End Sub

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

Excel VBA 高级编程-跨表格多条件筛选
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教!微信公众号 ...
计算机vba函数,excel vba求平均值_求VBA编程或EXCEL公式(函数)
最佳答案 =IF(AND(--SUBSTITUTE($C$2,MID($B4,1,1),"")=$C$2,--SUBSTITUTE($C$2,MID($B4,2,1)," ...
【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格（友好版）
上一篇文章我们提到:更好的处理方式就是读取将每一行,按照空格再分为不同的单元格代码实现如下: Sub bb() Dim a, b, k%, i%, j%, q% Open "a.txt&q ...
【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格
我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下: 1111 222 222 333 333 444 接着我们进行文件的读取,并且写入到Excel中,代码如下: Sub bb() ...
VBA之六--EXCEL VBA两则
函数作用:自动获取指定月的工作日 '################################################################ Sub 自动填充工作日(month ...
计算机专业的学生如何做笔记（学编程要不要做笔记、怎么做笔记）
今天在论坛里看到一篇前辈写的文章,觉得很有道理.做笔记得三做三不做. https://codecoord.blog.csdn.net/article/details/80954247?utm_medi ...
excel 错位插入_Excel表格版面自动错位
软件版本:Microsoft Office 2003: 在工作中,用于打印的介质并非只是空白纸张;很多环境下都需要打印印刷好的表格纸张,由于固定内容都已经事先印刷好了,对于填充的内容就需要有一个精确定 ...
【Excel VBA和Python对照学习】创建字典
Excel VBA和Python双语对照学习我们从小学习语文,都用过字典.查字典时可以从第一页开始,一页一页地往下找,直到找到为止.这样做明显效率低下,特别是字的位置比较靠后的时候.所以查字典时不这 ...
Python代替Excel VBA，原来真的可以
点击上方"Python爬虫与数据挖掘",进行关注回复"书籍"即可获赠Python从入门到进阶共10本电子书今日鸡汤春潮带雨晚来急,野渡无人舟自横. ...

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

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

最新文章

热门文章