mshd.net
当前位置:首页 >> ExCEl vBA如何写一个不确定的高级筛选? >>

ExCEl vBA如何写一个不确定的高级筛选?

Sub 查找()On Error Resume NextDim icount%, arr, I%, SR, arr1(), n%, s$Range("L2:Q1000").ClearContentsicount = Range("A65536").End(xlUp).Rows = InputBox("请输入要查询的关键字:" & Chr(10) & "工号/姓名/年龄/籍贯/身份证号/职务", ...

上图 或者发样表 joy.008@163.com 写清要求 感觉不难

worksheet_change事件中输入以下代码: Private Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Target, Range("C5")) Is Nothing And Target.Count = 1 And Target "" ThenRows.Hidden = False For i = 8 To Cells(...

没有不带颜色的选项,可以接下来增加一个语句,对结果区域清除格式: Sheets("唯一值").Range("B2").CurrentRegion.ClearFormats

Sub 宏1()'' 宏1 宏'' Range("A1:E21").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "B23:F24"), CopyToRange:=Range("G1:K1"), Unique:=FalseEnd Sub

使用循环嵌套即可 如: do until 条件 for each rng in cells if 条件1 and 条件2 and 条件3 then 语句体 end if next loop

没图表,那个宏程序要根据你所在列和写筛选语言的。 示例: Dim i, a, j, x As Integer Dim w As String Sheets("rework").Select Cells.Clear Sheets("sun").Select x = InputBox("请输入你想查询的工号", "查询表格") For i = 2 To 8 If Cells...

1、单元格B4到Jx(x是变量,代码运行时是几就是几) 2、[k1:k2]就是单元格k1到k2所有的单元格

Sub tt() Cells(1, 1).Select Selection.AutoFilter Field:=1, Criteria1:="5" Range("a2:a100").SpecialCells(xlCellTypeVisible).Select Selection.Delete End Sub 把SpecialCells(xlCellTypeVisible这里前面的range不要把表头写进去 比如我这...

从以下的示例中,以及FILTE这个对象的属性来看,无法遍历筛选列出的项目。我觉的可以换个方法,例如生成透视表,再遍历透视表中的值,然后再删除透视表。 Dim w As Worksheet Dim filterArray() Dim currentFiltRange As String Sub ChangeFilte...

网站首页 | 网站地图
All rights reserved Powered by www.mshd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com