excel宏-自定义筛选查询

1.设置查询框和按钮
2.插入测试数据

3.先写查询的函数
–不好用的-v1

Function sxid(valueid As String, valuename As String)db_rowmax = Worksheets("detail").UsedRange.Rows.Count
tmpval = ""For i = 7 To db_rowmax + 1If UCase(Sheets("detail").Cells(i, 2)) Like "*" & UCase(valueid) & "*" And UCase(Sheets("detail").Cells(i, 3)) Like "*" & UCase(valuename) & "*" Thentmpval = i & ":" & iRows(tmpval).SelectSelection.EntireRow.Hidden = FalseEnd If
NextCells(1, 8).SelectEnd Function

3.按钮带的的方法

Sub Button1_Click()
rowmax = Worksheets("detail").UsedRange.Rows.Count + 1
Dim vall As String
Dim valueid As String
Dim valuename As String
valueid = Sheets("detail").Cells(2, 4).Value
valuename = Sheets("detail").Cells(2, 6).Value
vall = "7:" & rowmaxRows(vall).SelectSelection.EntireRow.Hidden = True
fin = sxid(valueid, valuename)End Sub

–改-v2

Sub Button1_Click()
rowmax = Worksheets("detail").UsedRange.Rows.Count + 1
Dim vall As String
Dim valueid As String
Dim valuename As String
valueid = Sheets("detail").Cells(2, 4).Value
valuename = Sheets("detail").Cells(2, 6).Valuefin = sxid(valueid, valuename)End SubFunction sxid(valueid As String, valuename As String)db_rowmax = Worksheets("detail").UsedRange.Rows.Counttmp = "=*" & valuename & "*" '包含tmpid = ">=" & valueid   '大于等于筛选Range("B6:C6").SelectSelection.AutoFilter Field:=1, VisibleDropDown:=False '取消下拉框
Selection.AutoFilter Field:=2, VisibleDropDown:=FalseSelection.AutoFilter Field:=1, Criteria1:=tmpid, Operator:=xlAndSelection.AutoFilter Field:=2, Criteria1:=tmp, Operator:=xlAndEnd Function

完成

excel宏-自定义筛选查询相关推荐

javaweb和ajax使用查询出来的数据做下拉菜单_不会用Excel做数据筛选，老板叼的你没话说！...
很多人会做漂亮的表格,自信满满地给老板汇报,老板突然冒出一句话:你给我看下公司员工的学历分布情况. 这个问题能瞬间让很多人傻眼,自然少不了老板的一顿叼.其实数据筛选并不难,只要认真学,10分钟轻松搞定 ...
5.23 通过自定义筛选查找指定城市的指定工作人员 [原创Excel教程]
原文:http://coolketang.com/staticOffice/5a97f32b756571454f26c19f.html 1. 本节课将为您演示,如何进行自定义的筛选操作,并获得筛选后的 ...
excel用宏如何筛选日期_Excel自动筛选宏
excel用宏如何筛选日期 There are two types of AutoFilters in Excel – worksheet AutoFilters, and List (Table) ...
使用excel宏完成数据筛选并且保持为图片
** 使用excel宏完成数据筛选并且保持为图片 **原创引用请说明出处在保险业务追踪过程中,需要将清单数据一对一微信发送相关人员,传统方法是对数据清单手动筛选,然后复制入微信(通过复制完成截图过 ...
Excel·VBA自定义函数筛选单元格区域重复值
贴吧提问<哪位大神知道要怎么实现?>,Excel内置函数使用比较麻烦,VBA字典实现比较直观自定义函数UNIQUE_IF筛选单元格区域中的值,可以选择返回其中的唯一值或重复值,并用分隔符 ...
中筛选为某个列表中_关于Excel中“高级筛选”的这些技巧，必须掌握！
Excel中的数据筛选,普通但实用的功能,一般情况下都[数据]-[筛选],根据某一指定的值进行筛选--其实,在Excel中,除了此操作之外,还有功能更强大的[高级筛选]. 一.Excel[高级筛选]: ...
EXCEL宏代码大全
本文件部分文章来源于网络,文章版权归原作者所有,如果本站转载的文章侵犯了您的权益请及时联系我们,我们将尽快妥善处理.本站除部分特别声明禁止转载的专稿外,其他文章可以自由转载,但请务必注明原出处和作者. ...
Excel指定条件筛选
Excel VBA高级筛选,通过动态修改查询条件进行筛选(CriteriaRange 条件),将筛选结果写入指定单元格(A7). Sub 宏1() ' ' 宏1 宏 ''Range("A7: ...
element table手动实现自定义筛选（手动实现）
先看效果图一.前言甲方放着好好的导出,好好的excel的高级筛选不用,非要在网页中实现一个.... 最开始尝试使用的element官方的筛选,给甲方看后说和excel的筛选相差很大..好在官方有 ...
[EXCEL] 宏的录制、调用和删除
目录什么是宏? 如何使用"宏"? 1.添加"开发工具"选项卡 2.录制宏 1)将选中的单元格停留在A1位置 2)点击"录制宏",设置宏名和 ...

excel宏-自定义筛选查询

excel宏-自定义筛选查询相关推荐

最新文章

热门文章