excel宏-自定义筛选查询
1.设置查询框和按钮2.插入测试数据3.先写查询的函数Function sxid(valueid As String, valuename As String)db_rowmax = Worksheets("detail").UsedRange.Rows.Counttmpval = "" For i = 7 To db_rowmax + 1 If UCase(Sheets("detail").Cells(i, 2)) Like "*" & UCase(valueid) &a
原创
2020-08-10 19:02:01 ·
3201 阅读 ·
0 评论