Tag: filter

对象'_Worksheet'的方法'Range'失败 – 命名范围并在VBA中引用它: 在一个macros中，我试图select一个范围，命名它，然后在自动过滤数据时引用该范围。这是我的代码： 'Select and name range Set bDataDump = ActiveWorkbook Set DataDump = bDataDump.Sheets(1) DataDump.Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Selection.AutoFilter Range(Selection, Selection.End(xlDown)).Select Set myrange = Selection 'AutoFilter that range for everything but PDC1 and delete visible rows 'Code fails on next line DataDump.Range("myrange").AutoFilter field:=11, Criteria1:="<>""PDC1""" ActiveCell.Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Delete DataDump.ShowAllData 当我运行macros时，我得到了对象“_Worksheet”失败的“方法范围”，debugging器突出显示了第二块代码的第一行作为罪魁祸首。我一直没能在这样的过滤数据网上find任何例子，所以我希望有任何的洞察力，我做错了什么。谢谢！

如何按细胞颜色过滤？: 我的一些经理可以访问Office 2010或更高版本。我知道在新的办公室有select按细胞颜色过滤。但在我的地板上，我们只有Office 2003.我想知道是否有一种方法可以通过填充单元格进行过滤？我现在正在做的方式是创build另一个列，手动将“x”放在突出显示的行上。然后用“x”进行过滤。有没有更简单的方法来做到这一点？（他们有这样的数百行）。我正在使用Excel 2003的Windows XP。

在隐藏模式下过滤Excel行（VB代码）: 我想在Excel中过滤大量行，并在Excel中无需运行filter的情况下复制它们的值，仅在VB代码中没有在Excel中进行可视化操作。这个过程很慢，我想要一个更灵活的select： ' xlSheet.Range("A1:Z100000").AutoFilter(1, "Criteria", , , False) xlSheet.Range("C1:F100000").Copy() xlSheet2.Range("A1").PasteSpecial(Paste:=XlPasteType.xlPasteValues, Operation:=XlPasteSpecialOperation.xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False) Application.CutCopyMode = CType(False, XlCutCopyMode) xlSheet.Range("A1:Z100000").AutoFilter(False) ' 有什么build议么？谢谢！

使用SpreadsheetGear将filter添加到Excel工作表列？: 如何使用SpreadsheetGear将filter添加到Excel工作表列中？

Excelmacros运行时错误：1004: 我昨天刚刚开始macros，每件事情都很好，直到我遇到这个问题。每次我尝试运行这个代码，我得到运行时间1004错误。代码做的是给acct_cre_mth_idfilter分配一个值。我GOOGLE了，发现一个解决scheme是重命名filter，我已经这样做，但它是没有用的。我有给定的代码，但不同的filter它工作正常，但只有这个特定的filter，我有一个问题。 Sheets("Sheet6").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _ ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _ CurrentPage = "1321" ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _ ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _ CurrentPage = "1322" ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _ ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _ CurrentPage = "1323" ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _ ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("acct_cre_mth_id"). _ CurrentPage = "1324" End Sub

