Tag: autofilter

嵌套For循环和过滤的数据: 问候乡亲。寻找人指点我正确的方向，以帮助我继续寻找信息…我想我正在接近错误的问题，这可能是我的术语或我正在寻找的东西。我正在使用一组vba代码来计算数据转储中的特定值，并使用它来在“Tracker”工作表（基于filter和条件）上填充表格/表格。我已经能够得到正确的匹配值的数量，使用这样的代码： LastRow = Sheets("Colums").Range("AC" & Rows.Count).End(xlUp).Row: vD14 = 0 For Each c1 In Sheets("Colums").Range("AC1:AC" & LastRow) If c1.Value = "Wired" Then vD14 = vD14 + 1 End If Next c1 Sheets("Tracker-Import Data").Range("D14").Value = vD14 'paste the count value into D14 of this sheet 但是，我们无法find一种方法来“嵌套”多个条件并计算重新提炼的filter数据。作为一个例子，我试图用一些嵌套调整上面的代码，进一步钻取，使用（这是行不通的）。编辑编辑 – 澄清 – filter数据在多列。因此，“有线”在AC列中，进行中可能在E中。 ' […]

使用variables作为自动filter的列（vba）: 我想在vba中使用一个variables作为autofilter的列，我想我没有得到正确的sintax，导致它不工作： With ActiveSheet .AutoFilterMode = False With .Range("A1:" & LastCol + 1 & "1") .AutoFilter .AutoFilter field:=5, Criteria1:="Approved" .AutoFilter field:=6, Criteria1:="Open" .AutoFilter field:=LastCol + 1, Criteria1:="1" End With End With

使用数组和xlFilterValues进行过滤: 我已经写了一个定义数组的代码，然后使用该数组作为条件来过滤一个范围。这是代码的摘录。不知怎的，它过滤掉了一切，并不显示过滤的值。 Dim N As Long Sheets("Calculations").Select With Sheets("Calculations") N = .Cells(Rows.Count, "A").End(xlUp).Row ReDim ary(1 To N) For i = 1 To N ary(i) = .Cells(i, 1) Next i End With Sheets("Data").Select Range(Range("A1"), Range("A1").End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select With Selection .AutoFilter Field:=36, Criteria1:=ary, Operator:=xlFilterValues End With

无法使用自动筛选显示2014年前的dateexcel c＃: 我正在尝试使用“自动筛选”来显示2014年之前的所有单元格。但我不知道该怎么做。我只能显示“01/01/2014”，因为我的代码select在“自动filter”等于我想要的是之前。这是我的代码： range1 = xlWorkSheet.get_Range("A1:" + GetExcelColumnName(Globals.cl) + "1", Type.Missing); range1.AutoFilter(cHireDate, "01/01/2014"); 我试图在网上find，但我无法find类似的东西。非常感谢你的帮助。

Excel-VBA：检查列filter中select了多less个项目（或限制select）: 我需要控制Excel工作表上一列的简单自动filter 。经过研究，似乎没有任何特定的事件发生，当这样一个filter被改变。所以这里想到的唯一事件就是.Calculate事件，但我不确定这里是否可靠。作为替代方法，是否有一种方法可以统计特定筛选器中已select了多less项？在我的情况下，我只需要捕获如果在filter（但不是全部）中select了多个项目。既然看来我不能阻止或者限制这个，那么我至less会显示一个警告信息。有人可以帮我弄这个吗？我的过滤数据： Worksheets(1).Range("$C$1:$C$100").AutoFilter Field:=1 提前谢谢了，麦克风

错误：无法获取Range类的AutoFilter属性: 在下面的代码中，我只收到第二次调用AutoFilter（）时收到上述错误。 string FilterValue1 = tbSysCat1.Text.FilterDoesNotContain(); string FilterValue2 = tbSysCat2.Text.FilterDoesNotContain(); string FilterValue3 = tbSysCat3.Text.FilterDoesNotContain(); string[] SysCat = new string[6]; // EDIT: originally tried object[]; still got error SysCat[0] = FilterValue1; SysCat[1] = FilterValue1.ToUpper(); SysCat[2] = FilterValue2; SysCat[3] = FilterValue2.ToUpper(); SysCat[4] = FilterValue3; SysCat[5] = FilterValue3.ToUpper(); VApplication.ActiveSheet.Range[VWorkingRange].AutoFilter(9, Missing.Value, Missing.Value, Missing.Value, true); VApplication.ActiveSheet.Range[VWorkingRange].AutoFilter(9, SysCat, MSExcel.XlAutoFilterOperator.xlFilterValues, Missing.Value, true); 注意：FilterDoesNotContain（）是一种扩展方法，用于为“不包含”添加特定于Excel的通配符。 […]

将循环更改为自动过滤以简化MACRO: 我想通过改变循环结构到一个自动filter结构来简化下面的代码。 1 ActiveCell.Columns("A:A").EntireColumn.Select If Selection.Find(What:="~* C", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=True) Is Nothing Then GoTo 2 End If Selection.Find(What:="~* C", After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=True).Activate ActiveCell.Select Range(Selection, Selection.Offset(0, 1)).Insert shift:=xlToRight GoTo 1 2 有没有一个简单的方法来做到这一点？

范围类的自动筛选方法失败 – 表: 我试图做到这一点，它运行良好，我得到的表格过滤的基础上，但它给了我错误：范围类的自动筛选方法失败。我不确定是否使用正确的事件来触发此代码：这里是最后一行给出错误的代码的一部分。 Private Sub ComboBox1_Change() Application.EnableEvents=False Dim wt As Worksheet Dim wib As Worksheet Dim i As Long, j As Long, frow As Long, ck As Boolean, scol As Long, ecol As Long Dim manName As String manName = Me.ComboBox1.Value Set wt = Sheet3 Set wib = Sheet9 'IB Skills Sheet wt.Activate wt.Range("A1") = […]

在Excel中应用自动筛选时防止重新计算函数: 我正在使用Excel 2013.我有一个大的表单，其中包含客户及其信息列表。当我向该电子表格添加新客户时，通过将CustomerID发布到我们的服务器来填充大部分信息，服务器以Jsonstring的forms返回客户信息，然后parsing。一个特定的函数返回所需的信息，即“= Json_get_email（Userid）”将返回电子邮件地址。所有这些工作都非常好，对我公司的员工来说也是比较用户友好的。应用自动filter时会出现问题。即使没有任何function是挥发性的，使用自动filter会导致电子表格重新计算所有function，而对于客户或less数客户而言，有效和快速的function现在正在放慢电子表格的速度。我正在转向您，以了解是否有任何方法可以防止每次应用filter时计算我的function。我最好的，法比恩