Tag: 自动筛选器
范围类的自动筛选方法失败
ActiveSheet.Range（ “A1：B1”）。自动筛选 上面的代码工作正常，但有时会给出错误“范围类失败的自动过滤方法”。 我的意图是为没有任何标准的某些列启用筛选。 有没有更好的办法？
Excel 2013：VBA代码来筛选来自多个列表框select的工作表数据
我已经花了3天时间寻找解决scheme，我知道我很接近，但我没有得到我的问题，为什么发生。 首先，我有一个电子表格，其中包含从B列到HG的工作人员姓名（列A，从第5行开始）和资源计划数据（项目的缩写）。 除了A列以外，每个颜色代表一天的日历（列标题是date）。 我也有一个包含3个列表框（多选）的用户表单。 LB1 =职员名称，LB2 =项目缩写，LB3现在不重要。 我在这个用户窗体上也有3个button，1个用于重置LBselect，1个用于filter到电子表格，1个用于重置电子表格上的filter。 我的代码重置LBselect和电子表格上的filter工作得很好。 应用filter的人不会按照预期的方式工作。 到目前为止，这个button的代码看起来如下（现在只是试图处理1 LB）： ' Apply filter to spreadsheet Private Sub CB_FilterActive_Click() Dim arrMitarbeiter() As Variant Dim i As Integer, count As Integer count = 1 For i = 0 To ListBox1.ListCount – 1 If ListBox1.Selected(i) = True Then ReDim Preserve arrMitarbeiter(count) arrMitarbeiter(count) = ListBox1.List(i) count = […]
自动filter范围不包括两个date
我有下面的代码，在L1中，我想select除昨天和今天之外的所有date，在M1中取消select所有date。 我能够在M1中做到这一点，但无法在L1中执行此操作。 Range("L1").Select ActiveSheet.Range("$A$1:$U$3804").AutoFilter Field:=12, Operator:= _ xlFilterValues, Criteria2:=Array(1, "2/11/2016", 1, "3/31/2016", 2, "4/5/2016", 2, _ "4/6/2016", 2, "4/7/2016", 2, "4/8/2016", 2, "4/11/2016", 2, "4/12/2016", 2, "4/13/2016", _ 2, "4/14/2016", 2, "4/15/2016", 2, "4/18/2016", 2, "4/19/2016", 2, "4/20/2016", 2, _ "4/21/2016", 2, "4/22/2016", 2, "4/25/2016", 0, "10/28/2015") Range("M1").Select ActiveSheet.Range("$A$1:$U$3804").AutoFilter Field:=13, Criteria1:="=" 从用户的评论： 我有从列A到U的数据。我有许多标准可供select。 L列只有date。 我想要实现的是取消select昨天和今天的date，并select所有其他date。 […]
如何在Excel中使用Autofilter进行小计？
我目前正在制作一份在公司工作的人员列表。 该公司有多个团队和多个职位，我已经把他们全部列在Excel工作表中（我正在使用Excel 2007）。 而且由于职位和人员名单可能每天都有所不同（根据谁被晋级或被解聘），我必须在date栏中填写date，职位，和“团队”。 现在我想让它过滤出来，假设年= 2011，职位=团队经理，团队=信息技术。 球队。 我已经设法得到了这个我自己的，但现在我想知道，当我根据位置或团队名称筛选出来（超过700多行），如果我可以添加同一团队下的总人数或相同的位置。 例如，如果信息技术人员有10人。 我可以做到这一点，所以它显示“总人数= 10”，而我不必手动计算每一个人，当我申请filter？ 另外，如果有4人在信息技术下。 团队作为经理，就会显示“IT团队总经理人数= 4”。 有什么命令或方法，我可以在Excel中使用这样做？
Excel VBA – 在一组date自动筛选date列
我仍然在学习Excel VBA，如果有人能帮助我解决这个问题，我将不胜感激。 我想根据名为DateMaster的表中指定的startDate和endDate过滤date列。 当我运行macros，它给了我运行时错误13，开始date= 0.下面是我的代码。 Sub FIlterCopy() Dim StartDate As Long Dim EndDate As Long StartDate = ThisWorkbook.Worksheets("DateMaster").Range("C2").Value EndDate = ThisWorkbook.Worksheets("DateMaster").Range("D2").Value Application.ScreenUpdating = False ThisWorkbook.Worksheets("FilterMaster").Activate Range("A:BA").Select Selection.ClearContents Application.Workbooks.Open ("C:\WRI\Data\Revenue Update.xls") Windows("Revenue Update.xls").Activate Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.AutoFilter Selection.AutoFilter Field:=5, Criteria1:= _ "=Backlog", Operator:=xlOr, Criteria2:="=RMA" Selection.AutoFilter Field:=29, Criteria1:= _ "=Direct" Selection.AutoFilter Field:=20, Criteria1:=">=" & StartDate, […]
当我使用AutoCilter的SpecialCells在VBA中获取可见单元格时出错
我的主要目标是复制自动筛选器的可见单元格，然后将可见单元格的尺寸复制到新工作表。 我正在使用这个代码： Sheets(1).AutoFilterMode = False Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervalo, criteria1:=CDec(paramCantidadCriterio) Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervaloUnidades, Criteria1:=paramUnidadesCriterio MsgBox AutoFilter.Range.SpecialCells(xlCellTypeVisible)(2, 11).Value 用最后一行我想检查单元格的值。 如果我使用Cells(2,11)而不是SpecialCells我可以看到单元格中的所有单元格都是可见的，不可见的。 所以我想用SpecialCells 。 如果我使用特殊的单元格，我得到以下错误： error '-2147417848 (80010108) in runtime. Automatization error. 对于执行的types来说，它似乎进入一个循环，并最终给出这个错误。 也许SpecialCells修改自动filter，然后在每次修改再次执行自动filter？