如何加载一个Excel文件到一个文本框过滤datagridview: 我在非常开始与C＃。我正在创build一个为客户提供优惠的计划。我得到了第一种forms的报价和一个excel文件加载到datagridview子窗体。当我双击行时，它被复制到第一行的datagridview。它工作正常。但是我想添加一个带有TextChanged事件的TextBox，所以当用户放置一些文本的时候，一个datagridview（第二种forms，那个带有excel数据的）应该只显示包含这个文本的行。如果无法一次search所有的列，那就没问题了。但是我不能使它工作。我发现了一些溶剂，我复制了，但我不工作。所以这是代码： private void button1_Click(object sender, EventArgs e) { try { System.Data.OleDb.OleDbConnection PolaczenieBazyDanych = new System.Data.OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\\Users\\user\\Desktop\\My Dropbox\\Cenniki\\Cennik.xlsx';Extended Properties=Excel 8.0;"); System.Data.DataSet DtSet = new System.Data.DataSet(); System.Data.OleDb.OleDbDataAdapter Adapter = new System.Data.OleDb.OleDbDataAdapter("select * from [Tabelle1$]", PolaczenieBazyDanych); //Adapter.TableMappings.Add("Tabela", "TabelaTestowa"); Adapter.Fill(DtSet); dataGridView1.DataSource = DtSet.Tables[0]; PolaczenieBazyDanych.Close(); } catch (Exception ex) { MessageBox.Show(ex.ToString()); […]

如何从我的Excel文件中删除一些具有超过200k行数的独特logging？: 我有一个25列的excel文件，有大量的数据，超过200K行。我有一个列有独特的数据没有任何重复。一些列有重复的值。即使对于同一个客户，具有唯一数据的列也具有明显独特的logging。有没有什么办法可以从其他列中具有相同值的唯一列中删除logging。我希望这是有道理的，有人能够帮助。我将不胜感激。 input：编号名称地址手机号码 123冉街1号2585658 124冉街1号2585658 125丫丫街4号8585558 126 ff we we 43 43646463 127街8号258455 128街8号258455 预期产出编号名称地址手机号码 123冉街1 2585658 125小丫街4 8585558 126 gffhd wert 43646463 127街8号258455

macros表中的代码变慢，挂起: 我最近在我的macros中添加了下面的一段代码来sorting/过滤表单，并find一个特定的值，并根据find的值应用一些格式化 Sheets("Extract").Select Range("A1").Select Selection.AutoFilter Selection.AutoFilter ' finding the yesterday last resolved(on same day) ticket Range("A1:AB2164").Select ActiveWorkbook.Worksheets("Extract").Sort.SortFields.Clear 'sorting with resolved date ActiveWorkbook.Worksheets("Extract").Sort.SortFields.Add Key:=Range("E2:E2164" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Extract").Sort .SetRange Range("A1:AB2164") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A1").Select 'filtering resolved tickets |received today|resolved on same day […]

Excel VBA – 设置PivotItems错误的可见性: 我使用下面的代码来过滤Excel中的数据透视表（但是从PowerPoint中） – 我设法清除“date”字段的filter，但是我无法设置oPi值的可见性。 Sub Data() Dim oExcel As Excel.Application Dim oWB As Workbook Dim oPi As PivotItem Set oExcel = New Excel.Application oExcel.Workbooks.Open ("\\A79APBRSFACTD\MDSS\FactivityServer\FactShar\OEE_Daily2.xls") oExcel.Visible = True Set oExcel = Excel.Application Set oWB = oExcel.Workbooks("OEE_Daily2.xls") oWB.Sheets("OEE Pivot Daily").Select oExcel.Run ("Update_OEE_Daily") oWB.Sheets("OEE Pivot Daily").Range("B3").Select oWB.Sheets("OEE Pivot Daily").PivotTables("PivotTable2").PivotFields("Date").Orientation = xlHidden With oWB.Sheets("OEE Pivot Daily").PivotTables("PivotTable2").PivotFields("Date") .Orientation = xlPageField […]

MS Excel数据透视表 – 从filter中删除值时出错: 我在MS Excel上遇到以下问题（2010年和2013年，我认为这与官方版本无关）：我有一个连接到Analysis Services多维数据集的数据透视表。在“filter”字段中添加药物2维，在“工作表”中添加一个“测量”。然后，我得到度量的计算公式，使用选项 – > OLAP工具 – >转换为公式，并将其复制到另一个单元格。所以，假设原来的测量是在A10和B10上计算的。问题发生在我的两个维度中的第一个。当我从这个维度select“所有”成员时，一切都很好，但是当我删除一个成员（任何成员）时，原始度量（A10）是可以的，但是我的B10会收到一个错误（'N / A'）。但是，在更改二维filter的select时不会发生这种情况。任何想法在这一个？先谢谢你。